version 1.91, 2020/10/29 23:24:13
|
version 1.92, 2021/06/07 02:19:51
|
Line 884 sub process_changes {
|
Line 884 sub process_changes {
|
my $currdef = $values->{'menudefault'}; |
my $currdef = $values->{'menudefault'}; |
my $possdef = $env{'form.menudefault'}; |
my $possdef = $env{'form.menudefault'}; |
if (($possdef =~ /^\d+$/) && (grep(/^$possdef$/,@colls))) { |
if (($possdef =~ /^\d+$/) && (grep(/^$possdef$/,@colls))) { |
if ($values->{'menudefault'} ne $possdef) { |
if ($currdef ne $possdef) { |
$changes->{'menudefault'} = $possdef; |
$changes->{'menudefault'} = $possdef; |
} |
} |
} elsif ($values->{'menudefault'}) { |
} elsif ($currdef) { |
$changes->{'menudefault'} = ''; |
$changes->{'menudefault'} = ''; |
} |
} |
my $menucoll; |
my $menucoll; |
Line 4930 sub menuitems_categories {
|
Line 4930 sub menuitems_categories {
|
my %categories = ( |
my %categories = ( |
shown => ['top','inline','main'], |
shown => ['top','inline','main'], |
text => ['name','role','crs'], |
text => ['name','role','crs'], |
links => ['personal','menu','comm','roles','help','logout'], |
links => ['pers','logo','menu','comm','roles','help','logout'], |
list => ['about','prefs','port','wish','anno','rss'], |
list => ['about','prefs','port','wish','anno','rss'], |
inline => ['cont','grades','chat','people','groups','resv','syll','feeds'], |
inline => ['cont','grades','chat','people','groups','resv','syll','feeds'], |
); |
); |
Line 4952 sub menuitems_fields {
|
Line 4952 sub menuitems_fields {
|
top => 'Display header', |
top => 'Display header', |
inline => 'Display inline menu', |
inline => 'Display inline menu', |
main => 'Access to main menu', |
main => 'Access to main menu', |
personal => 'Personal', |
pers => 'Personal', |
|
logo => 'LON-CAPA', |
menu => 'Home', |
menu => 'Home', |
comm => 'Messages', |
comm => 'Messages', |
roles => 'Roles/Courses', |
roles => 'Roles/Courses', |