[Koha-cvs] CVS: koha/C4 Auth.pm,1.40,1.41 Context.pm,1.22,1.23

[Paul POULAIN]

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

Modified Files:
	Auth.pm Context.pm 
Log Message:
some bugfixes, but still don't work correctly

Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -r1.40 -r1.41
*** Auth.pm	26 Jul 2005 07:50:27 -0000	1.40
--- Auth.pm	26 Jul 2005 10:12:48 -0000	1.41
***************
*** 295,298 ****
--- 295,300 ----
  		$loggedin = 1;
  	} elsif ($sessionID=$query->cookie('sessionID')) {
+ 		warn "NEWUSERENV : ".$sessionID;
+ 		C4::Context->_new_userenv($sessionID);
  		my ($ip , $lasttime);
  		($userid, $ip, $lasttime) = $dbh->selectrow_array(

Index: Context.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Context.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** Context.pm	26 Jul 2005 07:50:27 -0000	1.22
--- Context.pm	26 Jul 2005 10:12:53 -0000	1.23
***************
*** 233,236 ****
--- 233,238 ----
  	$self->{"stopwords"} = undef; # stopwords list
  	$self->{"marcfromkohafield"} = undef; # the hash with relations between koha table fields and MARC field/subfield
+ 	$self->{"userenv"} = undef;		# User env
+ 	$self->{"context"} = undef;		# current active user
  
  	bless $self, $class;
***************
*** 638,641 ****
--- 640,644 ----
  {
  	my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $userflags)= @_;
+ 	warn "SETTING :  $usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $userflags";
  	$context->{$context->{"activeuser"}}=\{
  		"number"     => $usernum,
***************
*** 646,650 ****
  		"branch"     => $userbranch,
  		"flags"      => $userflags
! 	}
  }
  
--- 649,653 ----
  		"branch"     => $userbranch,
  		"flags"      => $userflags
! 	};
  }