[BACK]Return to lonuserstate.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonuserstate.pm between versions 1.44 and 1.46

version 1.44, 2002/10/07 13:50:36 version 1.46, 2002/10/10 19:05:32
Line 68  my @cond;    # Array with all of the con Line 68  my @cond;    # Array with all of the con
 my $errtext; # variable with all errors  my $errtext; # variable with all errors
 my $retfurl; # variable with the very first URL in the course  my $retfurl; # variable with the very first URL in the course
 my %randompick; # randomly picked resources  my %randompick; # randomly picked resources
 my %actualversion # version of resource as loaded now  my %actualversion; # version of resource as loaded now
 my %setversion # forced version of resource  my %setversion; # forced version of resource
 my %lastversion # version when CC came in last  my %lastversion; # version when CC came in last
 my $versionmode # how versioning is handled in this course  my $versionmode; # how versioning is handled in this course
 my $hasversionpriv # user has versioning privileges  
 # --------------------------------------------------------- Loads map from disk  # --------------------------------------------------------- Loads map from disk
   
 sub loadmap {   sub loadmap { 
Line 485  sub readmap { Line 485  sub readmap {
         &accinit($uri,$short,$fn);          &accinit($uri,$short,$fn);
         &pickrandom();          &pickrandom();
     }      }
   # ------------------------------------------------------------ Version tracking
       if (&Apache::lonnet::allowed('srm',$ENV{'request.course.id'})) {
    &Apache::lonnet::logthis('Will be version tracking');
       }
     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>"); 
Line 503  sub readmap { Line 507  sub readmap {
                        "Could not tie coursemap $fn for $uri.</font>");                          "Could not tie coursemap $fn for $uri.</font>"); 
    }     }
    &Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext);     &Apache::lonmsg::author_res_msg($ENV{'request.course.uri'},$errtext);
   # ------------------------------------------------- Check for critical messages
   
       my @what=&Apache::lonnet::dump('critical',$ENV{'user.domain'},
                                                 $ENV{'user.name'});
       if ($what[0]) {
    if (($what[0] ne 'con_lost') && ($what[0]!~/^error\:/)) {
       $retfurl='/adm/email?critical=display';
           }
       }
   
   
    return ($retfurl,$errtext);     return ($retfurl,$errtext);
 }  }
   
Removed from v.1.44  
changed lines
  Added in v.1.46

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