[Koha-cvs] koha/acqui acqui-home.pl neworderempty.pl parce... [rel_3_0]

[Antoine Farnault]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Antoine Farnault <toins>	07/01/09 09:43:27

Modified files:
	acqui          : acqui-home.pl neworderempty.pl parcels.pl 

Log message:
	removing warn compilation. (perl -wc)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/acqui-home.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.15.2.2&r2=1.15.2.3
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/neworderempty.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.6&r2=1.1.2.7
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/parcels.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2.2.2&r2=1.2.2.3

Patches:
Index: acqui-home.pl
===================================================================
RCS file: /sources/koha/koha/acqui/acqui-home.pl,v
retrieving revision 1.15.2.2
retrieving revision 1.15.2.3
diff -u -b -r1.15.2.2 -r1.15.2.3
--- acqui-home.pl	22 Dec 2006 15:02:56 -0000	1.15.2.2
+++ acqui-home.pl	9 Jan 2007 09:43:27 -0000	1.15.2.3
@@ -15,7 +15,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: acqui-home.pl,v 1.15.2.2 2006/12/22 15:02:56 toins Exp $
+# $Id: acqui-home.pl,v 1.15.2.3 2007/01/09 09:43:27 toins Exp $
 
 
 =head1 NAME
@@ -95,7 +95,7 @@
 
 # currencies
 my @rates = GetCurrencies();
-my $count = scalar @rates;
+$count = scalar @rates;
 
 my @loop_currency = ();
 for ( my $i = 0 ; $i < $count ; $i++ ) {

Index: neworderempty.pl
===================================================================
RCS file: /sources/koha/koha/acqui/neworderempty.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -b -r1.1.2.6 -r1.1.2.7
--- neworderempty.pl	9 Jan 2007 09:15:59 -0000	1.1.2.6
+++ neworderempty.pl	9 Jan 2007 09:43:27 -0000	1.1.2.7
@@ -143,7 +143,7 @@
 
 # get currencies (for change rates calcs if needed)
 my @rates = GetCurrencies();
-my $count = scalar @rates;
+$count = scalar @rates;
 
 my @loop_currency = ();
 for ( my $i = 0 ; $i < $count ; $i++ ) {

Index: parcels.pl
===================================================================
RCS file: /sources/koha/koha/acqui/Attic/parcels.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -u -b -r1.2.2.2 -r1.2.2.3
--- parcels.pl	22 Dec 2006 15:02:56 -0000	1.2.2.2
+++ parcels.pl	9 Jan 2007 09:43:27 -0000	1.2.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: parcels.pl,v 1.2.2.2 2006/12/22 15:02:56 toins Exp $
+# $Id: parcels.pl,v 1.2.2.3 2007/01/09 09:43:27 toins Exp $
 
 #script to show display basket of orders
 #written by chris at katipo.co.nz 24/2/2000
@@ -96,7 +96,7 @@
 
 $resultsperpage = 20 unless ($resultsperpage);
 my @results =GetParcels($supplierid, $order, $code,$datefrom,$dateto);
-my $count = scalar @results;
+$count = scalar @results;
 
 # multi page display gestion
 $startfrom=0 unless ($startfrom);