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

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

version 1.187, 2006/06/28 20:56:00 version 1.188, 2006/06/29 18:43:33
Line 63  sub initlittle { Line 63  sub initlittle {
                                        'docs' => 'Course Documents',                                         'docs' => 'Course Documents',
                                        'exit' => 'Exit',                                         'exit' => 'Exit',
        'launch' => 'Launch Remote Control',         'launch' => 'Launch Remote Control',
                                        'groups' => 'Course Groups',                                         'groups' => 'Groups',
                                        'gdoc' => 'Group Documents',                                         'gdoc' => 'Group Documents',
                                        'teams' => 'Teams',                                         'teams' => 'Teams',
                                        );                                         );
Line 100  sub menubuttons { Line 100  sub menubuttons {
     }      }
     if ($env{'request.course.id'}) {      if ($env{'request.course.id'}) {
         my %coursegroups;          my %coursegroups;
         my $viewgrps_permission =                                                          my $viewgrps_permission =
                      &Apache::lonnet::allowed('vcg',$env{'request.course.id'});      &Apache::lonnet::allowed('vcg',$env{'request.course.id'});
         if (!$viewgrps_permission) {          if (!$viewgrps_permission) {
             %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});              %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'});
         }   }
         if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {          if ((keys(%coursegroups) > 0) || ($viewgrps_permission)) {
             $showgroups = 1;              $showgroups = 1;
         }          }
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 "LC_top_nav_logo">       <td "LC_top_nav_logo">LON-CAPA<img src="$logo" alt="Logo" /></td>
        <img align="right" src="$logo" alt="Logo" />  
        <b>LON-CAPA</b>&nbsp;  
      </td>  
    </tr>     </tr>
   </table>    </table>
 </font>  </font>
Line 257  $groups Line 254  $groups
 $remote  $remote
 <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>  <td><a href="/adm/roles" target="_top">$lt{'roles'}</a></td>
 <td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>  <td><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
 <td class="LC_top_nav_logo"><img align="right" src="$logo" alt="Logo" /><b>LON-CAPA</b></td>  <td class="LC_top_nav_logo">LON-CAPA<img src="$logo" alt="Logo" /></td>
 </tr>  </tr>
 </table>  </table>
 $form  $form
Removed from v.1.187  
changed lines
  Added in v.1.188

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