[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/acqui basket.pl [rel_2_2]
From: |
paul poulain |
Subject: |
[Koha-cvs] koha/acqui basket.pl [rel_2_2] |
Date: |
Fri, 22 Sep 2006 15:49:35 +0000 |
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 address@hidden 24/2/2000
@@ -56,6 +56,9 @@
my ($count2,@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;