[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>   07/01/04 17:41:32

Modified files:
        C4             : Biblio.pm 

Log message:
        2 major bugfixes :
        - deletion of an item deleted the whole biblio because of a wrong API
        - create an item was bugguy for default framework

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

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.43
retrieving revision 1.178.2.44
diff -u -b -r1.178.2.43 -r1.178.2.44
--- Biblio.pm   22 Dec 2006 15:09:53 -0000      1.178.2.43
+++ Biblio.pm   4 Jan 2007 17:41:32 -0000       1.178.2.44
@@ -31,7 +31,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.178.2.43 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.178.2.44 $' =~ /\d+/g; 
shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -527,7 +527,7 @@
     my ( $biblionumber, $itemnumber ) = @_;
     my $dbh = C4::Context->dbh;
     &_koha_delete_item( $dbh, $itemnumber );
-    my $newrec = &MARCdelitem( $dbh, $biblionumber, $itemnumber );
+    my $newrec = &MARCdelitem( $biblionumber, $itemnumber );
     &MARCaddbiblio( $newrec, $biblionumber, );
 }
 
@@ -1715,7 +1715,6 @@
     $sth->execute;
     my ( $itemtag, $itemsubfield ) = $sth->fetchrow;
     my @fields = $record->field($itemtag);
-
     # delete the item specified
     foreach my $field (@fields) {
         if ( $field->subfield($itemsubfield) eq $itemnumber ) {
@@ -1913,6 +1912,7 @@
 
 sub MARCkoha2marcOnefield {
     my ( $sth, $record, $kohafieldname, $value, $frameworkcode ) = @_;
+    $frameworkcode='' unless $frameworkcode;
     my $tagfield;
     my $tagsubfield;
 
@@ -3582,8 +3582,13 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.43 2006/12/22 15:09:53 toins Exp $
+# $Id: Biblio.pm,v 1.178.2.44 2007/01/04 17:41:32 tipaul Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.44  2007/01/04 17:41:32  tipaul
+# 2 major bugfixes :
+# - deletion of an item deleted the whole biblio because of a wrong API
+# - create an item was bugguy for default framework
+#
 # Revision 1.178.2.43  2006/12/22 15:09:53  toins
 # removing C4::Database;
 #