[Koha-cvs] CVS: koha member-password.pl,1.2,1.3

[Ambrose Li]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv27321

Modified Files:
        member-password.pl 
Log Message:
Updates for using (OPAC) user log-in in 1.3


Index: member-password.pl
===================================================================
RCS file: /cvsroot/koha/koha/member-password.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** member-password.pl  28 Oct 2002 17:46:19 -0000      1.2
--- member-password.pl  3 Feb 2003 21:42:41 -0000       1.3
***************
*** 1,5 ****
  #!/usr/bin/perl
  
! #script to delete items
  #written 2/5/00
  #by address@hidden
--- 1,5 ----
  #!/usr/bin/perl
  
! #script to set the password, and optionally a userid, for a borrower
  #written 2/5/00
  #by address@hidden
***************
*** 12,16 ****
  use C4::Output;
  use C4::Auth;
! use C4::Database;
  use C4::Circulation::Circ2;
  #use C4::Acquisitions;
--- 12,16 ----
  use C4::Output;
  use C4::Auth;
! use C4::Context;
  use C4::Circulation::Circ2;
  #use C4::Acquisitions;
***************
*** 36,40 ****
      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);
--- 36,40 ----
      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);