[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: |
Sat, 07 Oct 2006 19:43:22 +0000 |
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
#
- [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 <=
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/10
- [Koha-cvs] koha/C4 Biblio.pm [dev_week], Joshua Ferraro, 2006/10/10