[Koha-cvs] CVS: koha/C4/Circulation Borrissues.pm,1.2,1.2.2.1
Andrew Arensburger
arensb at users.sourceforge.net
Fri Oct 4 04:27:02 CEST 2002
Update of /cvsroot/koha/koha/C4/Circulation
In directory usw-pr-cvs1:/tmp/cvs-serv19093
Modified Files:
Tag: arensb-context
Borrissues.pm
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Index: Borrissues.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Borrissues.pm,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** Borrissues.pm 14 Aug 2002 18:12:52 -0000 1.2
--- Borrissues.pm 4 Oct 2002 02:27:00 -0000 1.2.2.1
***************
*** 25,29 ****
require Exporter;
use DBI;
! use C4::Database;
use C4::Print;
use C4::Format;
--- 25,29 ----
require Exporter;
use DBI;
! use C4::Context;
use C4::Print;
use C4::Format;
***************
*** 74,78 ****
my ($env,$borrower)=@_;
my @issues;
! my $dbh=C4Connect;
my $query = "select * from issues,items,biblioitems,biblio
where borrowernumber = '$borrower->{'borrowernumber'}'
--- 74,78 ----
my ($env,$borrower)=@_;
my @issues;
! my $dbh = C4::Context->dbh;
my $query = "select * from issues,items,biblioitems,biblio
where borrowernumber = '$borrower->{'borrowernumber'}'
***************
*** 90,94 ****
}
$sth->finish();
- $dbh->disconnect();
remoteprint ($env,\@issues,$borrower);
}
--- 90,93 ----
More information about the Koha-cvs
mailing list