[Koha-cvs] CVS: koha/opac opac-sendbasket.pl,NONE,1.1

[doXulting]

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;
}