[Koha-cvs] koha/acqui basket.pl [rel_2_2]

paul poulain paul at koha-fr.org
Fri Sep 22 17:49:35 CEST 2006


CVSROOT:	/cvsroot/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	paul poulain <tipaul>	06/09/22 15:49:35

Modified files:
	acqui          : basket.pl 

Log message:
	show library address in basket. Usefull when printing the order list

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/basket.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.24.2.12&r2=1.24.2.13

Patches:
Index: basket.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/basket.pl,v
retrieving revision 1.24.2.12
retrieving revision 1.24.2.13
diff -u -b -r1.24.2.12 -r1.24.2.13
--- basket.pl	13 Sep 2006 18:27:12 -0000	1.24.2.12
+++ basket.pl	22 Sep 2006 15:49:34 -0000	1.24.2.13
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: basket.pl,v 1.24.2.12 2006/09/13 18:27:12 oleonard Exp $
+# $Id: basket.pl,v 1.24.2.13 2006/09/22 15:49:34 tipaul Exp $
 
 #script to show display basket of orders
 #written by chris at katipo.co.nz 24/2/2000
@@ -56,6 +56,9 @@
 my ($count2, at booksellers)=bookseller($booksellerid);
 $booksellers[0]->{'postal'} =~ s/\n/<br\/>/g;
 
+# get branches information, to show branchaddress in template
+my $branches = getbranches();
+
 # get librarian branch...
 if (C4::Context->preference("IndependantBranches")) {
 	my $userenv = C4::Context->userenv;
@@ -143,5 +146,9 @@
 				currency => $booksellers[0]->{'listprice'},
 				qty_total => $qty_total,
 				GST => C4::Context->preference("gist"),
+				branchname => $branches->{C4::Context->userenv->{branch}}->{branchname},
+				branchaddress1 => $branches->{C4::Context->userenv->{branch}}->{branchaddress1},
+				branchaddress2 => $branches->{C4::Context->userenv->{branch}}->{branchaddress2},
+				branchaddress3 => $branches->{C4::Context->userenv->{branch}}->{branchaddress3},
 				);
 output_html_with_http_headers $query, $cookie, $template->output;





More information about the Koha-cvs mailing list