From 38f7d2148ac26c565642f7b323052f723223aefd Mon Sep 17 00:00:00 2001 From: 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.5