[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]

[paul poulain]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     paul poulain <tipaul>   06/12/01 17:00:19

Modified files:
        C4             : Biblio.pm 

Log message:
        additem needs $frameworkcode

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.30&r2=1.178.2.31

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.30
retrieving revision 1.178.2.31
diff -u -b -r1.178.2.30 -r1.178.2.31
--- Biblio.pm   30 Nov 2006 18:23:51 -0000      1.178.2.30
+++ Biblio.pm   1 Dec 2006 17:00:19 -0000       1.178.2.31
@@ -34,7 +34,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.178.2.30 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.178.2.31 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw(Exporter);
 
@@ -324,7 +324,7 @@
         $record->append_fields($newtag);
     }
     # add the item
-    &MARCadditem( $dbh, $record, $item->{'biblionumber'} );
+    &MARCadditem( $dbh, $record, $item->{'biblionumber'},$frameworkcode );
     return ($item->{biblionumber}, $item->{biblioitemnumber},$itemnumber);
 }
 
@@ -3979,8 +3979,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.30 2006/11/30 18:23:51 toins Exp $
+# $Id: Biblio.pm,v 1.178.2.31 2006/12/01 17:00:19 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.31  2006/12/01 17:00:19  tipaul
+# additem needs $frameworkcode
+#
 # Revision 1.178.2.30  2006/11/30 18:23:51  toins
 # theses scripts don't need to use C4::Search.
 #