[Koha-cvs] CVS: koha/C4/Circulation Main.pm,1.4,1.4.2.1
Andrew Arensburger
arensb at users.sourceforge.net
Fri Oct 4 04:28:03 CEST 2002
Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv19389
Modified Files:
Tag: arensb-context
Main.pm
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Index: Main.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Main.pm,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** Main.pm 1 Oct 2002 11:52:16 -0000 1.4
--- Main.pm 4 Oct 2002 02:28:01 -0000 1.4.2.1
***************
*** 24,28 ****
require Exporter;
use DBI;
! use C4::Database;
use C4::Circulation::Issues;
use C4::Circulation::Returns;
--- 24,28 ----
require Exporter;
use DBI;
! use C4::Context;
use C4::Circulation::Issues;
use C4::Circulation::Returns;
***************
*** 80,84 ****
sub getbranch {
my ($env) = @_;
! my $dbh = C4Connect;
my $query = "select * from branches order by branchcode";
my $sth = $dbh->prepare($query);
--- 80,84 ----
sub getbranch {
my ($env) = @_;
! my $dbh = C4::Context->dbh;
my $query = "select * from branches order by branchcode";
my $sth = $dbh->prepare($query);
***************
*** 102,111 ****
$env->{'branchname'} = $data->{'branchname'};
$sth->finish;
- $dbh->disconnect;
}
sub getprinter {
my ($env) = @_;
! my $dbh = C4Connect;
my $query = "select * from printers order by printername";
my $sth = $dbh->prepare($query);
--- 102,110 ----
$env->{'branchname'} = $data->{'branchname'};
$sth->finish;
}
sub getprinter {
my ($env) = @_;
! my $dbh = C4::Context->dbh;
my $query = "select * from printers order by printername";
my $sth = $dbh->prepare($query);
***************
*** 123,128 ****
}
$sth->finish;
! $dbh->disconnect;
! }
# FIXME - This is not the same as &C4::Circulation::pastitems, though
--- 122,126 ----
}
$sth->finish;
! }
# FIXME - This is not the same as &C4::Circulation::pastitems, though
More information about the Koha-cvs
mailing list