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

Diff for /loncom/interface/lonmenu.pm between versions 1.195 and 1.199

version 1.195, 2006/07/14 16:46:36 version 1.199, 2006/07/19 10:52:27
Line 65  sub initlittle { Line 65  sub initlittle {
        'launch' => 'Launch Remote Control',         'launch' => 'Launch Remote Control',
                                        'groups' => 'Groups',                                         'groups' => 'Groups',
                                        'gdoc' => 'Group Documents',                                         'gdoc' => 'Group Documents',
                                        'teams' => 'Teams',  
                                        );                                         );
 }  }
   
Line 91  sub menubuttons { Line 90  sub menubuttons {
     my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));      my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'}));
     my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));      my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'}));
   
       my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");
       $logo = '<td class="LC_top_nav_logo"><a href="/adm/about.html"><img src="'.
    $logo.'" alt="LON-CAPA Logo" /></a></td>';
   
     if ($env{'request.state'} eq 'construct') {      if ($env{'request.state'} eq 'construct') {
         if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {          if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) {
             my $returnurl = $env{'request.filename'};              my $returnurl = $env{'request.filename'};
Line 101  sub menubuttons { Line 104  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'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
         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'});
  }   }
Line 129  ENDRELOAD Line 132  ENDRELOAD
 <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>  <a href="/adm/coursedocs" target="_top">$lt{'docs'}</a>
 ENDDOCS  ENDDOCS
             }              }
 #            if ($showgroups) {              if ($showgroups) {
 #                $groups =(<<ENDGROUPS);                  $groups =(<<ENDGROUPS);
 #<a href="/adm/coursegroups" target="_top">$lt{'groups'}</a>  <a href="/adm/coursegroups" target="_top">$lt{'groups'}</a>
 #ENDGROUPS  ENDGROUPS
 #            }              }
  }   }
         my $form=&serverform();          my $form=&serverform();
         my $utility=&utilityfunctions();          my $utility=&utilityfunctions();
Line 168  ENDMAINMENU Line 171  ENDMAINMENU
         my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);          my $vlink=&Apache::loncommon::designparm($function.'.vlink',$domain);
         my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);          my $sidebg=&Apache::loncommon::designparm($function.'.sidebg',$domain);
  if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {   if ($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public') {
     my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");  
     return (<<ENDINLINEMENU);      return (<<ENDINLINEMENU);
    <table id="LC_top_nav">     <table id="LC_top_nav">
     <tr>      <tr>
       <td>        $logo
         <td></td>
         <td class="LC_top_nav_exit">
         <a href="/adm/logout" target="_top">$lt{'exit'}</a>          <a href="/adm/logout" target="_top">$lt{'exit'}</a>
      </td>       </td>
      <td class="LC_top_nav_logo">LON-CAPA<img src="$logo" alt="Logo" /></td>  
     </tr>      </tr>
   </table>    </table>
 </font>  </font>
Line 198  my $is_group = (&Apache::loncommon::cour Line 201  my $is_group = (&Apache::loncommon::cour
 <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 = ($is_group) ? $lt{'teams'} : $lt{'groups'};                  $groups =(<<ENDGROUPS);
 #                $groups =(<<ENDGROUPS);  <td><a href="/adm/coursegroups" target="_top">$lt{'groups'}</a></td>
 #<td><a href="/adm/coursegroups" target="_top">$text</a></td>  ENDGROUPS
 #ENDGROUPS              }
 #            }  
     if (      if (
  ($env{'request.noversionuri'}=~m[^/(res|public)/] &&   ($env{'request.noversionuri'}=~m[^/(res|public)/] &&
  $env{'request.symb'} eq '')   $env{'request.symb'} eq '')
Line 232  ENDCRELOAD Line 234  ENDCRELOAD
         }          }
         my $form=&serverform();          my $form=&serverform();
  my $utility=&utilityfunctions();   my $utility=&utilityfunctions();
  my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif");  
  my $remote;   my $remote;
  if ($env{'user.adv'}) {   if ($env{'user.adv'}) {
     $remote = '<td><a href="/adm/remote?action=launch&amp;url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'      $remote = '<td><a href="/adm/remote?action=launch&amp;url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>'
  }   }
         my $helptopic='Student_Intro';  
         if ($env{'request.role'}=~/^(ca|au)/) {          my $helplink=&Apache::loncommon::top_nav_help('Help');
     $helptopic='Authoring_Intro';  
  } elsif ($env{'request.role'}=~/^cc/) {  
     $helptopic='Course_Coordination_Intro';  
  }  
         my $helplink=&Apache::loncommon::help_open_topic($helptopic,'Help');  
  return (<<ENDINLINEMENU);   return (<<ENDINLINEMENU);
 <script type="text/javascript">  <script type="text/javascript">
 // BEGIN LON-CAPA Internal  // BEGIN LON-CAPA Internal
Line 253  $utility Line 249  $utility
 </script>  </script>
 <table id="LC_top_nav">  <table id="LC_top_nav">
 <tr>  <tr>
 <td class="LC_top_nav_logo">  $logo
 <a href="/adm/about.html"><img src="$logo" alt="LON-CAPA Logo" align="left" border="0" /></a></td>  
 <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>  <td><a href="/adm/menu" target="_top">$lt{'main'}</a></td>
 $reloadlink  $reloadlink
 $navmaps  $navmaps
Line 262  $docs Line 257  $docs
 $groups  $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>$helplink</td>  <td class="LC_top_nav_help">$helplink</td>
 <td class="LC_top_logout"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>  <td class="LC_top_nav_exit"><a href="/adm/logout" target="_top">$lt{'exit'}</a></td>
 </tr>  </tr>
 </table>  </table>
 $form  $form
Line 392  sub innerregister { Line 387  sub innerregister {
     &Apache::lonnet::allowed('opa',$crs)) {      &Apache::lonnet::allowed('opa',$crs)) {
     $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',      $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]',
      "gocmd('/adm/parmset','set')",       "gocmd('/adm/parmset','set')",
      'Modify deadlines, etc, for this resource');       'Modify parameter settings for this resource');
  }   }
 # -- End Homework  # -- End Homework
         ###          ###
Removed from v.1.195  
changed lines
  Added in v.1.199

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