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

Diff for /loncom/interface/lonmenu.pm between versions 1.185 and 1.186

version 1.185, 2006/06/12 18:10:37 version 1.186, 2006/06/27 18:16:03
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{'groups'} : $lt{'teams'};
                 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.185  
changed lines
  Added in v.1.186

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