[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