[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.24,1.24.2.1
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.24,1.24.2.1 |
Date: |
Thu, 03 Oct 2002 19:22:49 -0700 |
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv18140
Modified Files:
Tag: arensb-context
Acquisitions.pm
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.24
retrieving revision 1.24.2.1
diff -C2 -r1.24 -r1.24.2.1
*** Acquisitions.pm 1 Oct 2002 13:22:02 -0000 1.24
--- Acquisitions.pm 4 Oct 2002 02:22:46 -0000 1.24.2.1
***************
*** 26,30 ****
use strict;
require Exporter;
- use C4::Database;
#use C4::Biblio;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
--- 26,29 ----
***************
*** 139,143 ****
sub getorders {
my ($supplierid)address@hidden;
[...1192 lines suppressed...]
my $query = "Delete from websites where websitenumber = $websitenumber";
$dbh->do($query);
-
- $dbh->disconnect;
} # sub deletewebsite
--- 1881,1892 ----
sub deletewebsite {
my ($websitenumber) = @_;
! my $dbh = C4::Context->dbh;
! # FIXME - $query is unnecessary: just use
! # $dbh->do(<<EOT);
! # DELETE FROM websites where websitenumber=$websitenumber
! # EOT
my $query = "Delete from websites where websitenumber = $websitenumber";
$dbh->do($query);
} # sub deletewebsite
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Acquisitions.pm,1.24,1.24.2.1,
Andrew Arensburger <=