version 1.239, 2008/07/05 23:21:23
|
version 1.239.4.3, 2008/12/30 18:39:03
|
Line 251 ENDCRELOAD
|
Line 251 ENDCRELOAD
|
} |
} |
my $form=&serverform(); |
my $form=&serverform(); |
my $utility=&utilityfunctions(); |
my $utility=&utilityfunctions(); |
my $remote; |
|
if ($env{'user.adv'}) { |
|
$remote = '<td><a href="/adm/remote?action=launch&url='.$escurl.'" target="_top">'.$lt{'launch'}.'</a></td>' |
|
} |
|
|
|
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
my $helplink=&Apache::loncommon::top_nav_help('Help'); |
return (<<ENDINLINEMENU); |
return (<<ENDINLINEMENU); |
Line 272 $reloadlink
|
Line 268 $reloadlink
|
$navmaps |
$navmaps |
$docs |
$docs |
$groups |
$groups |
$remote |
|
$roles |
$roles |
<td class="LC_top_nav_help">$helplink</td> |
<td class="LC_top_nav_help">$helplink</td> |
<td class="LC_top_nav_exit"><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> |
Line 519 c&8&1
|
Line 514 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 |
s&8&3&prt.gif&prepare[_1]&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document |
s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1 |
s&9&1&sbkm.gif&set[_1]&bookmark[_2]&set_bookmark()&Set a bookmark for this resource&&1 |
s&9&3&anot.gif&anno-[_1]&tations[_1]&annotate()&Make notes and annotations about this resource&&1 |
|
ENDMENUITEMS |
ENDMENUITEMS |
|
my $currentURL = &Apache::loncommon::get_symb(); |
|
my ($symb_old,$symb_old_enc) = &Apache::loncommon::clean_symb($currentURL); |
|
my $annotation = &Apache::loncommon::get_annotation($symb_old,$symb_old_enc); |
|
$menuitems.="s&9&3&"; |
|
if (length($annotation) > 0){ |
|
$menuitems.="anot2.gif"; |
|
} else { |
|
$menuitems.="anot.gif"; |
|
} |
|
$menuitems.="&anno-[_1]&tations[_1]&annotate()&"; |
|
$menuitems.="Make notes and annotations about this resource&&1\n"; |
|
|
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
unless ($env{'request.noversionuri'}=~/\/(bulletinboard|smppg|navmaps|syllabus|aboutme)(\?|$)/) { |
if (!$env{'request.enc'}) { |
if (!$env{'request.enc'}) { |
Line 1126 sub rawconfig {
|
Line 1131 sub rawconfig {
|
} |
} |
} |
} |
} |
} |
|
} elsif ($pro eq 'tools') { |
|
my @tools = ('aboutme','blog','portfolio'); |
|
if (grep(/^\Q$prt\E$/,@tools)) { |
|
if (!&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'},$prt)) { |
|
$output.=&clear($row,$col); |
|
next; |
|
} |
|
} |
|
$prt='any'; |
|
$output.=&secondlevel( |
|
$uname,$udom,$rol,$crs,$pub,$con,$row,$col,$prt,$img,$top,$bot,$act,$desc,$cat); |
} |
} |
} |
} |
unless (($env{'browser.interface'} eq 'textual') || |
unless (($env{'browser.interface'} eq 'textual') || |