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

Owen Leonard oleonard at athenscounty.lib.oh.us
Wed Sep 13 20:27:13 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Owen Leonard <oleonard>	06/09/13 18:27:13

Modified files:
	acqui          : basket.pl 

Log message:
	Formatting currency display to 2 decimal places. Enabling GST system preference to control display of GST values

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

Patches:
Index: basket.pl
===================================================================
RCS file: /sources/koha/koha/acqui/basket.pl,v
retrieving revision 1.24.2.11
retrieving revision 1.24.2.12
diff -u -b -r1.24.2.11 -r1.24.2.12
--- basket.pl	2 Aug 2006 08:33:20 -0000	1.24.2.11
+++ basket.pl	13 Sep 2006 18:27:12 -0000	1.24.2.12
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: basket.pl,v 1.24.2.11 2006/08/02 08:33:20 tipaul Exp $
+# $Id: basket.pl,v 1.24.2.12 2006/09/13 18:27:12 oleonard Exp $
 
 #script to show display basket of orders
 #written by chris at katipo.co.nz 24/2/2000
@@ -134,16 +134,14 @@
 				entrydate => format_date($results[0]->{'entrydate'}),
 				books_loop => \@books_loop,
 				count =>$count,
-				sub_total => $sub_total,
-				gist => $gist,
-				grand_total =>$grand_total,
-				sub_total_est => $sub_total_est,
-				gist_est => $gist_est,
-				grand_total_est =>$grand_total_est,
+				sub_total => sprintf("%.2f",$sub_total),
+				gist => sprintf("%.2f",$gist),
+				grand_total =>sprintf("%.2f",$grand_total),
+				sub_total_est => sprintf("%.2f",$sub_total_est),
+				gist_est => sprintf("%.2f",$gist_est),
+				grand_total_est =>sprintf("%.2f",$grand_total_est),
 				currency => $booksellers[0]->{'listprice'},
 				qty_total => $qty_total,
-				intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-		IntranetNav => C4::Context->preference("IntranetNav"),
+				GST => C4::Context->preference("gist"),
 				);
 output_html_with_http_headers $query, $cookie, $template->output;





More information about the Koha-cvs mailing list