[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/11 02:02:31

Modified files:
	C4             : Biblio.pm 

Log message:
	ModItem wasn't returning the correct value for the redirect
	in additem

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.39&r2=1.115.2.51.2.40

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.51.2.39
retrieving revision 1.115.2.51.2.40
diff -u -b -r1.115.2.51.2.39 -r1.115.2.51.2.40
--- Biblio.pm	7 Oct 2006 19:43:22 -0000	1.115.2.51.2.39
+++ Biblio.pm	11 Oct 2006 02:02:30 -0000	1.115.2.51.2.40
@@ -336,7 +336,7 @@
     # update the MARC record with the new record data
     &MARCmodbiblio($dbh,$biblionumber,$record,$frameworkcode,1);
 
-    # loat the koha-style data
+    # load the koha-table data object
     my $oldbiblio = MARCmarc2koha($dbh,$record,$frameworkcode);
 
     # modify the other koha tables
@@ -358,7 +358,7 @@
         my @subtitlesubfields = $subtitlefield->subfield($tagsubfield);
         # delete & create subtitle again because _koha_modify_subtitle can't handle new subtitles
         # between 2 modifs
-        $dbh->do("delete from bibliosubtitle where biblionumber=$oldbiblionumber");
+        $dbh->do("DELETE FROM bibliosubtitle WHERE biblionumber=$oldbiblionumber");
         foreach my $subfieldcount (0..$#subtitlesubfields) {
             foreach my $subtit(split /\||#/,$subtitlesubfields[$subfieldcount]) {
                 _koha_add_subtitle($dbh,$oldbiblionumber,$subtit);
@@ -400,7 +400,7 @@
     	my $frameworkcode=MARCfind_frameworkcode($dbh,$biblionumber);
     	my $olditem = MARCmarc2koha( $dbh, $record,$frameworkcode );
     	_koha_modify_item( $dbh, $olditem );
-		return undef;
+		return $biblionumber;
 	}
 	# otherwise, we're just looking to modify something quickly
 	# (like a status) so we just update the koha tables
@@ -1682,8 +1682,8 @@
 =cut
 
 sub ModBiblioframework {
-	my ($dbh,$bibid,$frameworkcode) =@_;
-	my $sth = $dbh->prepare("Update biblio SET frameworkcode=? WHERE biblionumber=$bibid");
+	my ($dbh,$biblionumber,$frameworkcode) =@_;
+	my $sth = $dbh->prepare("UPDATE biblio SET frameworkcode=? WHERE biblionumber=$biblionumber");
 	$sth->execute($frameworkcode);
 	return 1;
 }
@@ -3164,8 +3164,12 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.115.2.51.2.39 2006/10/07 19:43:22 kados Exp $
+# $Id: Biblio.pm,v 1.115.2.51.2.40 2006/10/11 02:02:30 kados Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.115.2.51.2.40  2006/10/11 02:02:30  kados
+# ModItem wasn't returning the correct value for the redirect
+# in additem
+#
 # Revision 1.115.2.51.2.39  2006/10/07 19:43:22  kados
 # frameworkcode wasn't being saved on AddBiblio, now it is
 #