version 1.239.4.2, 2008/12/13 15:55:40
|
version 1.241, 2008/09/05 19:20:39
|
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 268 $reloadlink
|
Line 272 $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 990 sub inlinemenu {
|
Line 995 sub inlinemenu {
|
&rawconfig(1); |
&rawconfig(1); |
my $output='<table id="LC_mainmenu"><tr>'; |
my $output='<table id="LC_mainmenu"><tr>'; |
for (my $col=1; $col<=2; $col++) { |
for (my $col=1; $col<=2; $col++) { |
$output.='<td class="LC_mainmenu_column">'; |
$output.='<td class="LC_mainmenu_col_fieldset">'; |
for (my $row=1; $row<=8; $row++) { |
for (my $row=1; $row<=8; $row++) { |
foreach my $cat (keys(%category_members)) { |
foreach my $cat (keys(%category_members)) { |
if ($category_positions{$cat} ne "$col,$row") { next; } |
if ($category_positions{$cat} ne "$col,$row") { next; } |
$output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
#$output.='<table id="LC_menubuttons_mainmenu"><tr><td colspan="4" class="LC_menubuttons_category">'.&mt($category_names{$cat}).'</td></tr>'; |
|
$output.='<fieldset id="LC_mainmenu_fieldset">'; |
|
$output.='<legend class="LC_mainmenu_fieldset_category">'.&mt($category_names{$cat}).'</legend>'; |
|
$output.='<table id="LC_menubuttons_mainmenu">'; |
my %active=(); |
my %active=(); |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
foreach my $menu_item (split(/\:/,$category_members{$cat})) { |
if ($inlineremote[$menu_item]) { |
if ($inlineremote[$menu_item]) { |
Line 1003 sub inlinemenu {
|
Line 1011 sub inlinemenu {
|
} |
} |
foreach my $item (sort(keys(%active))) { |
foreach my $item (sort(keys(%active))) { |
$output.=$inlineremote[$item]; |
$output.=$inlineremote[$item]; |
|
&Apache::lonnet::logthis("item=$item output=$inlineremote[$item]"); |
} |
} |
$output.='</table>'; |
$output.='</table>'; |
|
$output.='</fieldset>'; |
} |
} |
} |
} |
$output.="</td>"; |
$output.="</td>"; |
Line 1121 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') || |