version 1.315.2.13, 2011/10/03 14:30:03
|
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 2077 sub jump_to_role {
|
Line 2085 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 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; |
} |
} |