12 use C4::Interface::CGI::Output;
18 my ($template, $borrowernumber, $cookie)
19 = get_template_and_user({template_name => "opac-sendbasketform.tmpl",
23 flagsrequired => {borrow => 1},
26 my $bib_list=$query->param('bib_list');
27 my $email_add=$query->param('email_add');
28 my $email_sender=$query->param('email_sender');
29 my $dbh=C4::Context->dbh;
31 $sth=$dbh->prepare("select bibid from marc_biblio where biblionumber=? order by bibid");
35 my $email_from = C4::Context->preference('KohaAdminEmailAddress');
37 my %mail = ( To => $email_add,
40 my ($template2, $borrowernumber, $cookie)
41 = get_template_and_user({template_name => "opac-sendbasket.tmpl",
45 flagsrequired => {borrow => 1},
48 my @bibs = split(/\//, $bib_list);
51 foreach my $biblionumber (@bibs) {
52 $template2->param(biblionumber => $biblionumber);
54 my $dat = &bibdata($biblionumber);
55 my ($authorcount, $addauthor) = &addauthor($biblionumber);
56 my @items = &ItemInfo(undef, $biblionumber, 'opac');
58 $dat->{'additional'}=$addauthor->[0]->{'author'};
59 for (my $i = 1; $i < $authorcount; $i++) {
60 $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
63 $dat->{'biblionumber'} = $biblionumber;
64 $dat->{ITEM_RESULTS} = \@items;
65 $sth->execute($biblionumber);
66 my ($bibid) = $sth->fetchrow;
67 my $record = MARCgetbiblio($dbh,$bibid);
68 $iso2709 .= $record->as_usmarc();
70 push (@results, $dat);
73 $email_header = encode_qp($email_header);
75 $boundary = "--" . $boundary;
77 # Analysing information and getting mail properties
78 if ($template_res =~ /<SUBJECT>\n(.*)\n<END_SUBJECT>/s) { $mail{'subject'} = $1; }
79 else { $mail{'subject'} = "no subject"; }
81 my $email_header = "";
82 if ($template_res =~ /<HEADER>\n(.*)\n<END_HEADER>/s) { $email_header = $1; }
84 my $email_file = "basket.txt";
85 if ($template_res =~ /<FILENAME>\n(.*)\n<END_FILENAME>/s) { $email_file = $1; }
87 if ($template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s) { $mail{'body'} = $1; }
89 my $boundary = "====" . time() . "====";
90 # $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
92 # $email_header = encode_qp($email_header);
94 # $boundary = "--".$boundary;
98 $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
100 my $message = encode_qp( "" );
102 # $file = $^X; # This is the perl executable
104 # open (F, $file) or die "Cannot read $file: $!";
105 # binmode F; undef $/;
106 $mail{body} = encode_base64($iso2709);
109 $boundary = '--'.$boundary;
110 $mail{body} = <<END_OF_BODY;
112 Content-Type: text/plain; charset="iso-8859-1"
113 Content-Transfer-Encoding: quoted-printable
117 Content-Type: application/octet-stream; name="basket"
118 Content-Transfer-Encoding: base64
119 Content-Disposition: attachment; filename="basket"
129 Content-Type: text/plain; charset="iso-8859-1"
130 Content-Transfer-Encoding: quoted-printable
139 $mail{attachment} = $iso2709;
140 # $mail{body} = <<END_OF_BODY;
142 #Content-Type: text/plain; charset="iso-8859-1"
143 #Content-Transfer-Encoding: quoted-printable
148 #Content-Type: text/plain; name="$email_file"
149 #Content-Transfer-Encoding: quoted-printable
150 #Content-Disposition: attachment; filename="$email_file"
158 if (sendmail %mail) {
159 # do something if it works....
160 # warn " ".$mail{body};
161 # warn " ".$mail{PJ};
162 $template->param(SENT => "1");
163 $template->param(email_add => $email_add);
165 # do something if it doesnt work....
166 warn "Error sending mail: $Mail::Sendmail::error \n";
169 output_html_with_http_headers $query, $cookie, $template->output;
172 $template->param(bib_list => $bib_list);
173 $template->param(url => "/cgi-bin/koha/opac-sendbasket.pl",
174 suggestion => C4::Context->preference("suggestion"),
175 virtualshelves => C4::Context->preference("virtualshelves"),
177 output_html_with_http_headers $query, $cookie, $template->output;