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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.272 and 1.274

version 1.272, 2004/07/26 22:30:15 version 1.274, 2004/08/10 20:52:03
Line 100  sub launch_win { Line 100  sub launch_win {
     }      }
     if ($mode eq 'link') {      if ($mode eq 'link') {
  $result.='<a href="javascript:launch_navmapwin();void(0);">'   $result.='<a href="javascript:launch_navmapwin();void(0);">'
     .&mt("Launch Navmaps in seperate window")."</a> ";      .&mt("Launch navigation in separate window")."</a> ";
     }      }
     return $result;      return $result;
 }  }
Line 275  ENDSUBM Line 275  ENDSUBM
     if ($ENV{'environment.remotenavmap'} eq 'on') {      if ($ENV{'environment.remotenavmap'} eq 'on') {
 #        $r->print("<a href='navmaps?collapseExternal'>" .  #        $r->print("<a href='navmaps?collapseExternal'>" .
         $r->print("<a href='javascript:collapse();void(0);'>" .          $r->print("<a href='javascript:collapse();void(0);'>" .
   &mt("Close external navmaps").    &mt("Close separate navigation window").
   "</a>&nbsp;&nbsp;&nbsp;&nbsp;");    "</a>&nbsp;&nbsp;&nbsp;&nbsp;");
     }       } 
   
Line 1077  sub render_resource { Line 1077  sub render_resource {
   
     if ($resource->is_problem() && $part ne '0' &&       if ($resource->is_problem() && $part ne '0' && 
         !$params->{'condensed'}) {          !$params->{'condensed'}) {
  my $displaypart=&Apache::lonnet::EXT('resource.'.$part.'.display',   my $displaypart=$resource->part_display($part);
      $resource->symb());  
  unless ($displaypart) { $displaypart=$part; }  
         $partLabel = " (Part: $displaypart)";          $partLabel = " (Part: $displaypart)";
  $link.='#'.&Apache::lonnet::escape($part);   $link.='#'.&Apache::lonnet::escape($part);
         $title = "";          $title = "";
Line 3674  sub weight { Line 3672  sub weight {
  $self->symb(), $ENV{'user.domain'},   $self->symb(), $ENV{'user.domain'},
  $ENV{'user.name'},    $ENV{'user.name'}, 
  $ENV{'request.course.sec'});   $ENV{'request.course.sec'});
   }
   sub part_display {
       my $self= shift(); my $partID = shift();
       if (! defined($partID)) { $partID = '0'; }
       my $display=&Apache::lonnet::EXT('resource.'.$partID.'.display',
                                        $self->symb);
       if (! defined($display) || $display eq '') {
           $display = $partID;
       }
       return $display;
 }  }
   
 # Multiple things need this  # Multiple things need this
Removed from v.1.272  
changed lines
  Added in v.1.274

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