[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.13,1.14
From: |
Alan Millar |
Subject: |
[Koha-cvs] CVS: koha/C4 Catalogue.pm,1.13,1.14 |
Date: |
Sat, 18 May 2002 00:01:29 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv1174/C4
Modified Files:
Catalogue.pm
Log Message:
Some cleanup, reformatting, fix some undeclared variables
Index: Catalogue.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -r1.13 -r1.14
*** Catalogue.pm 16 May 2002 23:08:05 -0000 1.13
--- Catalogue.pm 18 May 2002 07:01:27 -0000 1.14
***************
*** 65,76 ****
my ($env, $biblio) = @_;
my $dbh=&C4Connect;
- my $title=$biblio->{'title'};
- my $subtitle=$biblio->{'subtitle'};
- my $author=$biblio->{'author'};
- my $unititle=$biblio->{'unititle'};
- my $copyrightdate=$biblio->{'copyrightdate'};
- my $serial=$biblio->{'serial'};
- my $seriestitle=$biblio->{'seriestitle'};
- my $notes=$biblio->{'notes'};
my $subject=$biblio->{'subject'};
my $additionalauthors=$biblio->{'additionalauthors'};
--- 65,68 ----
***************
*** 80,99 ****
# biblionumber...
my $sth=$dbh->prepare("select max(biblionumber) from biblio");
$sth->execute;
my ($biblionumber) = $sth->fetchrow;
$biblionumber++;
! $sth=$dbh->prepare("insert into biblio
(biblionumber,title,author,unititle,copyrightdate,serial,seriestitle,notes)
values (?, ?, ?, ?, ?, ?, ?, ?)");
! $sth->execute($biblionumber, $title, $author, $unititle, $copyrightdate,
$serial, $seriestitle, $notes);
! $sth=$dbh->prepare("insert into bibliosubtitle (biblionumber,subtitle)
values ($biblionumber,$q_subtitle)");
! $sth->execute;
! foreach (@$subject) {
! my $q_subject=$dbh->quote($_);
! my $sth=$dbh->prepare("insert into bibliosubject (biblionumber,subject)
values ($biblionumber,$q_subject)");
! $sth->execute;
}
! foreach (@$additionalauthors) {
! my $sth=$dbh->prepare("insert into additionalauthors
(biblionumber,author) values (?, ?)");
! $sth->execute($biblionumber, $additionalauthor);
}
}
--- 72,105 ----
# biblionumber...
+ # Get next biblio number
my $sth=$dbh->prepare("select max(biblionumber) from biblio");
$sth->execute;
my ($biblionumber) = $sth->fetchrow;
$biblionumber++;
!
! $sth=$dbh->prepare("insert into biblio
! (biblionumber,title,author,
! unititle,copyrightdate,
! serial,seriestitle,notes)
! values (?, ?, ?, ?, ?, ?, ?, ?)");
! $sth->execute($biblionumber, $biblio->{'title'}, $biblio->{'author'},
! $biblio->{'unititle'}, $biblio->{'copyrightdate'},
! $biblio->{'serial'}, $biblio->{'seriestitle'}, $biblio->{'notes'} );
! $sth=$dbh->prepare("insert into bibliosubtitle
! (biblionumber,subtitle)
! values (?,?)");
! $sth->execute($biblionumber, $biblio->{'subtitle'} );
!
! my $sth=$dbh->prepare("insert into bibliosubject
! (biblionumber,subject)
! values (?,?) ");
! foreach $_ (@$subject) {
! $sth->execute($biblionumber,$_);
}
! my $sth=$dbh->prepare("insert into additionalauthors
! (biblionumber,author)
! values (?, ?)");
! foreach $_ (@$additionalauthors) {
! $sth->execute($biblionumber, $_ );
}
}
***************
*** 102,110 ****
sub changeSubfield {
# Subroutine changes a subfield value given a subfieldid.
! my $subfieldid=shift;
! my $subfieldvalue=shift;
my $dbh=&c4connect;
my $sth=$dbh->prepare("update marc_$firstdigit\XX_subfield_table set
subfieldvalue=? where subfieldid=?");
! $sth->execute($subfieldvalue, $subfieldid;
$dbh->disconnect;
return($Subfield_ID, $Subfield_Key);
--- 108,119 ----
sub changeSubfield {
# Subroutine changes a subfield value given a subfieldid.
! my ( $subfieldid, $subfieldvalue )address@hidden;
!
! my $firstdigit="?";
!
my $dbh=&c4connect;
my $sth=$dbh->prepare("update marc_$firstdigit\XX_subfield_table set
subfieldvalue=? where subfieldid=?");
! $sth->execute($subfieldvalue, $subfieldid);
!
$dbh->disconnect;
return($Subfield_ID, $Subfield_Key);
***************
*** 119,122 ****
--- 128,133 ----
my $subfieldvalue=shift;
my $subfieldorder=shift;
+ my $firstdigit="?";
+
my $dbh=&c4connect;
unless ($subfieldorder) {
***************
*** 146,149 ****
--- 157,161 ----
my ($env, $biblio) = @_;
+ my $Record_ID;
my $biblionumber=$biblio->{'biblionumber'};
my $dbh=&C4Connect;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Catalogue.pm,1.13,1.14,
Alan Millar <=