version 1.315.2.15, 2011/11/30 18:34:25
|
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(/\&/,$_); |