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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.38 and 1.42

version 1.38, 2002/07/08 20:27:10 version 1.42, 2002/08/18 21:45:41
Line 411  sub handler { Line 411  sub handler {
     if ($ENV{'request.course.fn'}) {      if ($ENV{'request.course.fn'}) {
  $fn=$ENV{'request.course.fn'};   $fn=$ENV{'request.course.fn'};
  if (-e "$fn.db") {   if (-e "$fn.db") {
     if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&      if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
  (tie(%parmhash,'GDBM_File',   (tie(%parmhash,'GDBM_File',
      $ENV{'request.course.fn'}.'_parms.db',       $ENV{'request.course.fn'}.'_parms.db',
      &GDBM_READER,0640))) {       &GDBM_READER(),0640))) {
  $hashtied=1;   $hashtied=1;
     }      }
  }   }
Line 434  sub handler { Line 434  sub handler {
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
   
     my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}};      my $firstres=$hash{'map_start_'.
     my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}};             &Apache::lonnet::clutter($ENV{'request.course.uri'})};
       my $lastres=$hash{'map_finish_'.
              &Apache::lonnet::clutter($ENV{'request.course.uri'})};
     if (!(($firstres) && ($lastres))) {      if (!(($firstres) && ($lastres))) {
  $r->print('<html><body>Coursemap undefined.</body></html>');   $r->print('<html><body>Coursemap undefined.</body></html>');
     } else {      } else {
Line 575  sub handler { Line 577  sub handler {
     }      }
     $r->print('><script>window.focus();</script>'.      $r->print('><script>window.focus();</script>'.
       '<img align=right src=/adm/lonIcons/lonlogos.gif>'.        '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
       '<h1>Navigate Course Map</h1>'.        '<h1>Navigate Course Map</h1>');
       "<h3>$date</h3>");      my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
       if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }
       $r->print("<h3>$date</h3>\n");
     $r->rflush();      $r->rflush();
     $r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.      $r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.
       localtime($lastcheck).        localtime($lastcheck).
Line 716  sub handler { Line 720  sub handler {
  $r->print($add.$indentstr);   $r->print($add.$indentstr);
  if ($rid) {   if ($rid) {
     $r->print('<a href="'.$hash{'src_'.$linkid}.      $r->print('<a href="'.$hash{'src_'.$linkid}.
                                       '?symb='.&Apache::lonnet::escape($symb)                                        (($hash{'src_'.$linkid}=~/\?/)?'&':'?').
                                         'symb='.&Apache::lonnet::escape($symb)
                                        .'">'.                                         .'">'.
       $hwk.$hash{'title_'.$rid}.$hwke.'</a>');        $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
  }   }
Removed from v.1.38  
changed lines
  Added in v.1.42

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