Bug 4472 Fix how   are injected into XSL files
[koha.git] / basket / sendbasket.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA  02111-1307 USA
17
18 use strict;
19 use warnings;
20
21 use CGI;
22 use Encode qw(encode);
23
24 use Mail::Sendmail;
25 use MIME::QuotedPrint;
26 use MIME::Base64;
27 use C4::Biblio;
28 use C4::Items;
29 use C4::Auth;
30 use C4::Output;
31 use C4::Biblio;
32
33 my $query = new CGI;
34
35 my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
36     {
37         template_name   => "basket/sendbasketform.tmpl",
38         query           => $query,
39         type            => "intranet",
40         authnotrequired => 0,
41         flagsrequired   => { borrow => 1 },
42     }
43 );
44
45 my $bib_list     = $query->param('bib_list');
46 my $email_add    = $query->param('email_add');
47 my $email_sender = $query->param('email_sender');
48
49 my $dbh          = C4::Context->dbh;
50
51 if ( $email_add ) {
52     my $email_from = C4::Context->preference('KohaAdminEmailAddress');
53     my $comment    = $query->param('comment');
54     my %mail = (
55         To   => $email_add,
56         From => $email_from
57     );
58
59     my ( $template2, $borrowernumber, $cookie ) = get_template_and_user(
60         {
61             template_name   => "basket/sendbasket.tmpl",
62             query           => $query,
63             type            => "intranet",
64             authnotrequired => 0,
65             flagsrequired   => { borrow => 1 },
66         }
67     );
68
69     my @bibs = split( /\//, $bib_list );
70     my @results;
71     my $iso2709;
72     my $marcflavour = C4::Context->preference('marcflavour');
73     foreach my $biblionumber (@bibs) {
74         $template2->param( biblionumber => $biblionumber );
75
76         my $dat              = GetBiblioData($biblionumber);
77         my $record           = GetMarcBiblio($biblionumber);
78         my $marcnotesarray   = GetMarcNotes( $record, $marcflavour );
79         my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour );
80         my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour );
81
82         my @items = &GetItemsInfo( $biblionumber, 'opac' );
83
84         my $hasauthors = 0;
85         if($dat->{'author'} || @$marcauthorsarray) {
86           $hasauthors = 1;
87         }
88         
89
90         $dat->{MARCNOTES}      = $marcnotesarray;
91         $dat->{MARCSUBJCTS}    = $marcsubjctsarray;
92         $dat->{MARCAUTHORS}    = $marcauthorsarray;
93         $dat->{HASAUTHORS}     = $hasauthors;
94         $dat->{'biblionumber'} = $biblionumber;
95         $dat->{ITEM_RESULTS}   = \@items;
96
97         $iso2709 .= $record->as_usmarc();
98
99         push( @results, $dat );
100     }
101
102     my $resultsarray = \@results;
103     $template2->param(
104         BIBLIO_RESULTS => $resultsarray,
105         email_sender   => $email_sender,
106         comment        => $comment
107     );
108
109     # Getting template result
110     my $template_res = $template2->output();
111     my $body;
112
113     # Analysing information and getting mail properties
114     if ( $template_res =~ /<SUBJECT>\n(.*)\n<END_SUBJECT>/s ) {
115         $mail{'subject'} = $1;
116     }
117     else { $mail{'subject'} = "no subject"; }
118
119     my $email_header = "";
120     if ( $template_res =~ /<HEADER>\n(.*)\n<END_HEADER>/s ) {
121         $email_header = $1;
122     }
123
124     my $email_file = "basket.txt";
125     if ( $template_res =~ /<FILENAME>\n(.*)\n<END_FILENAME>/s ) {
126         $email_file = $1;
127     }
128
129     if ( $template_res =~ /<MESSAGE>\n(.*)\n<END_MESSAGE>/s ) { $body = encode_qp($1); }
130
131     my $boundary = "====" . time() . "====";
132
133     #     $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
134     #
135     #     $email_header = encode_qp($email_header);
136     #
137     #     $boundary = "--".$boundary;
138     #
139     #     # Writing mail
140     #     $mail{body} =
141     $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
142     my $isofile = encode_base64(encode("UTF-8", $iso2709));
143     $boundary = '--' . $boundary;
144     $mail{body} = <<END_OF_BODY;
145 $boundary
146 Content-Type: text/plain; charset="utf-8"
147 Content-Transfer-Encoding: quoted-printable
148
149 $email_header
150 $body
151 $boundary
152 Content-Type: application/octet-stream; name="basket.iso2709"
153 Content-Transfer-Encoding: base64
154 Content-Disposition: attachment; filename="basket.iso2709"
155
156 $isofile
157 $boundary--
158 END_OF_BODY
159
160     # Sending mail
161     if ( sendmail %mail ) {
162         # do something if it works....
163         $template->param( SENT      => "1" );
164     }
165     else {
166         # do something if it doesnt work....
167         warn "Error sending mail: $Mail::Sendmail::error \n";
168         $template->param( error => 1 );
169     }
170     $template->param( email_add => $email_add );
171     output_html_with_http_headers $query, $cookie, $template->output;
172 }
173 else {
174     $template->param( bib_list => $bib_list );
175     $template->param(
176         url            => "/cgi-bin/koha/basket/sendbasket.pl",
177         suggestion     => C4::Context->preference("suggestion"),
178         virtualshelves => C4::Context->preference("virtualshelves"),
179     );
180     output_html_with_http_headers $query, $cookie, $template->output;
181 }