gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updates for using (OPAC) user log-in in 1.3

This commit is contained in:
acli 2003-02-03 21:42:41 +00:00
parent f296bdf464
commit 058c8bf28b
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
member-password.pl
View File

@ -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");

1
opac/opac-user.pl
View File

@ -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;