[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.12.2.1,1.12.2.2
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Biblio.pm,1.12.2.1,1.12.2.2 |
Date: |
Fri, 04 Oct 2002 21:03:16 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv19171
Modified Files:
Tag: arensb-context
Biblio.pm
Log Message:
Added some missing semicolons.
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.12.2.1
retrieving revision 1.12.2.2
diff -C2 -r1.12.2.1 -r1.12.2.2
*** Biblio.pm 4 Oct 2002 02:24:01 -0000 1.12.2.1
--- Biblio.pm 5 Oct 2002 04:03:14 -0000 1.12.2.2
***************
*** 2,5 ****
--- 2,8 ----
# $Id$
# $Log$
+ # Revision 1.12.2.2 2002/10/05 04:03:14 arensb
+ # Added some missing semicolons.
+ #
# Revision 1.12.2.1 2002/10/04 02:24:01 arensb
# Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
***************
*** 1991,1995 ****
sub OLD_MAYBE_DELETED_newBiblioItem {
my ($env, $biblioitem) = @_;
! my $dbh = C4::Context->dbh
my $biblionumber=$biblioitem->{'biblionumber'};
my $biblioitemnumber=$biblioitem->{'biblioitemnumber'};
--- 1994,1998 ----
sub OLD_MAYBE_DELETED_newBiblioItem {
my ($env, $biblioitem) = @_;
! my $dbh = C4::Context->dbh;
my $biblionumber=$biblioitem->{'biblionumber'};
my $biblioitemnumber=$biblioitem->{'biblioitemnumber'};
***************
*** 2250,2254 ****
sub OLD_MAYBE_DELETED_newItem {
my ($env, $Record_ID, $item) = @_;
! my $dbh = C4::Context->dbh
my $barcode=$item->{'barcode'};
my $q_barcode=$dbh->quote($barcode);
--- 2253,2257 ----
sub OLD_MAYBE_DELETED_newItem {
my ($env, $Record_ID, $item) = @_;
! my $dbh = C4::Context->dbh;
my $barcode=$item->{'barcode'};
my $q_barcode=$dbh->quote($barcode);
***************
*** 2353,2357 ****
my $Record_ID;
my $biblionumber=$biblio->{'biblionumber'};
! my $dbh = C4::Context->dbh
my $sth=$dbh->prepare("select * from biblio where
biblionumber=$biblionumber");
$sth->execute;
--- 2356,2360 ----
my $Record_ID;
my $biblionumber=$biblio->{'biblionumber'};
! my $dbh = C4::Context->dbh;
my $sth=$dbh->prepare("select * from biblio where
biblionumber=$biblionumber");
$sth->execute;
***************
*** 2501,2505 ****
my ($env, $biblioitem) = @_;
! my $dbh = C4::Context->dbh
my $biblioitemnumber=$biblioitem->{'biblioitemnumber'};
--- 2504,2508 ----
my ($env, $biblioitem) = @_;
! my $dbh = C4::Context->dbh;
my $biblioitemnumber=$biblioitem->{'biblioitemnumber'};
***************
*** 2632,2636 ****
my ($env, $item) = @_;
! my $dbh = C4::Context->dbh
my $itemnumber=$item->{'itemnumber'};
my $biblionumber=$item->{'biblionumber'};
--- 2635,2639 ----
my ($env, $item) = @_;
! my $dbh = C4::Context->dbh;
my $itemnumber=$item->{'itemnumber'};
my $biblionumber=$item->{'biblionumber'};
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Biblio.pm,1.12.2.1,1.12.2.2,
Andrew Arensburger <=