From ee506f7039ddb89da272f6185a959443dd7e3f5f Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Tue, 4 Feb 2003 05:20:10 +0000
Subject: [PATCH] Converted C4Connect to C4::Context->dbh

---
 member-flags.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/member-flags.pl b/member-flags.pl
index 66658aad30..836273d8ec 100755
--- a/member-flags.pl
+++ b/member-flags.pl
@@ -10,7 +10,7 @@ use C4::Search;
 use CGI;
 use C4::Output;
 use C4::Auth;
-use C4::Database;
+use C4::Context;
 use C4::Circulation::Circ2;
 #use C4::Acquisitions;
 
@@ -32,7 +32,7 @@ foreach (sort keys %$issues) {
     $i++;
 }
 if ($input->param('newflags')) {
-    my $dbh=C4Connect();
+    my $dbh=C4::Context->dbh();
     my $flags=0;
     foreach ($input->param) {
 	if (/flag-(\d+)/) {
@@ -46,7 +46,7 @@ if ($input->param('newflags')) {
 } else {
     my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
 
-    my $dbh=C4Connect();
+    my $dbh=C4::Context->dbh();
     my $sth=$dbh->prepare("select bit,flag,flagdesc from userflags order by bit");
     $sth->execute;
     my $flagtext='';
-- 
2.39.2