';
+ for (my $col=1; $col<=2; $col++) {
+ $output.='';
+ for (my $row=1; $row<=8; $row++) {
+ foreach my $cat (keys(%category_members)) {
+ if ($category_positions{$cat} ne "$col,$row") { next; }
+ $output.=' ';
+ my %active=();
+ foreach my $menu_item (split(/\:/,$category_members{$cat})) {
+ if ($inlineremote[$menu_item]) {
+ $active{$menu_item}=1;
+ }
+ }
+ foreach my $item (sort(keys(%active))) {
+ $output.=$inlineremote[$item];
+ }
+ $output.=' ';
+ }
+ }
+ $output.=" | ";
+ }
+ $output.="
";
+ return $output;
+}
+
sub rawconfig {
my $textualoverride=shift;
my $output='';
@@ -1131,18 +1155,6 @@ 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') ||