[Koha-cvs] CVS: koha/C4 Security.pm,1.3,1.3.2.1
Andrew Arensburger
arensb at users.sourceforge.net
Fri Oct 4 04:26:29 CEST 2002
Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv18948
Modified Files:
Tag: arensb-context
Security.pm
Log Message:
Use C4::Connect instead of C4::Database, C4::Connect->dbh instead
C4Connect.
Index: Security.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Security.pm,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** Security.pm 14 Aug 2002 18:12:52 -0000 1.3
--- Security.pm 4 Oct 2002 02:26:27 -0000 1.3.2.1
***************
*** 22,26 ****
require Exporter;
use DBI;
! use C4::Database;
use C4::Format;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
--- 22,26 ----
require Exporter;
use DBI;
! use C4::Context;
use C4::Format;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
***************
*** 34,38 ****
sub Login {
my ($env)=@_;
! my $dbh=C4Connect;
my @branches;
my $query = "select * from branches order by branchname";
--- 34,38 ----
sub Login {
my ($env)=@_;
! my $dbh = C4::Context->dbh;
my @branches;
my $query = "select * from branches order by branchname";
***************
*** 71,75 ****
$sth->finish;
}
- $dbh->disconnect;
&endint();
}
--- 71,74 ----
More information about the Koha-cvs
mailing list