[Koha-cvs] koha/C4 Auth.pm [rel_3_0]
LAURIN arnaud
alaurin at ouestprovence.fr
Thu Sep 21 16:00:40 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_3_0
Changes by: LAURIN arnaud <alaurin> 06/09/21 14:00:40
Modified files:
C4 : Auth.pm
Log message:
bug fixing :
Correcting checkpwd, replace "userflag" by "flag"
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Auth.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.54.2.3&r2=1.54.2.4
Patches:
Index: Auth.pm
===================================================================
RCS file: /sources/koha/koha/C4/Auth.pm,v
retrieving revision 1.54.2.3
retrieving revision 1.54.2.4
diff -u -b -r1.54.2.3 -r1.54.2.4
--- Auth.pm 21 Sep 2006 12:19:59 -0000 1.54.2.3
+++ Auth.pm 21 Sep 2006 14:00:40 -0000 1.54.2.4
@@ -625,23 +625,23 @@
# INTERNAL AUTH
my $sth =
- $dbh->prepare("select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,userflags from borrowers where userid=?");
+ $dbh->prepare("select password,cardnumber,borrowernumber,userid,firstname,surname,branchcode,flags from borrowers where userid=?");
$sth->execute($userid);
if ( $sth->rows ) {
- my ( $md5password, $cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$userflags ) = $sth->fetchrow;
+ my ( $md5password, $cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$flags ) = $sth->fetchrow;
if ( md5_base64($password) eq $md5password ) {
- C4::Context->set_userenv("$bornum",$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
+ C4::Context->set_userenv("$bornum",$userid,$cardnumber,$firstname,$surname,$branchcode,$flags);
return 1, $cardnumber;
}
}
- $sth = $dbh->prepare("select password,cardnumber,borrowernumber,userid, firstname,surname,branchcode,userflags from borrowers where cardnumber=?");
+ $sth = $dbh->prepare("select password,cardnumber,borrowernumber,userid, firstname,surname,branchcode,flags from borrowers where cardnumber=?");
$sth->execute($userid);
if ( $sth->rows ) {
- my ( $md5password, $cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$userflags ) = $sth->fetchrow;
+ my ( $md5password, $cardnumber,$bornum,$userid,$firstname,$surname,$branchcode,$flags ) = $sth->fetchrow;
if ( md5_base64($password) eq $md5password ) {
- C4::Context->set_userenv($bornum,$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
+ C4::Context->set_userenv($bornum,$userid,$cardnumber,$firstname,$surname,$branchcode,$flags);
return 1, $userid;
}
}
More information about the Koha-cvs
mailing list