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