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

Diff for /rat/lonuserstate.pm between versions 1.41 and 1.45

version 1.41, 2002/09/04 19:37:32 version 1.45, 2002/10/07 19:00:43
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 %setversion; # forced version of resource
   my %lastversion; # version when CC came in last
   my $versionmode; # how versioning is handled in this course
   
 # --------------------------------------------------------- Loads map from disk  # --------------------------------------------------------- Loads map from disk
   
 sub loadmap {   sub loadmap { 
Line 125  sub loadmap { Line 130  sub loadmap {
                              || ($embstyle eq 'ssi')) {                               || ($embstyle eq 'ssi')) {
                                 $turi='/adm/wrapper'.$turi;                                  $turi='/adm/wrapper'.$turi;
                             } elsif ($turi!~/\.(sequence|page)$/) {                              } elsif ($turi!~/\.(sequence|page)$/) {
  $turi='/adm/coursedocs?showdoc='.$turi;   $turi='/adm/coursedocs/showdoc'.$turi;
                             }                              }
                         } else { # normal internal resource                          } else { # normal internal resource
                            if (($embstyle eq 'img') || ($embstyle eq 'emb')                             if (($embstyle eq 'img') || ($embstyle eq 'emb')
                           || ($turi=~/\/syllabus$/) || ($turi=~/\/aboutme$/)               || ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) {
                           || ($turi=~/\/navmaps$/)) {  
        $turi='/adm/wrapper'.$turi;         $turi='/adm/wrapper'.$turi;
                            }                             }
                         }                          }
Line 481  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>"); 
Removed from v.1.41  
changed lines
  Added in v.1.45

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