[LON-CAPA-cvs] cvs: loncom /interface lonconfigsettings.pm
raeburn
raeburn at source.lon-capa.org
Sun Dec 14 22:28:54 EST 2025
raeburn Mon Dec 15 03:28:54 2025 EDT
Modified files:
/loncom/interface lonconfigsettings.pm
Log:
- WCAG 2 compliance.
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.77 loncom/interface/lonconfigsettings.pm:1.78
--- loncom/interface/lonconfigsettings.pm:1.77 Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonconfigsettings.pm Mon Dec 15 03:28:54 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set domain-wide configuration settings
#
-# $Id: lonconfigsettings.pm,v 1.77 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.78 2025/12/15 03:28:54 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -818,14 +818,17 @@
$heading = &mt('Settings to display');
}
}
- $r->print('<h3>'.$heading.'</h3>'.
+ $r->print('<h2 class="LC_heading_2">'.$heading.'</h2>'.
'<div><input type="button" value="'.&mt('check all').'" '.
'onclick="javascript:checkAll(document.pickactions.actions)"'.
' />'.(' 'x2).
'<input type="button" value="'.&mt('uncheck all').'" '.
'onclick="javascript:uncheckAll(document.pickactions.actions)" />'.
"\n".
- '</div><div class="LC_left_float">');
+ '</div>'."\n".
+ '<fieldset style="border: 0; padding: 0; margin: 0">'.
+ '<legend class="LC_visually_hidden">'.$heading.'</legend>'.
+ '<div class="LC_left_float">');
my ($numitems,$maxincol,$firstthird,$secondthird,$seconddiv,$thirddiv,$count);
if (ref($prefs_order) eq 'ARRAY') {
$numitems = @{$prefs_order};
@@ -840,10 +843,10 @@
$count = 0;
if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH')) {
foreach my $item (@{$prefs_order}) {
- $r->print('<h4>'.
+ $r->print('<h3 class="LC_heading_3">'.
&Apache::loncommon::help_open_topic($prefs->{$item}->{'help'}).
'<label><input type="checkbox" name="actions" value="'.$item.
- '" /> '.&mt($prefs->{$item}->{'text'}).'</label></h4>');
+ '" /> '.&mt($prefs->{$item}->{'text'}).'</label></h3>');
$count ++;
if ((!$seconddiv) && ($count >= $firstthird)) {
$r->print('</div>'."\n".'<div class="LC_left_float">'."\n");
@@ -855,7 +858,7 @@
}
}
}
- $r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
+ $r->print('</div></fieldset><div style="padding:0;clear:both;margin:0;border:0"></div>');
$r->print(&print_footer($r,$phase,'display','Display',undef,$container,$parm_permission));
$r->print('</form>');
if ($container) {
More information about the LON-CAPA-cvs
mailing list