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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.476 and 1.477

version 1.476, 2011/12/25 19:39:08 version 1.477, 2011/12/25 20:41:53
Line 896  sub part_status_summary { return 4; } Line 896  sub part_status_summary { return 4; }
 sub render_resource {  sub render_resource {
     my ($resource, $part, $params) = @_;      my ($resource, $part, $params) = @_;
   
       my $editmapLink;
     my $nonLinkedText = ''; # stuff after resource title not in link      my $nonLinkedText = ''; # stuff after resource title not in link
   
     my $link = $params->{"resourceLink"};      my $link = $params->{"resourceLink"};
Line 977  sub render_resource { Line 978  sub render_resource {
             $linkopen = "";              $linkopen = "";
             $linkclose = "";              $linkclose = "";
         }          }
           if ((&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) &&
               ($resource->symb=~/\_\_\_[^\_]+\_\_\_uploaded/)) {
               my $icon = &Apache::loncommon::lonhttpdurl('/res/adm/pages').'/editmap.png';
               $editmapLink=' '.
                            '<a href="/adm/coursedocs?command=direct&symb='.&escape($resource->symb()).'">'.
                            '<img src="'.$icon.'" alt="'.&mt('Edit Content').'" title="'.&mt('Edit Content').'" />'.
                            '</a>';
           }
     }      }
   
     if ($resource->randomout()) {      if ($resource->randomout()) {
Line 1010  sub render_resource { Line 1019  sub render_resource {
     # Is this the current resource?      # Is this the current resource?
     if (!$params->{'displayedHereMarker'} &&       if (!$params->{'displayedHereMarker'} && 
         $resource->symb() eq $params->{'here'} ) {          $resource->symb() eq $params->{'here'} ) {
         $curMarkerBegin = '<span class="LC_current_nav_location">';          unless ($resource->is_map()) {
         $curMarkerEnd = '</span>';              $curMarkerBegin = '<span class="LC_current_nav_location">';
               $curMarkerEnd = '</span>';
           }
  $params->{'displayedHereMarker'} = 1;   $params->{'displayedHereMarker'} = 1;
     }      }
   
Line 1030  sub render_resource { Line 1041  sub render_resource {
     if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) {      if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) {
         $result .= "$curMarkerBegin<a href=\"$link\">$title$partLabel</a>$curMarkerEnd$nonLinkedText</td>";          $result .= "$curMarkerBegin<a href=\"$link\">$title$partLabel</a>$curMarkerEnd$nonLinkedText</td>";
     } else {      } else {
         $result .= "$curMarkerBegin$linkopen$title$partLabel</a>$curMarkerEnd$nonLinkedText</td>";          $result .= "$curMarkerBegin$linkopen$title$partLabel</a>$curMarkerEnd$editmapLink$nonLinkedText</td>";
     }      }
   
     return $result;      return $result;
Line 1044  sub render_communication_status { Line 1055  sub render_communication_status {
     my $linkopen = "<a href=\"$link\">";      my $linkopen = "<a href=\"$link\">";
     my $linkclose = "</a>";      my $linkclose = "</a>";
     my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc");      my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc");
   
     if ($resource->hasDiscussion()) {      if ($resource->hasDiscussion()) {
         $discussionHTML = $linkopen .          $discussionHTML = $linkopen .
             '<img alt="'.&mt('New Discussion').'" src="'.$location.'/chat.gif" title="'.&mt('New Discussion').'"/>' .              '<img alt="'.&mt('New Discussion').'" src="'.$location.'/chat.gif" title="'.&mt('New Discussion').'"/>' .
Line 1132  sub render_long_status { Line 1144  sub render_long_status {
         $result .= getDescription($resource, $part);          $result .= getDescription($resource, $part);
         if ($color) {$result .= "</b></font>"; }          if ($color) {$result .= "</b></font>"; }
     }      }
     if ($resource->is_map()) {  
         if (&Apache::lonnet::allowed('mdc')) {  
             if ($resource->symb=~/\_\_\_[^\_]+\_\_\_uploaded/) {  
                $result.="&nbsp;<a href='/adm/coursedocs?command=direct&symb=".&escape($resource->symb())."'>".  
                               "<span class='LC_setting'>".&mt("Edit Content").'</span></a>&nbsp;';  
             }  
         }  
     }  
     if ($resource->is_map() && &advancedUser() && $resource->randompick()) {      if ($resource->is_map() && &advancedUser() && $resource->randompick()) {
         $result .= &mt('(randomly select [_1])', $resource->randompick());          $result .= &mt('(randomly select [_1])', $resource->randompick());
     }      }
Line 1509  END Line 1513  END
             if ($env{'course.'.$env{'request.course.id'}.'.url'} eq               if ($env{'course.'.$env{'request.course.id'}.'.url'} eq 
                 "uploaded/$cdom/$cnum/default.sequence") {                  "uploaded/$cdom/$cnum/default.sequence") {
                 &add_linkitem($args->{'linkitems'},'edittoplevel',                  &add_linkitem($args->{'linkitems'},'edittoplevel',
                               "javascript:gocmd('/adm/coursedocs','direct');",                                "javascript:gocmd('/adm/coursedocs','editdocs');",
                               'Content Editor');                                'Content Editor');
             }              }
         }          }
Line 1855  sub add_linkitem { Line 1859  sub add_linkitem {
   
 sub show_linkitems_toolbar {  sub show_linkitems_toolbar {
     my ($args,$condition) = @_;      my ($args,$condition) = @_;
     my $result =       my $result =
         '<table><tr><td>'.          '<table><tr><td>'.
         &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').          &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').
         '</td>'.          '</td>'.
Line 1865  sub show_linkitems_toolbar { Line 1869  sub show_linkitems_toolbar {
         if (ref($args->{'linkitems'}) eq 'HASH') {          if (ref($args->{'linkitems'}) eq 'HASH') {
             my @linkorder = ('firsthomework','everything','uncompleted',              my @linkorder = ('firsthomework','everything','uncompleted',
                              'changefolder','clearbubbles','edittoplevel');                               'changefolder','clearbubbles','edittoplevel');
             $result .='<td align="left">'."\n".               $result .='<td align="left">'."\n".
                       '<span class="LC_nobreak">'."\n".                        '<span class="LC_nobreak">'."\n".
                       '<ul id="LC_toolbar">';                        '<ul id="LC_toolbar">';
             foreach my $link (@linkorder) {              foreach my $link (@linkorder) {
Line 1903  sub show_linkitems_toolbar { Line 1907  sub show_linkitems_toolbar {
     return $result;      return $result;
 }  }
   
   
 1;  1;
   
   
Removed from v.1.476  
changed lines
  Added in v.1.477

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