[Koha-cvs] koha/C4 Biblio.pm

[Antoine Farnault]

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

Modified files:
        C4             : Biblio.pm 

Log message:
        removing warn compilation.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.209&r2=1.210

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.209
retrieving revision 1.210
diff -u -b -r1.209 -r1.210
--- Biblio.pm   23 May 2007 16:19:40 -0000      1.209
+++ Biblio.pm   13 Jun 2007 13:03:34 -0000      1.210
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.209 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.210 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -270,8 +270,7 @@
     }
 
     # 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 @@
     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 @@
 
 =back
 
-=back
-
 =cut
 
 sub GetMarcStructure {
@@ -3915,8 +3912,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.209 2007/05/23 16:19:40 tipaul Exp $
+# $Id: Biblio.pm,v 1.210 2007/06/13 13:03:34 toins Exp $
 # $Log: Biblio.pm,v $
+# 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
 #