[Koha-cvs] koha/acqui order.pl

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	Mason James <sushi>	06/06/07 19:49:11

Modified files:
	acqui          : order.pl 

Log message:
	OOPS, adding back Joshua's changes.
	Adds script support for IntranetNav ... see mail to koha-devel for
	details.
	Adds support for intranetstylesheet system pref in Koha scripts.
	Adds support for intranetcolorstylesheet.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/order.pl?cvsroot=koha&r1=1.15&r2=1.16

Patches:
Index: order.pl
===================================================================
RCS file: /sources/koha/koha/acqui/order.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -b -r1.15 -r1.16
--- order.pl	7 Jun 2006 19:33:33 -0000	1.15
+++ order.pl	7 Jun 2006 19:49:11 -0000	1.16
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: order.pl,v 1.15 2006/06/07 19:33:33 sushi Exp $
+# $Id: order.pl,v 1.16 2006/06/07 19:49:11 sushi Exp $
 
 #script to show suppliers and orders
 #written by chris at katipo.co.nz 23/2/2000
@@ -91,7 +91,11 @@
 $template->param(
     loop_suppliers => \@loop_suppliers,
     supplier       => $supplier,
-    count          => $count
+    count                   => $count,
+    intranetcolorstylesheet =>
+      C4::Context->preference("intranetcolorstylesheet"),
+    intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+    IntranetNav        => C4::Context->preference("IntranetNav"),
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;