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

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

version 1.475, 2011/12/21 20:21:49 version 1.476, 2011/12/25 19:39:08
Line 464  returns 4 Line 464  returns 4
   
 =item add_linkitem()  =item add_linkitem()
   
 =item show_linkitems()  =item show_linkitems_toolbar()
   
 =back  =back
   
Line 1516  END Line 1516  END
     }      }
   
     if ($args->{'caller'} eq 'navmapsdisplay') {      if ($args->{'caller'} eq 'navmapsdisplay') {
         $result .= '<table><tr><td>'.          $result .= &show_linkitems_toolbar($args,$condition);
                    &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').'</td>';  
     $result .= '<td>&nbsp;</td>';   
  $result.='<td class="LC_middle">'.&mt('Tools:').'</td>';  
  $result.=&show_linkitems_toolbar($args->{'linkitems'});  
         if ($args->{'sort_html'}) {  
             $result.='<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>'.  
                 '<td align="right">'.$args->{'sort_html'}.'</td></tr>';  
         }  
         $result .= '</table>';  
     } elsif ($args->{'sort_html'}) {       } elsif ($args->{'sort_html'}) { 
         $result.=$args->{'sort_html'};           $result.=$args->{'sort_html'}; 
     }      }
Line 1863  sub add_linkitem { Line 1854  sub add_linkitem {
 }  }
   
 sub show_linkitems_toolbar {  sub show_linkitems_toolbar {
     my ($linkitems,$condition)=@_;      my ($args,$condition) = @_;
     my @linkorder = ('firsthomework','everything','uncompleted',      my $result = 
                      'changefolder','clearbubbles','edittoplevel');          '<table><tr><td>'.
     my $result .='<td align="left">'."\n".           &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').
                  '<span class="LC_nobreak">'."\n".          '</td>'.
                  '<ul id="LC_toolbar">';          '<td>&nbsp;</td>'.
     foreach my $link (@linkorder) {          '<td class="LC_middle">'.&mt('Tools:').'</td>';
         my $link_id = 'LC_content_toolbar_'.$link;      if (ref($args) eq 'HASH') {
         if (defined($linkitems->{$link})) {          if (ref($args->{'linkitems'}) eq 'HASH') {
             if ($linkitems->{$link}{'text'} ne '') {              my @linkorder = ('firsthomework','everything','uncompleted',
                 $linkitems->{$link}{'cmd'}=~s/"/'/g;                               'changefolder','clearbubbles','edittoplevel');
                 if ($linkitems->{$link}{'cmd'}) {              $result .='<td align="left">'."\n". 
                     if ($link eq 'changefolder') {                        '<span class="LC_nobreak">'."\n".
                         if ($condition) {                        '<ul id="LC_toolbar">';
                             $link_id='LC_content_toolbar_changefolder_toggled';              foreach my $link (@linkorder) {
                         } else {                  my $link_id = 'LC_content_toolbar_'.$link;
                             $link_id='LC_content_toolbar_changefolder';                  if (ref($args->{'linkitems'}{$link}) eq 'HASH') {
                       if ($args->{'linkitems'}{$link}{'text'} ne '') {
                           $args->{'linkitems'}{$link}{'cmd'}=~s/"/'/g;
                           if ($args->{'linkitems'}{$link}{'cmd'}) {
                               if ($link eq 'changefolder') {
                                   if ($condition) {
                                       $link_id='LC_content_toolbar_changefolder_toggled';
                                   } else {
                                       $link_id='LC_content_toolbar_changefolder';
                                   }
                               }
                               $result .= '<li><a href="#" '.
                                          'onclick="'.$args->{'linkitems'}{$link}{'cmd'}.'" '.
                                          'id="'.$link_id.'" '.
                                          'class="LC_toolbarItem" '.
                                          'title="'.$args->{'linkitems'}{$link}{'text'}.'">'.
                                          '</a></li>'."\n";
                         }                          }
                     }                      }
                     $result .= '<li><a href="#" '.  
                                'onclick="'.$linkitems->{$link}{'cmd'}.'" '.  
                                'id="'.$link_id.'" '.  
                                'class="LC_toolbarItem" '.  
                                'title="'.$linkitems->{$link}{'text'}.'">'.  
                                '</a></li>'."\n";  
                 }                  }
             }              }
               $result .= '</ul>'.
                          '</span></td>'."\n";
           }
           if ($args->{'sort_html'}) {
               $result .= '<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>'.
                          '<td align="right">'.$args->{'sort_html'}.'</td>';
         }          }
     }      }
     $result .= '</ul>'.      $result .= '</tr></table>';
                '</span></td>'."\n";  
     return $result;      return $result;
 }  }
   
Removed from v.1.475  
changed lines
  Added in v.1.476

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