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

Diff for /loncom/interface/lonmenu.pm between versions 1.184 and 1.187

version 1.184, 2006/05/30 20:09:25 version 1.187, 2006/06/28 20:56:00
Line 175  ENDMAINMENU Line 175  ENDMAINMENU
       <td>        <td>
         <a href="/adm/logout" target="_top">$lt{'exit'}</a>          <a href="/adm/logout" target="_top">$lt{'exit'}</a>
      </td>       </td>
      <td align="right">       <td "LC_top_nav_logo">
        <img align="right" src="$logo" alt="Logo" />         <img align="right" src="$logo" alt="Logo" />
        <b>LON-CAPA</b>&nbsp;         <b>LON-CAPA</b>&nbsp;
      </td>       </td>
Line 194  ENDINLINEMENU Line 194  ENDINLINEMENU
     $navmaps=(<<ENDNAV);      $navmaps=(<<ENDNAV);
 <td><a href="$link" target="_top">$lt{'nav'}</a></td>  <td><a href="$link" target="_top">$lt{'nav'}</a></td>
 ENDNAV  ENDNAV
   my $is_group = (&Apache::loncommon::course_type() eq 'Group');
     if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {      if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) {
                 my $text = $lt{'docs'};                  my $text = ($is_group) ? $lt{'gdoc'} : $lt{'docs'};
                 if ($env{'course.'.$env{'request.course.id'}.'.type'} eq   
                     'Group') {  
                     $text = $lt{'gdoc'};  
                 }   
  $docs=(<<ENDDOCS);   $docs=(<<ENDDOCS);
 <td><a href="/adm/coursedocs" target="_top">$text</a></td>  <td><a href="/adm/coursedocs" target="_top">$text</a></td>
 ENDDOCS  ENDDOCS
             }              }
             if ($showgroups) {              if ($showgroups) {
                 my $text = $lt{'groups'};                  my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'};
                 if ($env{'course.'.$env{'request.course.id'}.'.type'} eq  
                     'Group') {  
                     $text = $lt{'teams'};  
                 }  
                 $groups =(<<ENDGROUPS);                  $groups =(<<ENDGROUPS);
 <td><a href="/adm/coursegroups" target="_top">$text</a></td>  <td><a href="/adm/coursegroups" target="_top">$text</a></td>
 ENDGROUPS  ENDGROUPS
Line 940  sub rawconfig { Line 933  sub rawconfig {
         $prt=~s/\$udom/$udom/g;          $prt=~s/\$udom/$udom/g;
         $prt=~s/\$crs/$crs/g;           $prt=~s/\$crs/$crs/g; 
         $prt=~s/\$requested_domain/$requested_domain/g;          $prt=~s/\$requested_domain/$requested_domain/g;
         my $type = $env{'course.'.$env{'request.course.id'}.'.type'};          my $type = &Apache::loncommon::course_type();
         if ($type eq 'Group') {          if ($type eq 'Group') {
             $desc = &convert_menu_function($desc,$type);              $desc = &convert_menu_function($desc,$type);
         }          }
Line 1272  sub get_nav_status { Line 1265  sub get_nav_status {
     return $navstatus;      return $navstatus;
 }  }
   
   #FIXME this needs to move into mydesktab and the other locations 
   # the text is generated
 sub convert_menu_function {  sub convert_menu_function {
     my ($rolename,$type) = @_;      my ($rolename,$type) = @_;
     if ($type eq 'Group') {      if ($type eq 'Group') {
Removed from v.1.184  
changed lines
  Added in v.1.187

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