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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.1231 and 1.1232

version 1.1231, 2013/07/25 19:11:12 version 1.1232, 2013/07/31 17:37:18
Line 9773  sub EXT { Line 9773  sub EXT {
     if (!$symbparm) { $symbparm=&symbread(); }      if (!$symbparm) { $symbparm=&symbread(); }
  }   }
   
  if ($space eq 'title') {          if ($qualifier eq '') {
     if (!$symbparm) { $symbparm = $env{'request.filename'}; }      if ($space eq 'title') {
     return &gettitle($symbparm);          if (!$symbparm) { $symbparm = $env{'request.filename'}; }
  }          return &gettitle($symbparm);
       }
   
  if ($space eq 'map') {      if ($space eq 'map') {
     my ($map) = &decode_symb($symbparm);          my ($map) = &decode_symb($symbparm);
     return &symbread($map);          return &symbread($map);
  }  
  if ($space eq 'filename') {  
     if ($symbparm) {  
  return &clutter((&decode_symb($symbparm))[2]);  
     }      }
     return &hreflocation('',$env{'request.filename'});              if ($space eq 'maptitle') {
  }                  my ($map) = &decode_symb($symbparm);
                   return &gettitle($map);
               }
       if ($space eq 'filename') {
           if ($symbparm) {
       return &clutter((&decode_symb($symbparm))[2]);
           }
           return &hreflocation('',$env{'request.filename'});
       }
           }
   
           if ((defined($courseid)) && ($courseid eq $env{'request.course.id'}) && $symbparm) {
               if ($space eq 'visibleparts') {
                   my $navmap = Apache::lonnavmaps::navmap->new();
                   my $item;
                   if (ref($navmap)) {
                       my $res = $navmap->getBySymb($symbparm);
                       my $parts = $res->parts();
                       if (ref($parts) eq 'ARRAY') {
                           $item = join(',',@{$parts});
                       }
                       undef($navmap);
                   }
                   return $item;
               }
           }
   
  my ($section, $group, @groups);   my ($section, $group, @groups);
  my ($courselevelm,$courselevel);   my ($courselevelm,$courselevel);
Removed from v.1.1231  
changed lines
  Added in v.1.1232

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