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

Fixed #465.

This commit is contained in:
wolfpac444 2003-05-27 06:51:55 +00:00
parent ac14b50092
commit 7a5dadc317
2 changed files with 27 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
koha-tmpl/intranet-tmpl/default/en/members/member-password.tmpl
View File

@ -9,6 +9,9 @@ Click <a href="/cgi-bin/koha/moremember.pl?bornum=<TMPL_VAR NAME=member>">here</
<h2><TMPL_VAR NAME="title"> <TMPL_VAR NAME="othernames"> <TMPL_VAR NAME="surname">, <TMPL_VAR NAME="firstname"></h2>
<form method=post>
<input type=hidden name=member value=<TMPL_VAR NAME=member>>
<TMPL_IF NAME="warn">
You have entered a UserID that already exists. Please choose another one.<br>
</TMPL_IF>
New UserID: <input name=newuserid size=20 value=<TMPL_VAR NAME=userid>> <br>
New Password: <input name=newpassword size=20 value=<TMPL_VAR NAME=defaultnewpassword>>
<p>

28
member-password.pl
View File

@ -44,16 +44,36 @@ foreach (sort keys %$issues) {
$i++;
}
my ($bor,$flags)=getpatroninformation(\%env, $member,'');
my $newpassword = $input->param('newpassword');
if ( $newpassword ) {
my $digest=md5_base64($input->param('newpassword'));
my $uid = $input->param('newuserid');
my $dbh=C4::Context->dbh;
my $sth=$dbh->prepare("update borrowers set userid=?, password=? where borrowernumber=?");
$sth->execute($uid, $digest, $member);
#Make sure the userid chosen is unique. If it is not,
#Then we need to tell the user and have them create a new one.
my $sth2=$dbh->prepare("select * from borrowers where userid=?");
$sth2->execute($uid);
if ( $sth2->fetchrow ) {
#The userid exists so we should display a warning.
my $warn = 1;
$template->param( warn => $warn,
othernames => $bor->{'othernames'},
surname => $bor->{'surname'},
firstname => $bor->{'firstname'},
userid => $bor->{'userid'},
defaultnewpassword => $newpassword );
} else {
#Everything is good so we can update the information.
my $sth=$dbh->prepare("update borrowers set userid=?, password=? where borrowernumber=?");
$sth->execute($uid, $digest, $member);
$template->param(newpassword => $newpassword);
}
} else {
my ($bor,$flags)=getpatroninformation(\%env, $member,'');
my $userid = $bor->{'userid'};
my $chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
@ -71,6 +91,6 @@ if ( $newpassword ) {
}
$template->param( member => $member, newpassword => $newpassword );
$template->param( member => $member );
output_html_with_http_headers $input, $cookie, $template->output;