[Koha-cvs] koha/C4 Members.pm Reserves.pm Search.pm

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Antoine Farnault <toins>        07/06/13 13:04:24

Modified files:
        C4             : Members.pm Reserves.pm Search.pm 

Log message:
        removing warn compilation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Members.pm?cvsroot=koha&r1=1.52&r2=1.53
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Reserves.pm?cvsroot=koha&r1=1.11&r2=1.12
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Search.pm?cvsroot=koha&r1=1.144&r2=1.145

Patches:
Index: Members.pm
===================================================================
RCS file: /sources/koha/koha/C4/Members.pm,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- Members.pm  4 May 2007 13:59:53 -0000       1.52
+++ Members.pm  13 Jun 2007 13:04:24 -0000      1.53
@@ -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: Members.pm,v 1.52 2007/05/04 13:59:53 tipaul Exp $
+# $Id: Members.pm,v 1.53 2007/06/13 13:04:24 toins Exp $
 
 use strict;
 require Exporter;
@@ -31,7 +31,7 @@
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
 
-$VERSION = do { my @v = '$Revision: 1.52 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.53 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -1619,7 +1619,7 @@
        FROM borrowers
        WHERE borrowernumber = ?
    ";
-    my $sth = $dbh->prepare($query);
+    $sth = $dbh->prepare($query);
     
&logaction(C4::Context->userenv->{'number'},"MEMBERS","DELETE",$borrowernumber,"")
 
         if C4::Context->preference("BorrowersLog");
     return $sth->rows;

Index: Reserves.pm
===================================================================
RCS file: /sources/koha/koha/C4/Reserves.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -b -r1.11 -r1.12
--- Reserves.pm 24 Apr 2007 16:10:36 -0000      1.11
+++ Reserves.pm 13 Jun 2007 13:04:24 -0000      1.12
@@ -20,7 +20,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: Reserves.pm,v 1.11 2007/04/24 16:10:36 tipaul Exp $
+# $Id: Reserves.pm,v 1.12 2007/06/13 13:04:24 toins Exp $
 
 use strict;
 require Exporter;
@@ -33,7 +33,7 @@
 my $library_name = C4::Context->preference("LibraryName");
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.11 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.12 $' =~ /\d+/g; shift(@v) . "." . join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 =head1 NAME
 
@@ -939,7 +939,7 @@
             AND priority > 0
             AND cancellationdate IS NULL
     ";
-    my $sth_upd = $dbh->prepare($query);
+    $sth_upd = $dbh->prepare($query);
     $sth_upd->execute( $biblionumber );
     $sth_upd->finish;
     $sth_upd->finish;

Index: Search.pm
===================================================================
RCS file: /sources/koha/koha/C4/Search.pm,v
retrieving revision 1.144
retrieving revision 1.145
diff -u -b -r1.144 -r1.145
--- Search.pm   28 May 2007 16:28:43 -0000      1.144
+++ Search.pm   13 Jun 2007 13:04:24 -0000      1.145
@@ -25,7 +25,7 @@
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.144 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.145 $' =~ /\d+/g;
     shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
 };
 
@@ -1474,7 +1474,7 @@
             # note that we + the ranking because ranking is calculated on 
weight of EACH term requested.
             # if we ask for "two towers", and "two" has weight 2 in biblio N, 
and "towers" has weight 4 in biblio N
             # biblio N has ranking = 6
-            $count_ranking{$biblionumber} =+ $ranking;
+            $count_ranking{$biblionumber} += $ranking;
         }
         # build the result by "inverting" the count_ranking hash
         # hing : as usual, we don't order by ranking only, to avoid having 
only 1 result for each rank. We build an hash on concat(ranking,biblionumber) 
instead