version 1.93, 2021/08/04 19:59:10
|
version 1.94, 2021/10/18 22:29:20
|
Line 995 sub process_changes {
|
Line 995 sub process_changes {
|
} |
} |
} |
} |
} |
} |
|
|
} |
} |
|
|
foreach my $idx (@items) { |
foreach my $idx (@items) { |
my $itemid = $itemids{$idx}; |
my $itemid = $itemids{$idx}; |
next unless ($itemid); |
next unless ($itemid); |
Line 4076 sub print_feedback {
|
Line 4076 sub print_feedback {
|
} |
} |
if ($position eq 'top') { |
if ($position eq 'top') { |
my $includeempty = 0; |
my $includeempty = 0; |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
&user_table($cdom,$item,\@sections, |
&user_table($cdom,$item,\@sections, |
$settings->{$item},\%lt,$noedit); |
$settings->{$item},\%lt,$noedit); |
} else { |
} else { |
$datatable .= &Apache::lonhtmlcommon::textbox($item.'.text', |
$datatable .= &Apache::lonhtmlcommon::textbox($item.'.text', |
Line 4300 sub print_discussion {
|
Line 4300 sub print_discussion {
|
'<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit). |
'<table>'.&role_checkboxes($cdom,$cnum,$item,$settings,undef,undef,$noedit). |
'</table>'; |
'</table>'; |
} elsif ($item eq 'plc.users.denied') { |
} elsif ($item eq 'plc.users.denied') { |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
&user_table($cdom,$item,undef, |
&user_table($cdom,$item,undef, |
$settings->{$item},\%lt,$noedit); |
$settings->{$item},\%lt,$noedit); |
} elsif ($item eq 'pch.roles.denied') { |
} elsif ($item eq 'pch.roles.denied') { |
$datatable .= '</td><td align="right">'. |
$datatable .= '</td><td align="right">'. |
Line 5064 sub print_menuitems {
|
Line 5064 sub print_menuitems {
|
my %checked; |
my %checked; |
my $on = ' checked="checked"'; |
my $on = ' checked="checked"'; |
foreach my $key (keys(%{$menu{$num}})) { |
foreach my $key (keys(%{$menu{$num}})) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) { |
if ($menu{$num}{$key} eq 'y') { |
if ($menu{$num}{$key} eq 'y') { |
$checked{$key} = $on; |
$checked{$key} = $on; |
} |
} |
Line 5081 sub print_menuitems {
|
Line 5081 sub print_menuitems {
|
foreach my $category (@order) { |
foreach my $category (@order) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
$datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n"; |
$datatable .= '<fieldset style="vertical-align:top; display:inline-block"><legend>'.$menutitles{$category}.'</legend>'."\n"; |
|
if ($category eq 'text') { |
|
$datatable .= '<i>'.&mt('Header').'</i><br />'; |
|
} |
foreach my $field (@{$categories{$category}}) { |
foreach my $field (@{$categories{$category}}) { |
|
if ($field eq 'disc') { |
|
$datatable .= '<br /><i>'.&mt('Footer').'</i><br />'; |
|
} |
$datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'. |
$datatable .= '<label><input type="checkbox" name="menucollections_'.$num.'" value="'.$field.'"'.$checked{$field}.$disabled.' />'. |
$menufields{$field}.'</label><br />'; |
$menufields{$field}.'</label><br />'; |
} |
} |
Line 5131 sub menuitems_abbreviations {
|
Line 5137 sub menuitems_abbreviations {
|
sub menuitems_categories { |
sub menuitems_categories { |
my @order = ('shown','text','links','list','inline'); |
my @order = ('shown','text','links','list','inline'); |
my %categories = ( |
my %categories = ( |
shown => ['top','inline','main'], |
shown => ['top','inline','foot','main'], |
text => ['name','role','crs'], |
text => ['name','role','crs','disc','fdbk'], |
links => ['pers','logo','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 5143 sub menuitems_categories {
|
Line 5149 sub menuitems_categories {
|
sub menuitems_titles { |
sub menuitems_titles { |
return &Apache::lonlocal::texthash ( |
return &Apache::lonlocal::texthash ( |
shown => 'Hierarchy', |
shown => 'Hierarchy', |
text => 'Header text', |
text => 'Text', |
links => 'Header links', |
links => 'Header links', |
list => 'Drop-down list', |
list => 'Drop-down list', |
inline => 'Inline links', |
inline => 'Inline links', |
Line 5154 sub menuitems_fields {
|
Line 5160 sub menuitems_fields {
|
return &Apache::lonlocal::texthash ( |
return &Apache::lonlocal::texthash ( |
top => 'Display header', |
top => 'Display header', |
inline => 'Display inline menu', |
inline => 'Display inline menu', |
|
foot => 'Display footer', |
main => 'Access to main menu', |
main => 'Access to main menu', |
pers => 'Personal', |
pers => 'Personal', |
logo => 'LON-CAPA', |
logo => 'LON-CAPA', |
Line 5165 sub menuitems_fields {
|
Line 5172 sub menuitems_fields {
|
name => 'Fullname', |
name => 'Fullname', |
crs => 'Course Title', |
crs => 'Course Title', |
role => 'Current Role', |
role => 'Current Role', |
|
disc => 'Discussion', |
|
fdbk => 'Feedback', |
about => 'Information', |
about => 'Information', |
prefs => 'Preferences', |
prefs => 'Preferences', |
port => 'Portfolio', |
port => 'Portfolio', |
Line 5206 sub menucollections_display {
|
Line 5215 sub menucollections_display {
|
foreach my $num (@current) { |
foreach my $num (@current) { |
my %checked; |
my %checked; |
foreach my $key (keys(%{$menu{$num}})) { |
foreach my $key (keys(%{$menu{$num}})) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'main')) { |
if (($key eq 'top') || ($key eq 'inline') || ($key eq 'foot') || ($key eq 'main')) { |
if ($menu{$num}{$key} eq 'y') { |
if ($menu{$num}{$key} eq 'y') { |
$checked{$key} = 1; |
$checked{$key} = 1; |
} |
} |
Line 5224 sub menucollections_display {
|
Line 5233 sub menucollections_display {
|
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
if ((ref($categories{$category}) eq 'ARRAY') && (@{$categories{$category}} > 0)) { |
$output .= '<fieldset style="vertical-align:top; display:inline-block">'. |
$output .= '<fieldset style="vertical-align:top; display:inline-block">'. |
'<legend>'.$menutitles{$category}.'</legend>'."\n"; |
'<legend>'.$menutitles{$category}.'</legend>'."\n"; |
|
if ($category eq 'text') { |
|
$output .= '<b>'.&mt('Header Text').'</b><br /><br />'; |
|
} |
foreach my $field (@{$categories{$category}}) { |
foreach my $field (@{$categories{$category}}) { |
|
if ($field eq 'disc') { |
|
$output .= '<br /><b>'.&mt('Footer Text').'</b><br /><br />'; |
|
} |
if ($checked{$field}) { |
if ($checked{$field}) { |
$output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field}); |
$output .= &Apache::lonhtmlcommon::confirm_success($menufields{$field}); |
} else { |
} else { |