[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Biblio.pm [dev_week]
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/C4 Biblio.pm [dev_week] |
Date: |
Wed, 11 Oct 2006 02:02:31 +0000 |
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) address@hidden;
- my $sth = $dbh->prepare("Update biblio SET frameworkcode=? WHERE
biblionumber=$bibid");
+ my ($dbh,$biblionumber,$frameworkcode) address@hidden;
+ 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
#
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/02
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/03
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/03
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/03
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/03
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/05
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/05
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/07
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/07
- [Koha-cvs] koha/C4 Biblio.pm [dev_week],
Joshua Ferraro <=
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/10