[Koha-cvs] koha C4/Acquisition.pm C4/Koha.pm acqui/bookfun... [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        07/01/09 17:21:20

Modified files:
        C4             : Acquisition.pm Koha.pm 
        acqui          : bookfund.pl currency.pl 

Log message:
        removing some warns.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Acquisition.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.43.2.7&r2=1.43.2.8
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.40.2.33&r2=1.40.2.34
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/bookfund.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.2&r2=1.2.2.1
http://cvs.savannah.gnu.org/viewcvs/koha/acqui/currency.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.1.2.1&r2=1.1.2.2

Patches:
Index: C4/Acquisition.pm
===================================================================
RCS file: /sources/koha/koha/C4/Acquisition.pm,v
retrieving revision 1.43.2.7
retrieving revision 1.43.2.8
diff -u -b -r1.43.2.7 -r1.43.2.8
--- C4/Acquisition.pm   22 Dec 2006 17:17:39 -0000      1.43.2.7
+++ C4/Acquisition.pm   9 Jan 2007 17:21:20 -0000       1.43.2.8
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Acquisition.pm,v 1.43.2.7 2006/12/22 17:17:39 hdl Exp $
+# $Id: Acquisition.pm,v 1.43.2.8 2007/01/09 17:21:20 toins Exp $
 
 use strict;
 require Exporter;
@@ -30,7 +30,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.43.2.7 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.43.2.8 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
 
 # used in receiveorder subroutine
 # to provide library specific handling
@@ -232,7 +232,7 @@
         }
     }
     $strsth .= " group by aqbasket.basketno order by aqbasket.basketno";
-    warn "$strsth";
+
     my $sth = $dbh->prepare($strsth);
     $sth->execute($supplierid);
     my $results = $sth->fetchall_arrayref({});

Index: C4/Koha.pm
===================================================================
RCS file: /sources/koha/koha/C4/Koha.pm,v
retrieving revision 1.40.2.33
retrieving revision 1.40.2.34
diff -u -b -r1.40.2.33 -r1.40.2.34
--- C4/Koha.pm  9 Jan 2007 10:39:55 -0000       1.40.2.33
+++ C4/Koha.pm  9 Jan 2007 17:21:20 -0000       1.40.2.34
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Koha.pm,v 1.40.2.33 2007/01/09 10:39:55 toins Exp $
+# $Id: Koha.pm,v 1.40.2.34 2007/01/09 17:21:20 toins Exp $
 
 use strict;
 require Exporter;
@@ -25,7 +25,7 @@
 use C4::Output;
 use vars qw($VERSION @ISA @EXPORT);
 
-$VERSION = do { my @v = '$Revision: 1.40.2.33 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.40.2.34 $' =~ /\d+/g; shift(@v) . "." . 
join( "_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -530,7 +530,7 @@
     return $printer;
 }
 
-=item GetLanguages
+=head2 GetLanguages
 
   (@languages) = &GetLanguages($type);
   (@languages) = &GetLanguages($type,$theme);

Index: acqui/bookfund.pl
===================================================================
RCS file: /sources/koha/koha/acqui/bookfund.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -u -b -r1.2 -r1.2.2.1
--- acqui/bookfund.pl   7 Jun 2006 11:03:17 -0000       1.2
+++ acqui/bookfund.pl   9 Jan 2007 17:21:20 -0000       1.2.2.1
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
 
 # Copyright 2006 Katipo Communications
 #                                     
@@ -72,7 +72,6 @@
     AND (datecancellationprinted IS NULL
          OR datecancellationprinted = \'0000-00-00\')
 ';
-warn $query;
 my $sth = $dbh->prepare($query);
 $sth->execute( $bookfund, $start, $end );
 my @commited_loop;

Index: acqui/currency.pl
===================================================================
RCS file: /sources/koha/koha/acqui/currency.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -b -r1.1.2.1 -r1.1.2.2
--- acqui/currency.pl   31 Aug 2006 16:45:45 -0000      1.1.2.1
+++ acqui/currency.pl   9 Jan 2007 17:21:20 -0000       1.1.2.2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: currency.pl,v 1.1.2.1 2006/08/31 16:45:45 toins Exp $
+# $Id: currency.pl,v 1.1.2.2 2007/01/09 17:21:20 toins Exp $
 
 #written by address@hidden
 #9/10/2000
@@ -35,7 +35,6 @@
 foreach my $param (@params){
        if ($param ne 'type' && $param !~ /submit/){
                my $data=$input->param($param);
-               warn "$data / $param";
                ModCurrencies($param,$data);
 }
 }