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

[Joshua Ferraro]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/10/07 19:43:22

Modified files:
	C4             : Biblio.pm 

Log message:
	frameworkcode wasn't being saved on AddBiblio, now it is

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.115.2.51.2.38&r2=1.115.2.51.2.39

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.38
retrieving revision 1.115.2.51.2.39
diff -u -b -r1.115.2.51.2.38 -r1.115.2.51.2.39
--- Biblio.pm	7 Oct 2006 17:22:10 -0000	1.115.2.51.2.38
+++ Biblio.pm	7 Oct 2006 19:43:22 -0000	1.115.2.51.2.39
@@ -147,7 +147,7 @@
 
     # transform the data into koha-table style data
     my $olddata = MARCmarc2koha( $dbh, $record,$frameworkcode );
-    $oldbibnum = _koha_add_biblio( $dbh, $olddata );
+    $oldbibnum = _koha_add_biblio( $dbh, $olddata,$frameworkcode );
     $olddata->{'biblionumber'} = $oldbibnum;
     $oldbibitemnum = _koha_add_biblioitem( $dbh, $olddata );
 
@@ -491,6 +491,7 @@
 	$sth->execute($biblionumber);
 	$sth = $dbh->prepare("DELETE FROM additionalauthors WHERE biblionumber=?");
 	$sth->execute($biblionumber);
+	return undef;
 }
 
 
@@ -1178,8 +1179,7 @@
 
 sub MARCfind_frameworkcode {
     my ( $dbh, $bibid ) = @_;
-    my $sth =
-      $dbh->prepare("select frameworkcode from biblio where biblionumber=?");
+    my $sth = $dbh->prepare("select frameworkcode from biblio where biblionumber=?");
     $sth->execute($bibid);
     my ($frameworkcode) = $sth->fetchrow;
     return $frameworkcode;
@@ -1404,7 +1404,7 @@
                         	$ind2 = substr(@$indicator[$j],1,1);
 						} 
 						else {
-							warn "Indicator is empty";
+							warn "Indicator in @$tags[$i] is empty";
 							$ind2 = " ";
 						}
                         $xml.="<datafield tag=\"@$tags[$i]\" ind1=\"$ind1\" ind2=\"$ind2\">\n";
@@ -1703,7 +1703,7 @@
 =cut
 
 sub _koha_add_biblio {
-    my ( $dbh, $biblio ) = @_;
+    my ( $dbh, $biblio,$frameworkcode ) = @_;
     my $sth = $dbh->prepare("Select max(biblionumber) from biblio");
     $sth->execute;
     my $data   = $sth->fetchrow_arrayref;
@@ -1714,14 +1714,14 @@
     $sth->finish;
     $sth = $dbh->prepare(
 	"INSERT INTO biblio
-	SET biblionumber  = ?, title = ?, author = ?, copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?, unititle = ?"
+	SET biblionumber  = ?, title = ?, author = ?, copyrightdate = ?, serial = ?, seriestitle = ?, notes = ?, abstract = ?, unititle = ?, frameworkcode = ? "
     );
     $sth->execute(
         $biblionumber,$biblio->{'title'},
         $biblio->{'author'}, $biblio->{'copyrightdate'},
         $biblio->{'serial'},$biblio->{'seriestitle'},
         $biblio->{'notes'},$biblio->{'abstract'},
-		$biblio->{'unititle'},
+		$biblio->{'unititle'},$frameworkcode
     );
 
     $sth->finish;
@@ -3164,8 +3164,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.38 2006/10/07 17:22:10 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.39 2006/10/07 19:43:22 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.39  2006/10/07 19:43:22  kados
+# frameworkcode wasn't being saved on AddBiblio, now it is
+#
 # Revision 1.115.2.51.2.38  2006/10/07 17:22:10  kados
 # add ccode when adding a new biblioitem
 #