[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha member-flags.pl,1.2,1.3
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha member-flags.pl,1.2,1.3 |
Date: |
Mon, 03 Feb 2003 21:20:13 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv2152
Modified Files:
member-flags.pl
Log Message:
Converted C4Connect to C4::Context->dbh
Index: member-flags.pl
===================================================================
RCS file: /cvsroot/koha/koha/member-flags.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** member-flags.pl 28 Oct 2002 17:46:18 -0000 1.2
--- member-flags.pl 4 Feb 2003 05:20:10 -0000 1.3
***************
*** 11,15 ****
use C4::Output;
use C4::Auth;
! use C4::Database;
use C4::Circulation::Circ2;
#use C4::Acquisitions;
--- 11,15 ----
use C4::Output;
use C4::Auth;
! use C4::Context;
use C4::Circulation::Circ2;
#use C4::Acquisitions;
***************
*** 33,37 ****
}
if ($input->param('newflags')) {
! my $dbh=C4Connect();
my $flags=0;
foreach ($input->param) {
--- 33,37 ----
}
if ($input->param('newflags')) {
! my $dbh=C4::Context->dbh();
my $flags=0;
foreach ($input->param) {
***************
*** 47,51 ****
my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
! my $dbh=C4Connect();
my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by
bit");
$sth->execute;
--- 47,51 ----
my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
! my $dbh=C4::Context->dbh();
my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by
bit");
$sth->execute;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha member-flags.pl,1.2,1.3,
Ambrose Li <=