opac/opac-sendbasket.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 require Exporter;
   4 use CGI;
   5 use Mail::Sendmail;
   6 use MIME::QuotedPrint;
   7 use MIME::Base64;
   8
   9 use C4::Search;
  10 use C4::Biblio;
  11 use C4::Auth;
  12 use C4::Interface::CGI::Output;
  13 use C4::Biblio;
  14 use HTML::Template;
  15
  16 my $query = new CGI;
  17
  18 my ($template, $borrowernumber, $cookie)
  19     = get_template_and_user({template_name => "opac-sendbasketform.tmpl",
  20                              query => $query,
  21                              type => "opac",
  22                              authnotrequired => 1,
  23                              flagsrequired => {borrow => 1},
  24                          });
  25
  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;
  30 my $sth;
  31 $sth=$dbh->prepare("select bibid from marc_biblio where biblionumber=? order by bibid");
  32
  33
  34 if ($email_add) {
  35         my $email_from = C4::Context->preference('KohaAdminEmailAddress');
  36
  37         my %mail = (     To      => $email_add,
  38                                                  From    => $email_from);
  39
  40         my ($template2, $borrowernumber, $cookie)
  41     = get_template_and_user({template_name => "opac-sendbasket.tmpl",
  42                              query => $query,
  43                              type => "opac",
  44                              authnotrequired => 1,
  45                              flagsrequired => {borrow => 1},
  46                          });
  47
  48         my @bibs = split(/\//, $bib_list);
  49         my @results;
  50         my $iso2709;
  51         foreach my $biblionumber (@bibs) {
  52                 $template2->param(biblionumber => $biblionumber);
  53
  54                 my $dat = &bibdata($biblionumber);
  55                 my ($authorcount, $addauthor) = &addauthor($biblionumber);
  56                 my @items                     = &ItemInfo(undef, $biblionumber, 'opac');
  57
  58                 $dat->{'additional'}=$addauthor->[0]->{'author'};
  59                 for (my $i = 1; $i < $authorcount; $i++) {
  60                         $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'};
  61                 }
  62
  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();
  69
  70                 push (@results, $dat);
  71         }
  72
  73         my $resultsarray=\@results;
  74         $template2->param(BIBLIO_RESULTS => $resultsarray,
  75                                         email_sender => $email_sender);
  76
  77         # Getting template result
  78         my $template_res = $template2->output();
  79         my $body;
  80
  81         # Analysing information and getting mail properties
  82         if ($template_res =~ /<SUBJECT>\n(.*)\n<END_SUBJECT>/s) { $mail{'subject'} = $1; }
  83         else { $mail{'subject'} = "no subject"; }
  84
  85         my $email_header = "";
  86         if ($template_res =~ /<HEADER>\n(.*)\n<END_HEADER>/s) { $email_header = $1; }
  87
  88         my $email_file = "basket.txt";
  89         if ($template_res =~ /<FILENAME>\n(.*)\n<END_FILENAME>/s) { $email_file = $1; }
  90
  91         if ($template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s) { $body = $1; }
  92
  93         my $boundary = "====" . time() . "====";
  94 #       $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
  95 #
  96 #       $email_header = encode_qp($email_header);
  97 #
  98 #       $boundary = "--".$boundary;
  99 #
 100 #       # Writing mail
 101 #       $mail{body} =
 102         $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
 103         my $isofile = encode_base64($iso2709);
 104         $boundary = '--'.$boundary;
 105         $mail{body} =
 106 <<END_OF_BODY;
 107 $boundary
 108 Content-Type: text/plain; charset="iso-8859-1"
 109 Content-Transfer-Encoding: quoted-printable
 110
 111 $body
 112 $boundary
 113 Content-Type: application/octet-stream; name="basket.iso2709"
 114 Content-Transfer-Encoding: base64
 115 Content-Disposition: attachment; filename="basket.iso2709"
 116
 117 $isofile
 118 $boundary--
 119 END_OF_BODY
 120
 121         # Sending mail
 122         if (sendmail %mail) {
 123         # do something if it works....
 124                 $template->param(SENT => "1");
 125                 $template->param(email_add => $email_add);
 126         } else {
 127                 # do something if it doesnt work....
 128                 warn "Error sending mail: $Mail::Sendmail::error \n";
 129         }
 130         output_html_with_http_headers $query, $cookie, $template->output;
 131 }
 132 else {
 133         $template->param(bib_list => $bib_list);
 134         $template->param(url => "/cgi-bin/koha/opac-sendbasket.pl",
 135         suggestion => C4::Context->preference("suggestion"),
 136         virtualshelves => C4::Context->preference("virtualshelves"),
 137         );
 138         output_html_with_http_headers $query, $cookie, $template->output;
 139 }