[Koha-cvs] CVS: koha/C4 Auth.pm,1.45,1.46

Paul POULAIN tipaul at users.sourceforge.net
Thu Aug 4 16:36:12 CEST 2005


Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26118/C4

Modified Files:
	Auth.pm 
Log Message:
fixing a bug in synch

Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -C2 -r1.45 -r1.46
*** Auth.pm	4 Aug 2005 13:27:47 -0000	1.45
--- Auth.pm	4 Aug 2005 14:35:54 -0000	1.46
***************
*** 479,483 ****
  		my ($md5password,$cardnumber) = $sth->fetchrow;
  		if (md5_base64($password) eq $md5password) {
! 			C4::Context->set_userenv("$bornum",$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
  			return 1,$cardnumber;
  		}
--- 479,483 ----
  		my ($md5password,$cardnumber) = $sth->fetchrow;
  		if (md5_base64($password) eq $md5password) {
! # 			C4::Context->set_userenv("$bornum",$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
  			return 1,$cardnumber;
  		}
***************
*** 488,492 ****
  		my ($md5password) = $sth->fetchrow;
  		if (md5_base64($password) eq $md5password) {
! 			C4::Context->set_userenv($bornum,$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
  			return 1,$userid;
  		}
--- 488,492 ----
  		my ($md5password) = $sth->fetchrow;
  		if (md5_base64($password) eq $md5password) {
! # 			C4::Context->set_userenv($bornum,$userid,$cardnumber,$firstname,$surname,$branchcode,$userflags);
  			return 1,$userid;
  		}
***************
*** 494,498 ****
  	if ($userid eq C4::Context->config('user') && $password eq C4::Context->config('pass')) {
  		# Koha superuser account
! 		C4::Context->set_userenv(0,0,C4::Context->config('user'),C4::Context->config('user'),C4::Context->config('user'),"",1);
  		return 2;
  	}
--- 494,498 ----
  	if ($userid eq C4::Context->config('user') && $password eq C4::Context->config('pass')) {
  		# Koha superuser account
! # 		C4::Context->set_userenv(0,0,C4::Context->config('user'),C4::Context->config('user'),C4::Context->config('user'),"",1);
  		return 2;
  	}





More information about the Koha-cvs mailing list