[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/opac opac-sendbasket.pl,NONE,1.1
From: |
doXulting |
Subject: |
[Koha-cvs] CVS: koha/opac opac-sendbasket.pl,NONE,1.1 |
Date: |
Mon, 12 Jul 2004 01:10:42 -0700 |
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv30375/opac
Added Files:
opac-sendbasket.pl
Log Message:
Functions for Basket sending
--- NEW FILE ---
#!/usr/bin/perl
use strict;
require Exporter;
use CGI;
use Mail::Sendmail;
use MIME::QuotedPrint;
use MIME::Base64;
use C4::Search;
use C4::Auth;
use C4::Interface::CGI::Output;
use HTML::Template;
my $query = new CGI;
my ($template, $borrowernumber, $cookie)
= get_template_and_user({template_name => "opac-sendbasketform.tmpl",
query => $query,
type => "opac",
authnotrequired => 1,
flagsrequired => {borrow => 1},
});
my $bib_list=$query->param('bib_list');
my $email_add=$query->param('email_add');
if ($email_add) {
my $email_from = C4::Context->preference('KohaAdminEmailAddress');
my %mail = ( To => $email_add,
From => $email_from);
my ($template2, $borrowernumber, $cookie)
= get_template_and_user({template_name => "opac-sendbasket.tmpl",
query => $query,
type => "opac",
authnotrequired => 1,
flagsrequired => {borrow => 1},
});
my @bibs = split(/\//, $bib_list);
my @results;
foreach my $biblionumber (@bibs) {
$template2->param(biblionumber => $biblionumber);
my $dat = &bibdata($biblionumber);
my ($authorcount, $addauthor) = &addauthor($biblionumber);
$dat->{'additional'}=$addauthor->[0]->{'author'};
for (my $i = 1; $i < $authorcount; $i++) {
$dat->{'additional'} .= "|" .
$addauthor->[$i]->{'author'};
}
$dat->{'biblionumber'} = $biblionumber;
push (@results, $dat);
}
my address@hidden;
$template2->param(BIBLIO_RESULTS => $resultsarray);
# Getting template result
my $template_res = $template2->output();
# Analysing information and getting mail properties
if ($template_res =~ /§SUBJECT§\n(.*)\n§END_SUBJECT§/s) {
$mail{'subject'} = $1; }
else { $mail{'subject'} = "no subject"; }
my $email_header = "";
if ($template_res =~ /§HEADER§\n(.*)\n§END_HEADER§/s) { $email_header =
$1; }
my $email_file = "basket.txt";
if ($template_res =~ /§FILENAME§\n(.*)\n§END_FILENAME§/s) { $email_file
= $1; }
if ($template_res =~ /§MESSAGE§\n(.*)\n§END_MESSAGE§/s) { $mail{'body'}
= $1; }
my $boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$email_header = encode_qp($email_header);
$boundary = "--".$boundary;
# Writing mail
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
$email_header
$boundary
Content-Type: text/plain; name="$email_file"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment; filename="$email_file"
$mail{'body'}
$boundary--
END_OF_BODY
# Sending mail
if (sendmail %mail) {
# do something if it works....
warn "Mail sent ok\n";
$template->param(SENT => "1");
$template->param(email_add => $email_add);
} else {
# do something if it doesnt work....
warn "Error sending mail: $Mail::Sendmail::error \n";
}
output_html_with_http_headers $query, $cookie, $template->output;
}
else {
$template->param(bib_list => $bib_list);
$template->param(url => "/cgi-bin/koha/opac-sendbasket.pl");
output_html_with_http_headers $query, $cookie, $template->output;
}
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/opac opac-sendbasket.pl,NONE,1.1,
doXulting <=