koha-cvs
[Top][All Lists]
Advanced

[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;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]