[Koha-cvs] koha/C4 Auth.pm [rel_3_0]

[LAURIN arnaud]

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;
         }
     }