[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.14 and 1.315.2.15.2.3

version 1.315.2.14, 2011/10/21 17:14:00 version 1.315.2.15.2.3, 2012/05/01 12:39:32
Line 743  s&2&3&forw.gif&forward[_1]&&gopost('/adm Line 743  s&2&3&forw.gif&forward[_1]&&gopost('/adm
 c&6&3  c&6&3
 c&8&1  c&8&1
 c&8&2  c&8&2
 s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}  
 s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}  
 ENDMENUITEMS  ENDMENUITEMS
               if ((($env{'request.course.id'} ne 'relate_3e100973b27484f2drelatel1') &&
                    ($env{'request.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
                   ($env{'request.role'} =~ /^cc/)) {
                   $menuitems .= "s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document&&&$icon_text{'printout'}\n";
               }
               $menuitems .= "s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1&$icon_text{'bookmark'}\n";
   
 my $currentURL = &Apache::loncommon::get_symb();  my $currentURL = &Apache::loncommon::get_symb();
 my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);  my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL);
Line 783  ENDREALRES Line 787  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.course.id'} ne 'relate_2764113e81b9e4f0crelatel1')) ||
                   ($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)) {
     my ($command,@rest)=split(/\&/,$_);      my ($command,@rest)=split(/\&/,$_);
Line 2234  sub required_privs { Line 2242  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.14  
changed lines
  Added in v.1.315.2.15.2.3

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