[BACK]Return to loncgi.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/loncgi.pm between versions 1.2 and 1.4

version 1.2, 2005/04/05 20:43:27 version 1.4, 2005/05/03 22:22:47
Line 60  use Fcntl qw(:flock); Line 60  use Fcntl qw(:flock);
 use LONCAPA::Configuration();  use LONCAPA::Configuration();
 require Exporter;  require Exporter;
   
 our @ISA = qw (Exporter);  #our @ISA = qw (Exporter);
 our @EXPORT = qw(%env);  #our @EXPORT = qw(%env);
   
 my $lonidsdir;  my $lonidsdir;
   
Line 81  BEGIN { Line 81  BEGIN {
 Inputs: none  Inputs: none
   
 Returns: 1 if the user has a LON-CAPA cookie 0 if not.  Returns: 1 if the user has a LON-CAPA cookie 0 if not.
 Loads the users environment into the %ENV hash if the cookie is correct.  Loads the users environment into the %env hash if the cookie is correct.
   
 =cut  =cut
   
Line 134  sub check_cookie { Line 134  sub check_cookie {
   
 =item transfer_profile_to_env  =item transfer_profile_to_env
   
 Load the users environment into the %ENV hash.  Load the users environment into the %env hash.
   
 Inputs: $handle, the name of the users LON-CAPA cookie.  Inputs: $handle, the name of the users LON-CAPA cookie.
   
Line 156  sub transfer_profile_to_env { Line 156  sub transfer_profile_to_env {
     foreach my $envrow (@profile) {      foreach my $envrow (@profile) {
         chomp($envrow);          chomp($envrow);
         my ($envname,$envvalue)=split(/=/,$envrow);          my ($envname,$envvalue)=split(/=/,$envrow);
         $ENV{$envname} = $envvalue;          $Apache::lonnet::env{$envname} = $envvalue;
         $env{$envname} = $envvalue;  
     }      }
     $ENV{'user.environment'} = "$lonidsdir/$handle.id";      $Apache::lonnet::env{'user.environment'} = "$lonidsdir/$handle.id";
     $env{'user.environment'} = "$lonidsdir/$handle.id";  
     return undef;      return undef;
 }  }
   
Removed from v.1.2  
changed lines
  Added in v.1.4

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>