[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 address@hidden 23/2/2000
@@ -91,7 +91,11 @@
 $template->param(
     loop_suppliers => address@hidden,
     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;