[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