[Koha-cvs] koha/acqui basket.pl
Mason James
szrj1m at yahoo.com
Wed Jun 7 05:30:44 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Changes by: Mason James <sushi> 06/06/07 03:30:44
Modified files:
acqui : basket.pl
Log message:
Merging Katipo changes.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/basket.pl?cvsroot=koha&r1=1.31&r2=1.32
Patches:
Index: basket.pl
===================================================================
RCS file: /sources/koha/koha/acqui/basket.pl,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- basket.pl 7 Jun 2006 03:25:01 -0000 1.31
+++ basket.pl 7 Jun 2006 03:30:44 -0000 1.32
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: basket.pl,v 1.31 2006/06/07 03:25:01 sushi Exp $
+# $Id: basket.pl,v 1.32 2006/06/07 03:30:44 sushi Exp $
#script to show display basket of orders
#written by chris at katipo.co.nz 24/2/2000
@@ -82,6 +82,8 @@
my $sub_total; # total of line totals
my $gist; # GST
my $grand_total; # $subttotal + $gist
+my $toggle = 0;
+
# my $line_total_est; # total of each line
my $sub_total_est; # total of line totals
@@ -100,6 +102,14 @@
$sub_total += $line_total;
$qty_total += $results[$i]->{'quantity'};
my %line;
+ if ( $toggle == 0 ) {
+ $line{color} = '#EEEEEE';
+ $toggle = 1;
+ }
+ else {
+ $line{color} = 'white';
+ $toggle = 0;
+ }
$line{ordernumber} = $results[$i]->{'ordernumber'};
$line{publishercode} = $results[$i]->{'publishercode'};
$line{isbn} = $results[$i]->{'isbn'};
More information about the Koha-cvs
mailing list