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

Diff for /loncom/interface/lonmenu.pm between versions 1.315.2.13 and 1.315.2.15.2.1

version 1.315.2.13, 2011/10/03 14:30:03 version 1.315.2.15.2.1, 2012/03/02 14:48:19
Line 783  ENDREALRES Line 783  ENDREALRES
     }      }
         }          }
  if ($env{'request.uri'} =~ /^\/res/) {   if ($env{'request.uri'} =~ /^\/res/) {
             my $icontext = &mt('Print');              if (($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') ||
     $menuitems .= (<<ENDMENUITEMS);                 ($env{'request.role'} =~ /^cc/)) {
                   my $icontext = &mt('Print');
           $menuitems .= (<<ENDMENUITEMS);
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext  s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icontext
 ENDMENUITEMS  ENDMENUITEMS
       }
  }   }
         my $buttons='';          my $buttons='';
         foreach (split(/\n/,$menuitems)) {          foreach (split(/\n/,$menuitems)) {
Line 2077  sub jump_to_role { Line 2080  sub jump_to_role {
                 orlb => 'Enter a specific section, or leave blank for no section.',                  orlb => 'Enter a specific section, or leave blank for no section.',
                 avai => 'Available sections are:',                  avai => 'Available sections are:',
                 youe => 'You entered an invalid section choice:',                  youe => 'You entered an invalid section choice:',
                 plst => 'Please try again',                  plst => 'Please try again.',
                 role => 'The role you selected is not permitted to view the current page.',                  role => 'The role you selected is not permitted to view the current page.',
                 swit => 'Switch role, but display Main Menu page instead?',                  swit => 'Switch role, but display Main Menu page instead?',
     );      );
Line 2234  sub required_privs { Line 2237  sub required_privs {
              '/adm/statistics'   => 'vgr',               '/adm/statistics'   => 'vgr',
            };             };
     unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {      unless ($env{'course.'.$env{'request.course.id'}.'.grading'} eq 'spreadsheet') {
         $privs->{'/adm/classcalc'}   => 'vgr',          $privs->{'/adm/classcalc'}   = 'vgr',
         $privs->{'/adm/assesscalc'}  => 'vgr',          $privs->{'/adm/assesscalc'}  = 'vgr',
         $privs->{'/adm/studentcalc'} => 'vgr';          $privs->{'/adm/studentcalc'} = 'vgr';
     }      }
     return $privs;      return $privs;
 }  }
Removed from v.1.315.2.13  
changed lines
  Added in v.1.315.2.15.2.1

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