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

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

version 1.37, 2002/08/17 17:40:06 version 1.44, 2002/10/07 13:50:36
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
   my $hasversionpriv # user has versioning privileges
 # --------------------------------------------------------- Loads map from disk  # --------------------------------------------------------- Loads map from disk
   
 sub loadmap {   sub loadmap { 
Line 118  sub loadmap { Line 123  sub loadmap {
                     unless ($ispage) {                      unless ($ispage) {
                         $turi=~/\.(\w+)$/;                          $turi=~/\.(\w+)$/;
                         my $embstyle=&Apache::loncommon::fileembstyle($1);                          my $embstyle=&Apache::loncommon::fileembstyle($1);
                         if ($token->[2]->{'external'} eq 'true') {                          if ($token->[2]->{'external'} eq 'true') { # external
                             $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;                              $turi=~s/^http\:\/\//\/adm\/wrapper\/ext\//;
                         } else {                          } elsif ($turi=~/^\/*uploaded\//) { # uploaded
                            my $embstyle=&Apache::loncommon::fileembstyle($1);      if (($embstyle eq 'img') || ($embstyle eq 'emb')
                            if (($embstyle eq 'img') || ($embstyle eq 'emb')) {                               || ($embstyle eq 'ssi')) {
                                   $turi='/adm/wrapper'.$turi;
                               } elsif ($turi!~/\.(sequence|page)$/) {
    $turi='/adm/coursedocs/showdoc'.$turi;
                               }
                           } else { # normal internal resource
                              if (($embstyle eq 'img') || ($embstyle eq 'emb')
                || ($turi=~/\/(syllabus|aboutme|navmaps|smppg|bulletinboard)$/)) {
        $turi='/adm/wrapper'.$turi;         $turi='/adm/wrapper'.$turi;
                            }                             }
                         }                          }
Line 462  sub readmap { Line 474  sub readmap {
     %parmhash=();      %parmhash=();
     $errtext='';      $errtext='';
     $pc=0;      $pc=0;
     my $furi='/res/'.&Apache::lonnet::declutter($uri);      my $furi=&Apache::lonnet::clutter($uri);
     $hash{'src_0.0'}=$furi;      $hash{'src_0.0'}=$furi;
     $hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title');      $hash{'title_0.0'}=&Apache::lonnet::metadata($uri,'title');
     $hash{'ids_'.$furi}='0.0';      $hash{'ids_'.$furi}='0.0';
Removed from v.1.37  
changed lines
  Added in v.1.44

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