From 38f7d2148ac26c565642f7b323052f723223aefd Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Wed, 13 Jun 2007 13:03:34 +0000
Subject: [PATCH] removing warn compilation.

---
 C4/Biblio.pm   | 10 +++++-----
 C4/Members.pm  |  2 +-
 C4/Reserves.pm |  2 +-
 C4/Search.pm   |  2 +-
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/C4/Biblio.pm b/C4/Biblio.pm
index 995962dcff..7ee3bcc00e 100644
--- a/C4/Biblio.pm
+++ b/C4/Biblio.pm
@@ -270,8 +270,7 @@ sub AddBiblio {
     }
 
     # now add the record
-    my $biblionumber =
-      ModBiblioMarc( $record, $biblionumber, $frameworkcode );
+    $biblionumber = ModBiblioMarc( $record, $biblionumber, $frameworkcode );
       
     &logaction(C4::Context->userenv->{'number'},"CATALOGUING","ADD",$biblionumber,"biblio") 
         if C4::Context->preference("CataloguingLog");
@@ -385,7 +384,7 @@ sub ModBiblio {
     my $oldbiblio = TransformMarcToKoha( $dbh, $record, $frameworkcode );
 
     # modify the other koha tables
-    my $biblionumber = _koha_modify_biblio( $dbh, $oldbiblio );
+    $biblionumber = _koha_modify_biblio( $dbh, $oldbiblio );
     _koha_modify_biblioitem( $dbh, $oldbiblio );
 
     return 1;
@@ -1423,8 +1422,6 @@ $frameworkcode : the framework code to read
 
 =back
 
-=back
-
 =cut
 
 sub GetMarcStructure {
@@ -3917,6 +3914,9 @@ Joshua Ferraro jmf@liblime.com
 
 # $Id$
 # $Log$
+# Revision 1.210  2007/06/13 13:03:34  toins
+# removing warn compilation.
+#
 # Revision 1.209  2007/05/23 16:19:40  tipaul
 # various bugfixes (minor) and french translation updated
 #
diff --git a/C4/Members.pm b/C4/Members.pm
index 502d0f35f1..0a03aebf64 100644
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -1619,7 +1619,7 @@ sub DelMember {
        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;
diff --git a/C4/Reserves.pm b/C4/Reserves.pm
index 10cb366e24..d9ffea3cb4 100755
--- a/C4/Reserves.pm
+++ b/C4/Reserves.pm
@@ -939,7 +939,7 @@ sub ModReserveMinusPriority {
             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;
diff --git a/C4/Search.pm b/C4/Search.pm
index a74c9b8974..64447e2d5e 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -1474,7 +1474,7 @@ sub NZorder {
             # 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
-- 
2.39.2