[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]

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>