[Koha-cvs] koha/acqui newbiblio.pl recieveorder.pl supplie... [rel_2_2]

[Owen Leonard]

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

Modified files:
        acqui          : newbiblio.pl recieveorder.pl supplier.pl 

Log message:
        Enabling GST system preference to control display of GST values

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/newbiblio.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.21.2.7&r2=1.21.2.8
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/recieveorder.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.7&r2=1.9.2.8
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/supplier.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.9.2.5&r2=1.9.2.6

Patches:
Index: newbiblio.pl
===================================================================
RCS file: /sources/koha/koha/acqui/Attic/newbiblio.pl,v
retrieving revision 1.21.2.7
retrieving revision 1.21.2.8
diff -u -b -r1.21.2.7 -r1.21.2.8
--- newbiblio.pl        20 Jun 2006 16:21:42 -0000      1.21.2.7
+++ newbiblio.pl        13 Sep 2006 18:28:12 -0000      1.21.2.8
@@ -205,9 +205,7 @@
                                                ecost => $data->{'ecost'},
                                                notes => $data->{'notes'},
                                                publishercode => 
$data->{'publishercode'},
-                                               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 $input, $cookie, $template->output;

Index: recieveorder.pl
===================================================================
RCS file: /sources/koha/koha/acqui/Attic/recieveorder.pl,v
retrieving revision 1.9.2.7
retrieving revision 1.9.2.8
diff -u -b -r1.9.2.7 -r1.9.2.8
--- recieveorder.pl     4 Apr 2006 13:33:52 -0000       1.9.2.7
+++ recieveorder.pl     13 Sep 2006 18:28:12 -0000      1.9.2.8
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: recieveorder.pl,v 1.9.2.7 2006/04/04 13:33:52 tipaul Exp $
+# $Id: recieveorder.pl,v 1.9.2.8 2006/09/13 18:28:12 oleonard Exp $
 
 #script to show display basket of orders
 #written by address@hidden 24/2/2000
@@ -124,9 +124,7 @@
 $template->param(
                name => $booksellers[0]->{'name'},
                supplierid => $supplierid,
-               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 $input, $cookie, $template->output;

Index: supplier.pl
===================================================================
RCS file: /sources/koha/koha/acqui/supplier.pl,v
retrieving revision 1.9.2.5
retrieving revision 1.9.2.6
diff -u -b -r1.9.2.5 -r1.9.2.6
--- supplier.pl 15 Jun 2006 09:54:46 -0000      1.9.2.5
+++ supplier.pl 13 Sep 2006 18:28:12 -0000      1.9.2.6
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: supplier.pl,v 1.9.2.5 2006/06/15 09:54:46 hdl Exp $
+# $Id: supplier.pl,v 1.9.2.6 2006/09/13 18:28:12 oleonard Exp $
 
 #script to show display basket of orders
 #written by address@hidden 24/2/2000
@@ -74,9 +74,7 @@
                                        discount => 
$booksellers[0]->{'discount'},
                                        
invoiceprice=>$booksellers[0]->{'invoiceprice'},
                                        
listprice=>$booksellers[0]->{'listprice'},
-                                       intranetcolorstylesheet => 
C4::Context->preference("intranetcolorstylesheet"),
-                                       intranetstylesheet => 
C4::Context->preference("intranetstylesheet"),
-                                       IntranetNav => 
C4::Context->preference("IntranetNav"),
+                                       GST => C4::Context->preference("gist"),
                                        );
 }else{
        my  ($count, $currencies) = &getcurrencies();
@@ -120,9 +118,7 @@
                                                discount => 
$booksellers[0]->{'discount'},
                                                loop_pricescurrency => 
address@hidden,
                                                loop_invoicecurrency => 
address@hidden,
-                                               intranetcolorstylesheet => 
C4::Context->preference("intranetcolorstylesheet"),
-                       intranetstylesheet => 
C4::Context->preference("intranetstylesheet"),
-                       IntranetNav => C4::Context->preference("IntranetNav"),
+                                               GST => 
C4::Context->preference("gist"),
                        enter=>1,
                                                );
 }