[LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm loncommon.pm lonmsgdisplay.pm
raeburn
raeburn at source.lon-capa.org
Wed Jan 29 04:11:10 EST 2025
raeburn Wed Jan 29 09:11:10 2025 EDT
Modified files:
/loncom/interface lonmsgdisplay.pm loncommon.pm
Log:
- WCAG 2 compliance
-------------- next part --------------
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.201 loncom/interface/lonmsgdisplay.pm:1.202
--- loncom/interface/lonmsgdisplay.pm:1.201 Tue Jan 28 21:57:52 2025
+++ loncom/interface/lonmsgdisplay.pm Wed Jan 29 09:11:10 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.201 2025/01/28 21:57:52 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.202 2025/01/29 09:11:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -229,36 +229,35 @@
<form method="post" action="/adm/email" name="folderlist">
<div class="LC_columnSection"><fieldset>
<legend>'.&mt('Folder Actions').'</legend>
- <table border="0" cellspacing="2" cellpadding="8">
- <tr>
- <td><b>'.$html_lt{'fold'}.'</b><br />'."\n".
- &Apache::loncommon::select_form($folder,'folder',\%formhash).'
- </td>
- <td><b>'.$html_lt{'show'}.'</b><br />'."\n".
+ <div class="LC_columnSection">
+ <div class="LC_mail_actions"><label><b>'.$html_lt{'fold'}.'</b><br />'."\n".
+ &Apache::loncommon::select_form($folder,'folder',\%formhash).'</label>
+ </div>
+ <div class="LC_mail_actions"><label><b>'.$html_lt{'show'}.'</b><br />'."\n".
&Apache::loncommon::select_form($env{'form.interdis'},'interdis',
- \%show).'
- </td>
- <td><b>'.$html_lt{'status'}.'</b><br />'."\n".
- &Apache::loncommon::select_form($msgstatus,'msgstatus',\%statushash).'
- </td>
- <td style="padding-right: 40px;">
- <b>'.$html_lt{'actn'}.'</b><br />'."\n".'
+ \%show).'</label>
+ </div>
+ <div class="LC_mail_actions"><label><b>'.$html_lt{'status'}.'</b><br />'."\n".
+ &Apache::loncommon::select_form($msgstatus,'msgstatus',\%statushash).'</label>
+ </div>
+ <div class="LC_mail_actions" style="padding-right: 1em">
+ <label><b>'.$html_lt{'actn'}.'</b><br />'."\n".'
<span class="LC_nobreak">'.
- &Apache::loncommon::select_form('view','folderaction',\%actions).
+ &Apache::loncommon::select_form('view','folderaction',\%actions).'</label>'.
' <input type="button" value="'.$html_lt{'go'}.
'" onclick="javascript:folder_choice(this.form,'."'change'".');" />
</span>
- </td>
- <td style="border-left: 1px solid;padding-left: 40px;">
- <b>'.&mt('New Folder').'</b><br />'."\n".'
+ </div>
+ <div class="LC_vertical_line" style="padding: 0; height: 4em; margin: 0">
+ </div>
+ <div class="LC_mail_actions" style="padding-left: 3em">
<span class="LC_nobreak">
- <input type="text" size="15" name="newfolder" value="" />
+ <label><b>'.&mt('New Folder').'</b><br />'."\n".'
+ <input type="text" size="15" name="newfolder" value="" /></label>
<input type="button" value="'.$html_lt{'go'}.
'" onclick="javascript:folder_choice(this.form,'."'new'".');" />
</span>
- </td>
- </tr>
- </table>
+ </div>
</fieldset></div>
'."\n".
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />'.
@@ -1152,7 +1151,7 @@
$r->print('<form method="post" name="disall" action="/adm/email">'.
&Apache::loncommon::start_data_table().
&Apache::loncommon::start_data_table_row().
- '<th colspan="1"> </th><th>');
+ '<th colspan="1">#</th><th>');
if ($env{'form.sortedby'} eq "revdate") {
$r->print('<a href = "/adm/email?sortedby=date'.$fsqs.'">'.&mt('Date').'</a></th>');
} else {
@@ -1231,10 +1230,10 @@
}
}
my $localsenttime = &Apache::lonlocal::locallocaltime($sendtime);
- $r->print('<td align="right"><span class="LC_nobreak">'.(($status eq 'new')?'<b>':'').
+ $r->print('<td align="right"><span class="LC_nobreak"><label>'.(($status eq 'new')?'<b>':'').
$count.'.'.(($status eq 'new')?'</b>':'').' '.
'<input type="checkbox" name="delmark"'.
- ' value="'.$origID.'" /></span></td>');
+ ' value="'.$origID.'" /></label></span></td>');
foreach my $item ($localsenttime,$dis_name,$dis_domain,$shortsubj) {
$r->print('<td>'.(($status eq 'new')?'<b>':'').
'<a href="/adm/email?display='.$origID.$sqs.'">'.
@@ -1272,16 +1271,15 @@
$r->print('
<div class="LC_columnSection"><fieldset>
<legend>'.&mt('Message Actions').'</legend>
-<table border="0" cellspacing="2" cellpadding="8">
- <tr>
- <td><b>'.&mt('Select Messages').'</b><br />
+<div class="LC_mail_actions">
+ <b>'.&mt('Select Messages').'</b><br />
<span class="LC_nobreak">
<input type="button" onclick="javascript:checkAll(document.disall.delmark)" value="'.&mt('Check All').'" />'."\n".
' <input type="button" onclick="javascript:uncheckAll(document.disall.delmark)" value="'.&mt('Uncheck All').'" />'."\n".
'<input type="hidden" name="sortedby" value="'.$env{'form.sortedby'}.'" />
</span>
- </td>'."\n".
- '<td><b>'.&mt('Action').'</b><br />'."\n".
+ </div>'."\n".
+ '<div class="LC_mail_actions"><label><b>'.&mt('Action').'</b><br />'."\n".
' <select name="checkedaction">'."\n");
if ($folder ne 'trash') {
@@ -1300,7 +1298,7 @@
$r->print(' <option value="markedmove">'.&mt('Move to Folder ->').
'</option>');
}
- $r->print("\n".'</select></td>'."\n");
+ $r->print("\n".'</select></label></div>'."\n");
if (keys(%gotfolders) > 0) {
$r->print('<td><b>'.&mt('Destination folder').'</b><br />');
@@ -1312,10 +1310,9 @@
$r->print(&Apache::loncommon::select_form('','movetofolder',\%userfolders).
'</td>');
}
- $r->print('<td style="vertical-align:bottom;">'.
- '<input type="button" name="go" value="'.&mt('Go').
- '" onclick="javascript:validate_checkedaction()"/></td>'."\n".
- '</tr></table>'."\n".
+ $r->print('<div class="LC_mail_actions">'.
+ '<br /><input type="button" name="go" value="'.&mt('Go').
+ '" onclick="javascript:validate_checkedaction()"/></div>'."\n".
'</fieldset></div>'."\n"
);
my $postedstartdis=$startdis+1;
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1447 loncom/interface/loncommon.pm:1.1448
--- loncom/interface/loncommon.pm:1.1447 Sun Jan 26 07:17:02 2025
+++ loncom/interface/loncommon.pm Wed Jan 29 09:11:10 2025
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# a pile of common routines
#
-# $Id: loncommon.pm,v 1.1447 2025/01/26 07:17:02 raeburn Exp $
+# $Id: loncommon.pm,v 1.1448 2025/01/29 09:11:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -8235,6 +8235,21 @@
padding-right: 5px;
}
+.LC_mail_actions {
+ float: left;
+ padding: 0;
+ margin: 6px;
+}
+
+.LC_vertical_line {
+ width: 1px;
+ background-color: black;
+ height: 4em;
+ float: left;
+ margin: 0;
+ padding: 0;
+}
+
span.LC_prior_numerical,
span.LC_prior_string,
span.LC_prior_custom,
More information about the LON-CAPA-cvs
mailing list