[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha member-flags.pl,1.1.2.2,1.1.2.3 member-password.pl,
From: |
Finlay Thompson |
Subject: |
[Koha-cvs] CVS: koha member-flags.pl,1.1.2.2,1.1.2.3 member-password.pl,1.1.2.2,1.1.2.3 |
Date: |
Mon, 30 Sep 2002 18:44:38 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv32578
Modified Files:
Tag: rel-1-2
member-flags.pl member-password.pl
Log Message:
changed the redirect from these pages to take you back to the moremember page.
added a field on member-password to enter the userid
Index: member-flags.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/member-flags.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** member-flags.pl 27 Jul 2002 05:39:10 -0000 1.1.2.2
--- member-flags.pl 1 Oct 2002 01:44:35 -0000 1.1.2.3
***************
*** 43,47 ****
my $sth=$dbh->prepare("update borrowers set flags=? where
borrowernumber=?");
$sth->execute($flags, $member);
! print $input->redirect("/members/");
} else {
my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
--- 43,47 ----
my $sth=$dbh->prepare("update borrowers set flags=? where
borrowernumber=?");
$sth->execute($flags, $member);
! print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$member");
} else {
my ($bor,$flags,$accessflags)=getpatroninformation(\%env, $member,'');
Index: member-password.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/member-password.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** member-password.pl 27 Jul 2002 04:33:57 -0000 1.1.2.2
--- member-password.pl 1 Oct 2002 01:44:35 -0000 1.1.2.3
***************
*** 35,45 ****
if ($input->param('newpassword')) {
my $digest=md5_base64($input->param('newpassword'));
my $dbh=C4Connect();
! my $sth=$dbh->prepare("update borrowers set password=? where
borrowernumber=?");
! $sth->execute($digest, $member);
! warn "$member $digest";
! print $input->redirect("/members/");
} else {
my ($bor,$flags)=getpatroninformation(\%env, $member,'');
my
$chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
--- 35,46 ----
if ($input->param('newpassword')) {
my $digest=md5_base64($input->param('newpassword'));
+ my $uid = $input->param('newuserid');
my $dbh=C4Connect();
! 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");
} else {
my ($bor,$flags)=getpatroninformation(\%env, $member,'');
+ my $userid = $bor->{'userid'};
my
$chars='abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
***************
*** 68,71 ****
--- 69,73 ----
<form method=post>
<input type=hidden name=member value=$member>
+ New UserID: <input name=newuserid size=20 value=$userid> <br>
New Password: <input name=newpassword size=20 value=$defaultnewpassword>
(default is $spellitout)
<p>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha member-flags.pl,1.1.2.2,1.1.2.3 member-password.pl,1.1.2.2,1.1.2.3,
Finlay Thompson <=