[Koha-cvs] koha/opac opac-sendbasket.pl [rel_2_2]
Joshua Ferraro
jmf at liblime.com
Thu Apr 5 07:12:16 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados> 07/04/05 05:12:16
Modified files:
opac : opac-sendbasket.pl
Log message:
adding borrower data to sendbasket
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/opac/opac-sendbasket.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.4.2.5&r2=1.4.2.6
Patches:
Index: opac-sendbasket.pl
===================================================================
RCS file: /sources/koha/koha/opac/opac-sendbasket.pl,v
retrieving revision 1.4.2.5
retrieving revision 1.4.2.6
diff -u -b -r1.4.2.5 -r1.4.2.6
--- opac-sendbasket.pl 4 Oct 2005 15:26:59 -0000 1.4.2.5
+++ opac-sendbasket.pl 5 Apr 2007 05:12:16 -0000 1.4.2.6
@@ -8,6 +8,7 @@
use C4::Search;
use C4::Biblio;
+use C4::Circulation::Circ2; #getpatroninfo
use C4::Auth;
use C4::Interface::CGI::Output;
use HTML::Template;
@@ -40,10 +41,17 @@
= get_template_and_user({template_name => "opac-sendbasket.tmpl",
query => $query,
type => "opac",
- authnotrequired => 1,
+ authnotrequired => 0, #C4::Context->preference("bookbagRequireLogin"),
flagsrequired => {borrow => 1},
});
+ my ($borrowerdata, $borflags ) = getpatroninformation(undef, $borrowernumber);
+ unless ( $borrowerdata) {
+ my %borhash = ( cardnumber => "None" ,name => $borrowernumber );
+ $borrowerdata =\%borhash;
+ }
+ $borrowerdata->{'branchname'} = getbranchname($borrowerdata->{'branchcode'});
+
my @bibs = split(/\//, $bib_list);
my @results;
my $iso2709;
@@ -71,7 +79,13 @@
my $resultsarray=\@results;
$template2->param(BIBLIO_RESULTS => $resultsarray,
- email_sender => $email_sender);
+ email_sender => $email_sender,
+ requester_cardnumber => $borrowerdata->{'cardnumber'},
+ requester_name => "$borrowerdata->{'firstname'} $borrowerdata->{'surname'}",
+ requester_email => $borrowerdata->{'emailaddress'},
+ requester_branch=> $borrowerdata->{'branchname'},
+ requester_address => $borrowerdata->{'streetaddress'},
+ );
# Getting template result
my $template_res = $template2->output();
More information about the Koha-cvs
mailing list