From 058c8bf28b61ebfd6c769e7de967a9f1cd8c51c9 Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Mon, 3 Feb 2003 21:42:41 +0000
Subject: [PATCH] Updates for using (OPAC) user log-in in 1.3

---
 member-password.pl | 6 +++---
 opac/opac-user.pl  | 1 +
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/member-password.pl b/member-password.pl
index 5e8601f0c4..a30963c02a 100755
--- a/member-password.pl
+++ b/member-password.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-#script to delete items
+#script to set the password, and optionally a userid, for a borrower
 #written 2/5/00
 #by chris@katipo.co.nz
 
@@ -11,7 +11,7 @@ use CGI;
 use Digest::MD5 qw(md5_base64);
 use C4::Output;
 use C4::Auth;
-use C4::Database;
+use C4::Context;
 use C4::Circulation::Circ2;
 #use C4::Acquisitions;
 
@@ -35,7 +35,7 @@ foreach (sort keys %$issues) {
 if ($input->param('newpassword')) {
     my $digest=md5_base64($input->param('newpassword'));
     my $uid = $input->param('newuserid');
-    my $dbh=C4Connect();
+    my $dbh=C4::Context->dbh;
     my $sth=$dbh->prepare("update borrowers set userid=?, password=? where borrowernumber=?");
     $sth->execute($uid, $digest, $member);
     print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$member");
diff --git a/opac/opac-user.pl b/opac/opac-user.pl
index 5aac6c19cb..0ff4c48925 100755
--- a/opac/opac-user.pl
+++ b/opac/opac-user.pl
@@ -9,6 +9,7 @@ use C4::Circulation::Circ2;
 use C4::Circulation::Renewals2;
 use C4::Reserves2;
 use C4::Search;
+use C4::Interface::CGI::Output;
 use HTML::Template;
 
 my $query = new CGI;
-- 
2.39.5