Diff for /rat/lonuserstate.pm between versions 1.73 and 1.74

version 1.73, 2004/04/23 15:23:35 version 1.74, 2004/04/23 15:43:41
Line 289  sub loadmap { Line 289  sub loadmap {
  $randompick{$referid}=$token->[2]->{'value'};   $randompick{$referid}=$token->[2]->{'value'};
                     }                      }
                     if ($token->[2]->{'name'} eq 'parameter_encrypturl') {                      if ($token->[2]->{'name'} eq 'parameter_encrypturl') {
  $encurl{$referid}=$token->[2]->{'value'};   if ($token->[2]->{'value'}=~/^yes$/i) {
       $encurl{$referid}=1;
    }
                     }                      }
                     if ($token->[2]->{'name'} eq 'parameter_hiddenresource') {                      if ($token->[2]->{'name'} eq 'parameter_hiddenresource') {
  $hiddenurl{$referid}=$token->[2]->{'value'};   if ($token->[2]->{'value'}=~/^yes$/i) {
       $hiddenurl{$referid}=1;
    }
                     }                      }
                 }                   } 
   
Line 571  sub readmap { Line 575  sub readmap {
     $hash{$_}=&putinversion($hash{$_});      $hash{$_}=&putinversion($hash{$_});
  }   }
     }      }
   # ---------------------------------------------------------------- Encrypt URLs
       foreach (keys %encurl) {
    $hash{'src_'.$_}=&Apache::lonenc::encrypted($hash{'src_'.$_});
       }
   # ----------------------------------------------- Close hashes to finally store
   # --------------------------------- Routine must pass this point, no early outs
     unless ((untie(%hash)) && (untie(%parmhash))) {      unless ((untie(%hash)) && (untie(%parmhash))) {
       &Apache::lonnet::logthis("<font color=blue>WARNING: ".        &Apache::lonnet::logthis("<font color=blue>WARNING: ".
                        "Could not untie coursemap $fn for $uri.</font>");                          "Could not untie coursemap $fn for $uri.</font>"); 
     }      }
   # ---------------------------------------------------- Store away initial state
     {      {
      my $cfh;       my $cfh;
      if ($cfh=Apache::File->new(">$fn.state")) {       if ($cfh=Apache::File->new(">$fn.state")) {

Removed from v.1.73  
changed lines
  Added in v.1.74


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