[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]
paul poulain
paul at koha-fr.org
Fri Dec 1 18:00:19 CET 2006
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.
#
More information about the Koha-cvs
mailing list