From raeburn at source.lon-capa.org  Mon Dec  8 21:29:03 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Tue, 09 Dec 2025 02:29:03 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface createaccount.pm
	domainprefs.pm loncommon.pm lonconfigsettings.pm
	lonsupportreq.pm resetpw.pm
Message-ID: <cvsraeburn1765247343@cvsserver>

raeburn		Tue Dec  9 02:29:03 2025 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm createaccount.pm loncommon.pm 
                     	lonconfigsettings.pm lonsupportreq.pm resetpw.pm 
  Log:
  - Supported third party Captcha services now recaptcha v2 and v3, hcaptcha, 
    and turnstile.
  
  
-------------- next part --------------
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.453 loncom/interface/domainprefs.pm:1.454
--- loncom/interface/domainprefs.pm:1.453	Wed Aug 13 19:13:09 2025
+++ loncom/interface/domainprefs.pm	Tue Dec  9 02:29:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.453 2025/08/13 19:13:09 raeburn Exp $
+# $Id: domainprefs.pm,v 1.454 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10478,10 +10478,14 @@
 
 sub captcha_choice {
     my ($context,$settings,$itemcount,$customcss,$rowstyle) = @_;
-    my ($keyentry,$currpub,$currpriv,%checked,$rowname,$pubtext,$privtext,
-        $vertext,$currver);
+    my ($currpub,$currpriv,$currtype,$currver,%checked,$rowname,
+        $dispprov,$dispver,$dispkeys,$threshold,$threshtext,$threshentry);
     my %lt = &captcha_phrases();
-    $keyentry = 'hidden';
+    $threshtext = '';
+    $threshentry = 'hidden';
+    $dispkeys = 'none';
+    $dispprov = 'none';
+    $dispver = 'none';
     my $colspan=2;
     if ($context eq 'cancreate') {
         $rowname = &mt('CAPTCHA validation');
@@ -10497,14 +10501,24 @@
         } else {
             $checked{'original'} = ' checked="checked"';
         }
-        if ($settings->{'captcha'} eq 'recaptcha') {
-            $pubtext = $lt{'pub'};
-            $privtext = $lt{'priv'};
-            $keyentry = 'text';
-            $vertext = $lt{'ver'};
-            $currver = $settings->{'recaptchaversion'};
-            if ($currver ne '2') {
-                $currver = 1;
+        if (($settings->{'captcha'} eq 'recaptcha') ||
+            ($settings->{'captcha'} eq 'hcaptcha') ||
+            ($settings->{'captcha'} eq 'turnstile')) {
+            $checked{'successor'} = ' checked="checked"';
+            $currtype = $settings->{'captcha'};
+            $dispkeys = 'block';
+            $dispprov = 'block';
+            if ($settings->{'captcha'} eq 'recaptcha') {
+                $dispver = 'block';
+                $currver = $settings->{'recaptchaversion'};
+                if ($currver eq '1') {
+                    $currver = 2;
+                }
+                if ($currver eq '3') {
+                    $threshold = $settings->{'captchathreshold'};
+                    $threshtext = $lt{'threshold'};
+                    $threshentry = 'text';
+                }
             }
         }
         if (ref($settings->{'recaptchakeys'}) eq 'HASH') {
@@ -10530,32 +10544,61 @@
     }
     my $output = '<tr'.$css_class.'>'.
                  '<td class="LC_left_item">'.$rowname.'</td><td class="LC_left_item" colspan="'.$colspan.'">'."\n".
-                 '<table><tr><td>'."\n";
-    foreach my $option ('original','recaptcha','notused') {
+                 '<table><tr><td><fieldset class="LC_captcha"><legend>'.$lt{'captcha'}.'</legend>'."\n";
+    foreach my $option ('original','successor','notused') {
         $output .= '<span class="LC_nobreak"><label><input type="radio" name="'.$context.'_captcha" value="'.
-                   $option.'" '.$checked{$option}.' onchange="javascript:updateCaptcha('."this,'$context'".');" />'.
+                   $option.'" '.$checked{$option}.' onchange="javascript:updateCaptcha('."'captcha','$context',this.form".');" />'.
                    $lt{$option}.'</label></span>';
         unless ($option eq 'notused') {
             $output .= ('&nbsp;'x2)."\n";
         }
     }
 #
-# Note: If reCAPTCHA is to be used for LON-CAPA servers in a domain, a domain coordinator should visit:
-# https://www.google.com/recaptcha and generate a Public and Private key. For domains with multiple
-# servers a single key pair will be used for all servers, so the internet domain (e.g., yourcollege.edu)
-# specified for use with the key should be broad enough to accommodate all servers in the LON-CAPA domain.
+# Note: If reCaptcha is to be used for LON-CAPA servers in a domain, a domain coordinator should visit:
+# https://cloud.google.com/security/products/recaptcha and generate a site key and secret key. For domains
+# with multiple servers a single key pair will be used for all servers, so the internet domain
+# (e.g., yourcollege.edu) specified for use with the key should be broad enough to accommodate all servers
+# in the LON-CAPA domain. If a change is made from using reCaptcha v2 to using v3, then a new pair
+# needs to be generated via the Google Cloud dashboard.
+#
+# Similarly, if hCaptcha is to be used, a site key and secret key will need to be generated by adding a
+# new site at https://dashboard.hcaptcha.com/, and if Turnstile is to be used a site key and secret key
+# will need to be created by visiting https://dash.cloudflare.com and adding a new Turnstile widget.
 #
-    $output .= '</td></tr>'."\n".
+    $output .= '</fieldset></td></tr>'."\n".
                '<tr><td class="LC_zero_height">'."\n".
-               '<span class="LC_nobreak"><span id="'.$context.'_recaptchapubtxt">'.$pubtext.'</span>&nbsp;'."\n".
-               '<input type="'.$keyentry.'" id="'.$context.'_recaptchapub" name="'.$context.'_recaptchapub" value="'.
-               $currpub.'" size="40" /></span><br />'."\n".
-               '<span class="LC_nobreak"><span id="'.$context.'_recaptchaprivtxt">'.$privtext.'</span>&nbsp;'."\n".
-               '<input type="'.$keyentry.'" id="'.$context.'_recaptchapriv" name="'.$context.'_recaptchapriv" value="'.
-               $currpriv.'" size="40" /></span><br />'.
-               '<span class="LC_nobreak"><span id="'.$context.'_recaptchavertxt">'.$vertext.'</span>&nbsp;'."\n".
-               '<input type="'.$keyentry.'" id="'.$context.'_recaptchaversion" name="'.$context.'_recaptchaversion" value="'.
-               $currver.'" size="3" /></span><br />'.
+               '<fieldset class="LC_captcha" id="'.$context.'_recaptchatype" style="display:'.$dispprov.'">'.
+               '<legend>'.$lt{'type'}.'</legend>'."\n";
+    foreach my $type ('recaptcha','hcaptcha','turnstile') {
+        my $provider = $lt{$type};
+        my $checked;
+        if ($currtype eq $type) {
+            $checked = ' checked="checked"';
+        }
+        $output .= '<label><input type="radio" name="'.$context.'_captchaprovider" value="'.$type.'"'.$checked.' onchange="javascript:updateCaptchaProv('."'captchaprovider','$context',this.form".');" />'.$provider.'</label>&nbsp;&nbsp; ';
+    }
+    $output .= '</fieldset><br />'.
+               '<fieldset class="LC_captcha" id="'.$context.'_recaptchaver" style="display:'.$dispver.'"><legend>'.$lt{'ver'}.'</legend>'."\n".
+               '<span class="LC_nobreak">';
+    foreach my $poss ('2','3') {
+        my $checked;
+        if ($currver eq $poss) {
+            $checked = ' checked="checked"'
+        }
+        $output .= '<label><input type="radio" name="'.$context.'_recaptchaversion" value="'.$poss.'"'.$checked.' onchange="javascript:updateRecapVer('."'recaptchaversion','$context',this.form".');" />'.$poss.'</label>&nbsp;&nbsp;';
+    }
+    $output .= '<span class="LC_nobreak">'.
+               '<span id="'.$context.'_recaptchathrtxt">'.$threshtext.'</span>'."\n".
+               '&nbsp;<input id="'.$context.'_recaptchathresh" type="'.$threshentry.'" size="3"'.
+               ' name="'.$context.'_captchathreshold" value="'.$threshold.'" /></span></span>'."\n".
+               '</fieldset><br />'.
+               '<fieldset class="LC_captcha" id="'.$context.'_recaptchakeys" style="display:'.$dispkeys.'"><legend>'.$lt{'keys'}.'</legend>'."\n".
+               '<span class="LC_nobreak">'.$lt{'pub'}.':&nbsp;'.
+               '<input type="text" name="'.$context.'_recaptchapub" value="'.$currpub.'" size="40" />'.
+               '</span><br />'."\n".
+               '<span class="LC_nobreak">'.$lt{'priv'}.':&nbsp;'.
+               '<input type="text" name="'.$context.'_recaptchapriv" value="'.$currpriv.'" size="40" /></span>'."\n".
+               '</fieldset><br />'."\n".
                '</td></tr></table>'."\n".
                '</td></tr>';
     return $output;
@@ -13036,16 +13079,16 @@
                             $pubkey = $loginhash{'login'}{$item}{'public'};
                             $privkey = $loginhash{'login'}{$item}{'private'};
                         }
-                        my $chgtxt .= &mt('ReCAPTCHA keys changes').'<ul>';
+                        my $chgtxt .= &mt('CAPTCHA keys changes').'<ul>';
                         if (!$pubkey) {
-                            $chgtxt .= '<li>'.&mt('Public key deleted').'</li>';
+                            $chgtxt .= '<li>'.&mt('Site key deleted').'</li>';
                         } else {
-                            $chgtxt .= '<li>'.&mt('Public key set to [_1]',$pubkey).'</li>';
+                            $chgtxt .= '<li>'.&mt('Site key set to [_1]',$pubkey).'</li>';
                         }
                         if (!$privkey) {
-                            $chgtxt .= '<li>'.&mt('Private key deleted').'</li>';
+                            $chgtxt .= '<li>'.&mt('Secret key deleted').'</li>';
                         } else {
-                            $chgtxt .= '<li>'.&mt('Private key set to [_1]',$privkey).'</li>';
+                            $chgtxt .= '<li>'.&mt('Secret key set to [_1]',$privkey).'</li>';
                         }
                         $chgtxt .= '</ul>';
                         $resulttext .= '<li>'.$chgtxt.'</li>';
@@ -13053,7 +13096,15 @@
                 } elsif ($item eq 'recaptchaversion') {
                     if (ref($loginhash{'login'}) eq 'HASH') {
                         if ($loginhash{'login'}{'captcha'} eq 'recaptcha') {
-                            $resulttext .= '<li>'.&mt('ReCAPTCHA for helpdesk form set to version [_1]',$loginhash{'login'}{'recaptchaversion'}).
+                            $resulttext .= '<li>'.&mt('reCaptcha for helpdesk form set to version [_1]',$loginhash{'login'}{'recaptchaversion'}).
+                                           '</li>';
+                        }
+                    }
+                } elsif ($item eq 'captchathreshold') {
+                    if (ref($loginhash{'login'}) eq 'HASH') {
+                        if (($loginhash{'login'}{'captcha'} eq 'recaptcha') &&
+                            ($loginhash{'login'}{'recaptchaversion'} eq '3')) {
+                            $resulttext .= '<li>'.&mt('reCaptcha for helpdesk form rejection threshold set to [_1]',$loginhash{'login'}{'captchathreshold'}).
                                            '</li>';
                         }
                     }
@@ -18423,11 +18474,30 @@
                         if ($confighash{'passwords'}{'captcha'} eq 'original') {
                             $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: original CAPTCHA').'</li>';
                         } elsif ($confighash{'passwords'}{'captcha'} eq 'recaptcha') {
-                            $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: reCAPTCHA').' '.
-                                           &mt('version: [_1]',$confighash{'passwords'}{'recaptchaversion'}).'<br />';
+                            $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: reCaptcha').' '.
+                                           &mt('version: [_1]',$confighash{'passwords'}{'recaptchaversion'});
+                            if ($confighash{'passwords'}{'recaptchaversion'} eq '3') {
+                                $resulttext .= ' '.&mt('rejection threshold set to [_1]',
+                                                       $confighash{'passwords'}{'captchathreshold'});
+                            }
+                            $resulttext .= '<br />';
                             if (ref($confighash{'passwords'}{'recaptchakeys'}) eq 'HASH') {
-                                $resulttext .= &mt('Public key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'public'}).'</br>'.
-                                               &mt('Private key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'private'}).'</li>';
+                                $resulttext .= &mt('Site key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'public'}).'</br>'.
+                                               &mt('Secret key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'private'}).'</li>';
+                            }
+                        } elsif (($confighash{'passwords'}{'captcha'} eq 'hcaptcha') ||
+                                 ($confighash{'passwords'}{'captcha'} eq 'turnstile')) {
+                            my %captchas = &captcha_phrases();
+                            if ($captchas{$confighash{'passwords'}{'captcha'}}) {
+                                $resulttext .= '<li>'.&mt('CAPTCHA validation set to use: [_1]',
+                                                          $captchas{$confighash{'passwords'}{'captcha'}}).
+                                               '<br />';
+                                if (ref($confighash{'passwords'}{'recaptchakeys'}) eq 'HASH') {
+                                    $resulttext .= &mt('Site key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'public'}).'</br>'.
+                                                   &mt('Secret key: [_1]',$confighash{'passwords'}{'recaptchakeys'}{'private'}).'</li>';
+                                }
+                            } else {
+                                $resulttext .= &mt('CAPTCHA validation set to use unknown type.');
                             }
                         } else {
                             $resulttext .= '<li>'.&mt('No CAPTCHA validation').'</li>';
@@ -19348,7 +19418,12 @@
 #
     $save_usercreate{'cancreate'}{'captcha'} = $savecaptcha{'captcha'};
     $save_usercreate{'cancreate'}{'recaptchakeys'} = $savecaptcha{'recaptchakeys'};
-    $save_usercreate{'cancreate'}{'recaptchaversion'} = $savecaptcha{'recaptchaversion'};
+    if ($savecaptcha{'captcha'} eq 'recaptcha') {
+        $save_usercreate{'cancreate'}{'recaptchaversion'} = $savecaptcha{'recaptchaversion'};
+        if ($savecaptcha{'recaptchaversion'} eq '3') {
+            $save_usercreate{'cancreate'}{'captchathreshold'} = $savecaptcha{'captchathreshold'};
+        }
+    }
     $save_usercreate{'cancreate'}{'selfcreate'} = $cancreate{'selfcreate'};
     if (ref($cancreate{'notify'}) eq 'HASH') {
         $save_usercreate{'cancreate'}{'notify'} = $cancreate{'notify'};
@@ -19619,21 +19694,25 @@
                             $pubkey = $savecaptcha{$type}{'public'};
                             $privkey = $savecaptcha{$type}{'private'};
                         }
-                        $chgtext .= &mt('ReCAPTCHA keys changes').'<ul>';
+                        $chgtext .= &mt('CAPTCHA keys changes').'<ul>';
                         if (!$pubkey) {
-                            $chgtext .= '<li>'.&mt('Public key deleted').'</li>';
+                            $chgtext .= '<li>'.&mt('Site key deleted').'</li>';
                         } else {
-                            $chgtext .= '<li>'.&mt('Public key set to [_1]',$pubkey).'</li>';
+                            $chgtext .= '<li>'.&mt('Site key set to [_1]',$pubkey).'</li>';
                         }
                         if (!$privkey) {
-                            $chgtext .= '<li>'.&mt('Private key deleted').'</li>';
+                            $chgtext .= '<li>'.&mt('Secret key deleted').'</li>';
                         } else {
-                            $chgtext .= '<li>'.&mt('Private key set to [_1]',$pubkey).'</li>';
+                            $chgtext .= '<li>'.&mt('Secret key set to [_1]',$pubkey).'</li>';
                         }
                         $chgtext .= '</ul>';
                     } elsif ($type eq 'recaptchaversion') {
                         if ($savecaptcha{'captcha'} eq 'recaptcha') {
-                            $chgtext .= &mt('ReCAPTCHA set to version [_1]',$savecaptcha{$type});
+                            $chgtext .= &mt('reCaptcha set to version [_1]',$savecaptcha{$type});
+                        }
+                    } elsif ($type eq 'captchathreshold') {
+                        if (($savecaptcha{'captcha'} eq 'recaptcha') && ($savecaptcha{'recaptchaversion'} eq '3')) {
+                            $chgtext .= &mt('reCaptcha v3 rejection threshold set to [_1]',$savecaptcha{$type});
                         }
                     } elsif ($type eq 'emailusername') {
                         if (ref($cancreate{'emailusername'}) eq 'HASH') {
@@ -19785,9 +19864,18 @@
     my ($container,$changes,$newsettings,$currsettings) = @_;
     return unless ((ref($changes) eq 'HASH') && (ref($newsettings) eq 'HASH'));
     $newsettings->{'captcha'} = $env{'form.'.$container.'_captcha'};
-    unless ($newsettings->{'captcha'} eq 'recaptcha' || $newsettings->{'captcha'} eq 'notused') {
+    unless (($newsettings->{'captcha'} eq 'successor') ||
+	    ($newsettings->{'captcha'} eq 'notused')) {
         $newsettings->{'captcha'} = 'original';
     }
+    if ($newsettings->{'captcha'} eq 'successor') {
+       $newsettings->{'captcha'} = $env{'form.'.$container.'_captchaprovider'};
+       unless (($newsettings->{'captcha'} eq 'recaptcha') ||
+               ($newsettings->{'captcha'} eq 'hcaptcha') ||
+               ($newsettings->{'captcha'} eq 'turnstile')) {
+           $newsettings->{'captcha'} = 'original';
+       }
+    }
     my %current;
     if (ref($currsettings) eq 'HASH') {
         %current = %{$currsettings};
@@ -19805,8 +19893,11 @@
             $changes->{'captcha'} = 1;
         }
     }
-    my ($newpub,$newpriv,$currpub,$currpriv,$newversion,$currversion);
-    if ($newsettings->{'captcha'} eq 'recaptcha') {
+    my ($newpub,$newpriv,$currpub,$currpriv,$newversion,$currversion,
+        $newthreshold,$currthreshold);
+    if (($newsettings->{'captcha'} eq 'recaptcha') ||
+        ($newsettings->{'captcha'} eq 'hcaptcha') ||
+        ($newsettings->{'captcha'} eq 'turnstile')) {
         $newpub = $env{'form.'.$container.'_recaptchapub'};
         $newpriv = $env{'form.'.$container.'_recaptchapriv'};
         $newpub =~ s/[^\w\-]//g;
@@ -19815,17 +19906,30 @@
                                              public  => $newpub,
                                              private => $newpriv,
                                           };
-        $newversion = $env{'form.'.$container.'_recaptchaversion'};
-        $newversion =~ s/\D//g;
-        if ($newversion ne '2') {
-            $newversion = 1;
+        if ($newsettings->{'captcha'} eq 'recaptcha') {
+            $newversion = $env{'form.'.$container.'_recaptchaversion'};
+            $newversion =~ s/\D//g;
+            if ($newversion eq '3') {
+                $newthreshold = $env{'form.'.$container.'_captchathreshold'};
+                $newthreshold =~ s/^\s+|\s+$//g;
+                unless (($newthreshold =~ /^\d(|\.\d*)$/) ||
+                        ($newthreshold =~ /^\.\d+$/) &&
+                        ($newthreshold >= 0.0) && ($newthreshold <= 1.0)) {
+                    $newthreshold = 0.5;
+                }
+                $newsettings->{'captchathreshold'} = $newthreshold;
+            } else {
+                $newversion = 2;
+            }
+            $newsettings->{'recaptchaversion'} = $newversion;
         }
-        $newsettings->{'recaptchaversion'} = $newversion;
     }
     if (ref($current{'recaptchakeys'}) eq 'HASH') {
         $currpub = $current{'recaptchakeys'}{'public'};
         $currpriv = $current{'recaptchakeys'}{'private'};
-        unless ($newsettings->{'captcha'} eq 'recaptcha') {
+        unless (($newsettings->{'captcha'} eq 'recaptcha') ||
+                ($newsettings->{'captcha'} eq 'hcaptcha') ||
+                ($newsettings->{'captcha'} eq 'turnstile')) {
             $newsettings->{'recaptchakeys'} = {
                                                  public  => '',
                                                  private => '',
@@ -19834,9 +19938,12 @@
     }
     if ($current{'captcha'} eq 'recaptcha') {
         $currversion = $current{'recaptchaversion'};
-        if ($currversion ne '2') {
+        if (($currversion ne '2') && ($currversion ne '3')) {
             $currversion = 1;
         }
+        if ($currversion eq '3') {
+            $currthreshold = $current{'captchathreshold'};
+        }
     }
     if ($currversion ne $newversion) {
         if ($container eq 'cancreate') {
@@ -19864,6 +19971,22 @@
             $changes->{'recaptchakeys'} = 1;
         }
     }
+    if (($newsettings->{'captcha'} eq 'recaptcha') && ($current{'captcha'} eq 'recaptcha') &&
+        ($newsettings->{'recaptchaversion'} eq '3') && ($currversion eq '3')) {
+        if ($newsettings->{'captchathreshold'} ne $currthreshold) {
+            if ($container eq 'cancreate') {
+                if (ref($changes->{'cancreate'}) eq 'ARRAY') {
+                    push(@{$changes->{'cancreate'}},'captchathreshold');
+                } elsif (!defined($changes->{'cancreate'})) {
+                    $changes->{'cancreate'} = ['captchathreshold'];
+                }
+            } elsif ($container eq 'passwords') {
+                $changes->{'reset'} = 1;
+            } else {
+                $changes->{'captchathreshold'} = 1;
+            }
+        }
+    }
     return;
 }
 
@@ -24010,64 +24133,92 @@
 <script type="text/javascript">
 // <![CDATA[
 
-function updateCaptcha(caller,context) {
-    var privitem;
-    var pubitem;
-    var privtext;
-    var pubtext;
-    var versionitem;
-    var versiontext;
-    if (document.getElementById(context+'_recaptchapub')) {
-        pubitem = document.getElementById(context+'_recaptchapub');
+function updateCaptcha(radio,context,form) {
+    var keysitem;
+    var typeitem;
+    var veritem;
+    if (document.getElementById(context+'_recaptchakeys')) {
+        keysitem = document.getElementById(context+'_recaptchakeys');
     } else {
         return;
     }
-    if (document.getElementById(context+'_recaptchapriv')) {
-        privitem = document.getElementById(context+'_recaptchapriv');
+    if (document.getElementById(context+'_recaptchatype')) {
+        typeitem = document.getElementById(context+'_recaptchatype');
     } else {
         return;
     }
-    if (document.getElementById(context+'_recaptchapubtxt')) {
-        pubtext = document.getElementById(context+'_recaptchapubtxt');
+    if (document.getElementById(context+'_recaptchaver')) {
+        veritem = document.getElementById(context+'_recaptchaver');
     } else {
         return;
     }
-    if (document.getElementById(context+'_recaptchaprivtxt')) {
-        privtext = document.getElementById(context+'_recaptchaprivtxt');
+    if (form.elements[context+'_'+radio].length) {
+        for (var i=0; i<form.elements[context+'_'+radio].length; i++) {
+            if (form.elements[context+'_'+radio][i].checked) {
+                if (form.elements[context+'_'+radio][i].value == 'successor') {
+                    keysitem.style.display='block';
+                    typeitem.style.display='block';
+                    updateCaptchaProv('captchaprovider',context,form);
+                } else {
+                    keysitem.style.display='none';
+                    typeitem.style.display='none';
+                    veritem.style.display='none';
+                }
+                break;
+            }
+        }
+    }
+    return;
+}
+
+function updateCaptchaProv(radio,context,form) {
+    var veritem;
+    if (document.getElementById(context+'_recaptchaver')) {
+        veritem = document.getElementById(context+'_recaptchaver');
     } else {
         return;
     }
-    if (document.getElementById(context+'_recaptchaversion')) {
-        versionitem = document.getElementById(context+'_recaptchaversion');
+    veritem.style.display = 'none';
+    if (form.elements[context+'_'+radio].length) {
+        for (var i=0; i<form.elements[context+'_'+radio].length; i++) {
+            if (form.elements[context+'_'+radio][i].checked) {
+                if (form.elements[context+'_'+radio][i].value == 'recaptcha') {
+                    veritem.style.display = 'block';
+                    updateRecapVer('recaptchaversion',context,form);
+                }
+            }
+            break;
+        }
+    }
+}
+
+function updateRecapVer(radio,context,form) {
+    var threshtxtitem;
+    if (document.getElementById(context+'_recaptchathrtxt')) {
+        threshtxtitem = document.getElementById(context+'_recaptchathrtxt');
     } else {
         return;
     }
-    if (document.getElementById(context+'_recaptchavertxt')) {
-        versiontext = document.getElementById(context+'_recaptchavertxt');
+    var thresholditem;
+    if (document.getElementById(context+'_recaptchathresh')) {
+        thresholditem = document.getElementById(context+'_recaptchathresh');
     } else {
         return;
     }
-    if (caller.checked) {
-        if (caller.value == 'recaptcha') {
-            pubitem.type = 'text';
-            privitem.type = 'text';
-            pubitem.size = '40';
-            privitem.size = '40';
-            pubtext.innerHTML = "$lt{'pub'}";
-            privtext.innerHTML = "$lt{'priv'}";
-            versionitem.type = 'text';
-            versionitem.size = '3';
-            versiontext.innerHTML = "$lt{'ver'}";
-        } else {
-            pubitem.type = 'hidden';
-            privitem.type = 'hidden';
-            versionitem.type = 'hidden';
-            pubtext.innerHTML = '';
-            privtext.innerHTML = '';
-            versiontext.innerHTML = '';
+    thresholditem.type = 'hidden';
+    threshtxtitem.innerHTML = "";
+    if (form.elements[context+'_'+radio].length) {
+        for (var i=0; i<form.elements[context+'_'+radio].length; i++) {
+            if (form.elements[context+'_'+radio][i].checked) {
+                if (form.elements[context+'_'+radio][i].value == '3') {
+                    thresholditem.type = 'text';
+                    thresholditem.size = '3';
+                    threshtxtitem.innerHTML = "$lt{'threshold'}";
+                }
+                break;
+            }
         }
     }
-    return;
 }
 
 // ]]>
@@ -24131,12 +24282,19 @@
 
 sub captcha_phrases {
     return &Apache::lonlocal::texthash (
-                 priv => 'Private key',
-                 pub  => 'Public key',
-                 original  => 'original (CAPTCHA)',
-                 recaptcha => 'successor (ReCAPTCHA)',
+                 captcha   => 'Captcha validation',
+                 keys      => 'Keys',
+                 priv      => 'Secret',
+                 pub       => 'Site',
+                 original  => 'original (perl module)',
+                 successor => 'third party',
                  notused   => 'unused',
-                 ver => 'ReCAPTCHA version (1 or 2)',
+                 type      => 'Provider',
+                 recaptcha => 'reCaptcha',
+                 hcaptcha  => 'hCaptcha',
+                 turnstile => 'Turnstile',
+                 ver       => 'reCaptcha version (2 or 3)',
+                 threshold => '-- reject if score below:',
     );
 }
 
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.90 loncom/interface/createaccount.pm:1.91
--- loncom/interface/createaccount.pm:1.90	Tue Feb 18 17:45:11 2025
+++ loncom/interface/createaccount.pm	Tue Dec  9 02:29:03 2025
@@ -4,7 +4,7 @@
 # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as
 # username may be processed automatically, or may be queued for approval.
 #
-# $Id: createaccount.pm,v 1.90 2025/02/18 17:45:11 raeburn Exp $
+# $Id: createaccount.pm,v 1.91 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -335,6 +335,7 @@
     } elsif (!$token) {
         &print_header($r,$start_page,$courseid,$pagetitle);
         my $now=time;
+        my $formname = 'createaccount';
         if ((grep(/^login$/,@{$cancreate})) &&
             ((!grep(/^email$/,@{$cancreate})) || ($need_affiliation))) {
             if (open(my $jsh,"<","$include/londes.js")) {
@@ -342,7 +343,8 @@
                     $r->print($line);
                 }
                 close($jsh);
-                $r->print(&javascript_setforms($now));
+                my $submitform = "               document.$formname.submit();\n";
+                $r->print(&javascript_setforms($now,$submitform));
             }
         }
         if (grep(/^email$/,@{$cancreate})) {
@@ -350,7 +352,7 @@
         }
         my $usertype = &get_usertype($domain);
         $output = &print_username_form($r,$domain,$domdesc,$cancreate,$now,$lonhost,
-                                       $include,$courseid,$emailusername,
+                                       $formname,$include,$courseid,$emailusername,
                                        $statusforemail,$usernameset,$condition,
                                        $excluded,$usertype,$types,$usertypes,$othertitle);
     }
@@ -391,6 +393,7 @@
                       'token','serverid','uname','upass','phase','create_with_email',
                       'code','crypt','cfirstname','clastname','g-recaptcha-response',
                       'recaptcha_challenge_field','recaptcha_response_field',
+                      'h-captcha-response','cf-turnstile-response',
                       'cmiddlename','cgeneration','cpermanentemail','cid']).
                   '</form>');
     }
@@ -436,7 +439,8 @@
 }
 
 sub javascript_setforms {
-    my ($now,$emailusername,$captcha,$usertype,$recaptchaversion,$usernameset,$condition,$excluded) =  @_;
+    my ($now,$submitform,$emailusername,$captcha,$usertype,
+        $recaptcha_version,$pubkey,$usernameset,$condition,$excluded) =  @_;
     my ($setuserinfo, at required,$requiredchk);
     if (ref($emailusername) eq 'HASH') {
         if (ref($emailusername->{$usertype}) eq 'HASH') {  
@@ -454,7 +458,7 @@
             $setuserinfo .= '                    server.elements.code.value=client.elements.code.value;'."\n".
                             '                    server.elements.crypt.value=client.elements.crypt.value;'."\n";
         } elsif ($captcha eq 'recaptcha') {
-            if ($recaptchaversion ne '2') {
+            if ($recaptcha_version < 2) {
                 $setuserinfo .=
                 '                    server.elements.recaptcha_challenge_field.value=client.elements.recaptcha_challenge_field.value;'."\n".
                 '                    server.elements.recaptcha_response_field.value=client.elements.recaptcha_response_field.value;'."\n";
@@ -515,7 +519,7 @@
 $setuserinfo
                     client.elements.upasscheck$now.value='';
                 }
-                server.submit();
+$submitform
             }
         }
         return false;
@@ -524,8 +528,8 @@
 // ]]>
 </script>
 ENDSCRIPT
-    if (($captcha eq 'recaptcha') && ($recaptchaversion eq '2')) {
-        $js .= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";
+    if (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
+        $js .= "\n".&Apache::loncommon::captcha_js($captcha,$recaptcha_version,$pubkey)."\n";
     }
     return $js;
 }
@@ -606,9 +610,9 @@
 }
 
 sub print_username_form {
-    my ($r,$domain,$domdesc,$cancreate,$now,$lonhost,$include,$courseid,$emailusername,
-        $statusforemail,$usernameset,$condition,$excluded,$usertype,$types,$usertypes,
-        $othertitle) = @_;
+    my ($r,$domain,$domdesc,$cancreate,$now,$lonhost,$formname,$include,
+        $courseid,$emailusername,$statusforemail,$usernameset,$condition,
+        $excluded,$usertype,$types,$usertypes,$othertitle) = @_;
     my %lt = &Apache::lonlocal::texthash (
                                          crac => 'Create account with a username provided by this institution',
                                          clca => 'Create LON-CAPA account',
@@ -677,8 +681,9 @@
                 $output .= "\n".'<p><input type="submit" name="reportedtype" value="'.&mt('Submit').'" />'.
                            '</p></fieldset></form>'."\n";
             } else {
-                my ($captchaform,$error,$captcha,$recaptchaversion) = 
-                    &Apache::loncommon::captcha_display('usercreation',$lonhost);
+                my ($captchaform,$error,$captcha,$recaptcha_version,$pubkey,
+                    $hdn_captcha,$recaptcha_submit,$recaptcha_badge) =
+                    &Apache::loncommon::captcha_display('usercreation',$lonhost,$formname);
                 if ($error) {
                     my $helpdesk = '/adm/helpdesk?origurl=%2fadm%2fcreateaccount';
                     if ($courseid ne '') {
@@ -722,8 +727,9 @@
                         }
                     }
                     $output .= &print_dataentry_form($r,$domain,$lonhost,$include,$now,$captchaform,
-                                                     $courseid,$emailusername,$captcha,$usertype,
-                                                     $recaptchaversion,$usernameset,$condition,$excluded);
+                                                     $courseid,$emailusername,$captcha,$formname,$pubkey,
+                                                     $hdn_captcha,$recaptcha_submit,$recaptcha_badge,$usertype,
+                                                     $recaptcha_version,$usernameset,$condition,$excluded);
                 }
             }
             $output .= '</div>';
@@ -851,10 +857,17 @@
                                          $contact_name,$contact_email);
                 return $output;
             } else {
-                my ($captcha_chk,$captcha_error) = &Apache::loncommon::captcha_response('usercreation',$server);
+                my ($captcha_chk,$captcha_error,$captcha) = &Apache::loncommon::captcha_response('usercreation',$server);
                 if ($captcha_chk != 1) {
-                    $output = '<span class="LC_warning">'.
-                              &mt('Validation of the code you entered failed.').'</span>'.
+                    my $errormsg;
+                    if ($captcha eq 'original') {
+                        $errormsg = &mt('Validation of the code you entered failed');
+                    } elsif (($captcha eq 'recaptcha') ||
+                             ($captcha eq 'hcaptcha') ||
+                             ($captcha eq 'turnstile')) {
+                        $errormsg = &mt('Validation of human, not robot, failed');
+                    }
+                    $output = '<span class="LC_warning">'.$errormsg.'</span>'."\n".
                               '<br />'.$captcha_error."\n".'<br /><p>'.
                                &mt('[_1]Return[_2] to the previous page to try again.',
                                    '<a href="javascript:document.retryemail.submit();">','</a>')."\n".
@@ -1179,15 +1192,20 @@
 #
 sub print_dataentry_form {
     my ($r,$domain,$lonhost,$include,$now,$captchaform,$courseid,$emailusername,$captcha,
-        $usertype,$recaptchaversion,$usernameset,$condition,$excluded) = @_;
+        $formname,$pubkey,$hdn_captcha,$recaptcha_submit,$recaptcha_badge,$usertype,
+        $recaptcha_version,$usernameset,$condition,$excluded) = @_;
     my ($error,$output);
     if (open(my $jsh,"<","$include/londes.js")) {
         while(my $line = <$jsh>) {
             $r->print($line);
         }
         close($jsh);
-        $output = &javascript_setforms($now,$emailusername,$captcha,$usertype,$recaptchaversion,
-                                       $usernameset,$condition,$excluded).
+        my $submitform = "               document.$formname.submit();\n";
+        if (($captcha eq 'recaptcha') && ($recaptcha_version eq '3') && ($recaptcha_submit ne '')) {
+            $submitform = $recaptcha_submit;
+        }
+        $output = &javascript_setforms($now,$submitform,$emailusername,$captcha,$usertype,
+                                       $recaptcha_version,$pubkey,$usernameset,$condition,$excluded).
                   "\n".&javascript_checkpass($now,'email',$domain);
         my ($lkey,$ukey) = &Apache::loncommon::des_keys();
         my ($lextkey,$uextkey) = &getkeys($lkey,$ukey);
@@ -1195,7 +1213,7 @@
                                            $lonhost);
         my $showsubmit = 1;
         my $serverform =
-            '<form name="createaccount" method="post" target="_top" action="/adm/createaccount">';
+            '<form name="'.$formname.'" method="post" target="_top" action="/adm/createaccount">';
         if ($courseid ne '') {
             $serverform .= '<input type="hidden" name="courseid" value="'.$courseid.'"/>'."\n";
         }
@@ -1211,27 +1229,28 @@
    <input type="hidden" name="crypt" value="" />
    <input type="hidden" name="code" value="" />
 ';
-        } elsif ($captcha eq 'recaptcha') {
-            if ($recaptchaversion eq '2') {
-                $serverform .= &Apache::lonhtmlcommon::start_pick_box().
-                               &Apache::lonhtmlcommon::row_title(&mt('Validation').'<b>*</b>',
-                                                                 'LC_pick_box_title',
-                                                                 'LC_oddrow_value')."\n".
-                                                                 $captchaform.
-                               &Apache::lonhtmlcommon::row_closure(1)."\n".
-                               &Apache::lonhtmlcommon::row_title()."\n".
-                               '<br /><input type="button" name="createaccount" value="'.
-                               &mt('Create account').'" onclick="checkpass('."'createaccount','newemail'".')" />'.
-                               &Apache::lonhtmlcommon::row_closure(1)."\n".
-                               &Apache::lonhtmlcommon::end_pick_box();
-                undef($captchaform);
-                undef($showsubmit);
-            } else {
-                $serverform .= '
+        } elsif ((($captcha eq 'recaptcha') && ($recaptcha_version eq '2')) ||
+                 ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
+            $serverform .= &Apache::lonhtmlcommon::start_pick_box().
+                           &Apache::lonhtmlcommon::row_title(&mt('Validation').'<b>*</b>',
+                                                             'LC_pick_box_title',
+                                                             'LC_oddrow_value')."\n".
+                                                             $captchaform.
+                           &Apache::lonhtmlcommon::row_closure(1)."\n".
+                           &Apache::lonhtmlcommon::row_title()."\n".
+                           '<br /><input type="button" name="createaccount" value="'.
+                           &mt('Create account').'" onclick="checkpass('."'createaccount','newemail'".')" />'.
+                           &Apache::lonhtmlcommon::row_closure(1)."\n".
+                           &Apache::lonhtmlcommon::end_pick_box();
+            undef($captchaform);
+            undef($showsubmit);
+        } elsif (($captcha eq 'recaptcha') && ($recaptcha_version eq '3')) {
+            $serverform .= "\n$hdn_captcha\n";
+        } elsif (($captcha eq 'recaptcha') && ($recaptcha_version < 2)) {
+            $serverform .= '
    <input type="hidden" name="recaptcha_challenge_field" value="" />
    <input type="hidden" name="recaptcha_response_field" value="" />
 ';
-            }
         }
         if ($usertype ne '') {
             $serverform .= '<input type="hidden" name="type" value="'.
@@ -1279,6 +1298,9 @@
                    '<p class="LC_info">'.
                    &mt('Fields marked [_1]*[_2] are required.','<b>','</b>').
                    '</p>';
+        if ($recaptcha_badge) {
+            $output .= '<p class="LC_info">'.$recaptcha_badge.'</p>';
+        }
     } else {
         $output = &mt('Could not load javascript file [_1]','<tt>londes.js</tt>');
     }
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1486 loncom/interface/loncommon.pm:1.1487
--- loncom/interface/loncommon.pm:1.1486	Thu Nov 27 21:19:07 2025
+++ loncom/interface/loncommon.pm	Tue Dec  9 02:29:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1486 2025/11/27 21:19:07 raeburn Exp $
+# $Id: loncommon.pm,v 1.1487 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8944,6 +8944,11 @@
   font-weight: normal;
 }
 
+fieldset.LC_captcha > legend {
+  font-weight: normal;
+  font-style: italic;
+}
+
 p.LC_medium_line {
   line-height: 0.85em;
 }
@@ -9814,6 +9819,7 @@
   padding-bottom:5px;
 }
 
+.grecaptcha-badge { visibility: hidden; }
 
 END
 }
@@ -19893,8 +19899,8 @@
 }
 
 sub captcha_display {
-    my ($context,$lonhost,$defdom) = @_;
-    my ($output,$error);
+    my ($context,$lonhost,$formname,$defdom) = @_;
+    my ($output,$error,$hdn_captcha,$recaptcha_submit,$recaptcha_badge);
     my ($captcha,$pubkey,$privkey,$version) = 
         &get_captcha_config($context,$lonhost,$defdom);
     if ($captcha eq 'original') {
@@ -19902,32 +19908,58 @@
         unless ($output) {
             $error = 'captcha';
         }
-    } elsif ($captcha eq 'recaptcha') {
-        $output = &create_recaptcha($pubkey,$version);
-        unless ($output) {
-            $error = 'recaptcha';
+    } else {
+        if ($captcha eq 'recaptcha') {
+            my $recaptcha = &create_recaptcha($pubkey,$version);
+            if ($version eq '3') {
+                $hdn_captcha = $recaptcha;
+                $recaptcha_submit = <<ENDJS;
+    grecaptcha.ready(function() {
+      grecaptcha.execute('$pubkey', {action: 'submit'}).then(function(token) {
+        document.getElementById('g-recaptcha-response').value = token;
+        document.$formname.submit();
+      });
+    });
+ENDJS
+                $recaptcha_badge =
+                    &mt('This site is protected by reCAPTCHA and the Google [_1]Privacy Policy[_2] and [_3]Terms of Service[_4] apply.',
+                        '<a href="https://policies.google.com/privacy">',
+                        '</a>',
+                        '<a href="https://policies.google.com/terms">',
+                        '</a>');
+            } else {
+                $output = $recaptcha;
+            }
+        } elsif ($captcha eq 'hcaptcha') {
+            $output = &create_hcaptcha($pubkey);
+        } elsif ($captcha eq 'turnstile') {
+            $output = &create_turnstile($pubkey);
+        }
+        unless ($output || $hdn_captcha) {
+            $error = $captcha;
         }
     }
-    return ($output,$error,$captcha,$version);
+    return ($output,$error,$captcha,$version,$pubkey,$hdn_captcha,$recaptcha_submit,$recaptcha_badge);
 }
 
 sub captcha_response {
     my ($context,$lonhost,$defdom) = @_;
     my ($captcha_chk,$captcha_error);
-    my ($captcha,$pubkey,$privkey,$version) = &get_captcha_config($context,$lonhost,$defdom);
+    my ($captcha,$pubkey,$privkey,$version,$threshold) =
+        &get_captcha_config($context,$lonhost,$defdom);
     if ($captcha eq 'original') {
         ($captcha_chk,$captcha_error) = &check_captcha();
-    } elsif ($captcha eq 'recaptcha') {
-        $captcha_chk = &check_recaptcha($privkey,$version);
+    } elsif (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
+        $captcha_chk = &check_recaptcha($captcha,$privkey,$pubkey,$version,$threshold);
     } else {
         $captcha_chk = 1;
     }
-    return ($captcha_chk,$captcha_error);
+    return ($captcha_chk,$captcha_error,$captcha);
 }
 
 sub get_captcha_config {
     my ($context,$lonhost,$dom_in_effect) = @_;
-    my ($captcha,$pubkey,$privkey,$version,$hashtocheck);
+    my ($captcha,$pubkey,$privkey,$version,$threshold,$hashtocheck);
     my $hostname = &Apache::lonnet::hostname($lonhost);
     my $serverhomeID = &Apache::lonnet::get_server_homeID($hostname);
     my $serverhomedom = &Apache::lonnet::host_domain($serverhomeID);
@@ -19936,16 +19968,18 @@
         if (ref($domconfig{$context}) eq 'HASH') {
             $hashtocheck = $domconfig{$context}{'cancreate'};
             if (ref($hashtocheck) eq 'HASH') {
-                if ($hashtocheck->{'captcha'} eq 'recaptcha') {
+                $captcha = $hashtocheck->{'captcha'};
+                if (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
                     if (ref($hashtocheck->{'recaptchakeys'}) eq 'HASH') {
                         $pubkey = $hashtocheck->{'recaptchakeys'}{'public'};
                         $privkey = $hashtocheck->{'recaptchakeys'}{'private'};
                     }
                     if ($privkey && $pubkey) {
-                        $captcha = 'recaptcha';
-                        $version = $hashtocheck->{'recaptchaversion'};
-                        if ($version ne '2') {
-                            $version = 1;
+                        if ($captcha eq 'recaptcha') {
+                            $version = $hashtocheck->{'recaptchaversion'};
+                            if ($version eq '3') {
+                                $threshold = $hashtocheck->{'captchathreshold'};
+                            }
                         }
                     } else {
                         $captcha = 'original';
@@ -19959,14 +19993,18 @@
         }
     } elsif ($context eq 'login') {
         my %domconfhash = &Apache::loncommon::get_domainconf($serverhomedom);
-        if ($domconfhash{$serverhomedom.'.login.captcha'} eq 'recaptcha') {
+        $captcha = $domconfhash{$serverhomedom.'.login.captcha'};
+        if (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
             $pubkey = $domconfhash{$serverhomedom.'.login.recaptchakeys_public'};
             $privkey = $domconfhash{$serverhomedom.'.login.recaptchakeys_private'};
             if ($privkey && $pubkey) {
-                $captcha = 'recaptcha';
-                $version = $domconfhash{$serverhomedom.'.login.recaptchaversion'};
-                if ($version ne '2') {
-                    $version = 1; 
+                if ($captcha eq 'recaptcha') {
+                    $version = $domconfhash{$serverhomedom.'.login.recaptchaversion'};
+                    if ($version eq '3') {
+                        $threshold = $domconfhash{$serverhomedom.'.login.captchathreshold'};
+                    } elsif ($version ne '2') {
+                        $version = 1;
+                    }
                 }
             } else {
                 $captcha = 'original';
@@ -19977,16 +20015,20 @@
     } elsif ($context eq 'passwords') {
         if ($dom_in_effect) {
             my %passwdconf = &Apache::lonnet::get_passwdconf($dom_in_effect);
-            if ($passwdconf{'captcha'} eq 'recaptcha') {
+            $captcha = $passwdconf{'captcha'};
+            if (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
                 if (ref($passwdconf{'recaptchakeys'}) eq 'HASH') {
                     $pubkey = $passwdconf{'recaptchakeys'}{'public'};
                     $privkey = $passwdconf{'recaptchakeys'}{'private'};
                 }
                 if ($privkey && $pubkey) {
-                    $captcha = 'recaptcha';
-                    $version = $passwdconf{'recaptchaversion'};
-                    if ($version ne '2') {
-                        $version = 1;
+                    if ($captcha eq 'recaptcha') {
+                        $version = $passwdconf{'recaptchaversion'};
+                        if ($version eq '3') {
+                            $threshold = $passwdconf{'captchathreshold'};
+                        } elsif ($version ne '2') {
+                            $version = 1;
+                        }
                     }
                 } else {
                     $captcha = 'original';
@@ -19995,8 +20037,8 @@
                 $captcha = 'original';
             }
         }
-    } 
-    return ($captcha,$pubkey,$privkey,$version);
+    }
+    return ($captcha,$pubkey,$privkey,$version,$threshold);
 }
 
 sub create_captcha {
@@ -20058,9 +20100,27 @@
     return ($captcha_chk,$captcha_error);
 }
 
+sub captcha_js {
+    my ($captcha,$version,$pubkey) = @_;
+    if ($captcha eq 'recaptcha') {
+        if ($version eq '2') {
+            return '<script async type="text/javascript" src="https://www.recaptcha.net/recaptcha/api.js"></script>';
+        } elsif ($version eq '3') {
+            return '<script async type="text/javascript" src="https://www.recaptcha.net/recaptcha/api.js?render='.$pubkey.'"></script>';
+        }
+    } elsif ($captcha eq 'hcaptcha') {
+        return '<script async  type="text/javascript" src="https://js.hcaptcha.com/1/api.js"></script>';
+    } elsif ($captcha eq 'turnstile') {
+        return '<script async type="text/javascript" src="https://challenges.cloudflare.com/turnstile/v0/api.js"></script>'."\n";
+    }
+    return;
+}
+
 sub create_recaptcha {
     my ($pubkey,$version) = @_;
-    if ($version >= 2) {
+    if ($version eq '3') {
+        return '<input type="hidden" name="g-recaptcha-response" id="g-recaptcha-response" />';
+    } elsif ($version eq '2') {
         return '<div class="g-recaptcha" data-sitekey="'.$pubkey.'"></div>'.
                '<div style="padding:0;clear:both;margin:0;border:0"></div>';
     } else {
@@ -20077,33 +20137,63 @@
     }
 }
 
+sub create_hcaptcha {
+    my ($pubkey) = @_;
+    return '<div class="h-captcha" data-sitekey="'.$pubkey.'"></div>'.
+           '<div style="padding:0;clear:both;margin:0;border:0"></div>';
+}
+
+sub create_turnstile {
+    my ($pubkey) = @_;
+    return '<div class="cf-turnstile" data-sitekey="'.$pubkey.'"></div>'.
+           '<div style="padding:0;clear:both;margin:0;border:0"></div>';
+}
+
 sub check_recaptcha {
-    my ($privkey,$version) = @_;
+    my ($captcha,$privkey,$pubkey,$version,$threshold) = @_;
     my $captcha_chk;
     my $ip = &Apache::lonnet::get_requestor_ip();
-    if ($version >= 2) {
+    if (($captcha eq 'hcaptcha') || ($captcha eq 'turnstile') ||
+        (($captcha eq 'recaptcha') && ($version >= 2))) {
+        my $url;
         my %info = (
-                     secret   => $privkey, 
-                     response => $env{'form.g-recaptcha-response'},
+                     secret   => $privkey,
                      remoteip => $ip,
                    );
-        my $request=new HTTP::Request('POST','https://www.google.com/recaptcha/api/siteverify');
-        $request->content(join('&',map {
-                         my $name = escape($_);
-                         "$name=" . ( ref($info{$_}) eq 'ARRAY'
-                         ? join("&$name=", map {escape($_) } @{$info{$_}})
-                         : &escape($info{$_}) );
-        } keys(%info)));
+        if ($captcha eq 'recaptcha') {
+            $info{'response'} = $env{'form.g-recaptcha-response'};
+            $url = 'https://www.recaptcha.net/recaptcha/api/siteverify';
+        } elsif ($captcha eq 'hcaptcha') {
+            $info{'response'} = $env{'form.h-captcha-response'};
+            $info{'sitekey'} = $pubkey;
+            $url = 'https://api.hcaptcha.com/siteverify';
+        } elsif ($captcha eq 'turnstile') {
+            $info{'response'} = $env{'form.cf-turnstile-response'};
+            $url = 'https://challenges.cloudflare.com/turnstile/v0/siteverify';
+        }
+        my $data = join('&',map {
+                         my $name = &escape($_);
+                         "$name=" . &escape($info{$_});
+                        } keys(%info));
+        my $header = ['Content-Type' => 'application/x-www-form-urlencoded'];
+        my $request = new HTTP::Request('POST',$url,$header,$data);
         my $response = &LONCAPA::LWPReq::makerequest('',$request,'','',10,1);
         if ($response->is_success)  {
             my $data = JSON::DWIW->from_json($response->decoded_content);
             if (ref($data) eq 'HASH') {
                 if ($data->{'success'}) {
-                    $captcha_chk = 1;
+                    if (($captcha eq 'recaptcha') && ($version eq '3')) {
+                        my $score = $data->{'score'};
+                        if ($score >= $threshold) {
+                            $captcha_chk = 1;
+                        }
+                    } else {
+                        $captcha_chk = 1;
+                    }
                 }
             }
         }
-    } else {
+    } elsif ($captcha eq 'recaptcha') {
         my $captcha = Captcha::reCAPTCHA->new;
         my $captcha_result =
             $captcha->check_answer(
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.75 loncom/interface/lonconfigsettings.pm:1.76
--- loncom/interface/lonconfigsettings.pm:1.75	Sat Jun 14 02:50:25 2025
+++ loncom/interface/lonconfigsettings.pm	Tue Dec  9 02:29:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.75 2025/06/14 02:50:25 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.76 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -311,6 +311,13 @@
                 foreach my $server (sort(keys(%domservers))) {
                     $onload .= "toggleSamlOptions(document.display,'$server');";
                 }
+                $onload .= "updateCaptcha('captcha','login',document.display);";
+            }
+            if (grep(/^passwords$/, at actions)) {
+                $onload .= "updateCaptcha('captcha','passwords',document.display);";
+            }
+            if (grep(/^cancreate$/, at actions)) {
+                $onload .= "updateCaptcha('captcha','cancreate',document.display);";
             }
             if ($onload) {
                 my %loaditems = (
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.108 loncom/interface/lonsupportreq.pm:1.109
--- loncom/interface/lonsupportreq.pm:1.108	Tue Feb 25 05:35:26 2025
+++ loncom/interface/lonsupportreq.pm	Tue Dec  9 02:29:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.108 2025/02/25 05:35:26 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.109 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -87,12 +87,15 @@
     my ($os,$browser,$bversion,$uname,$udom,$uhome,$urole,$usec,$email,$cid,
         $cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server,
         $formname,$public,$homeserver,$knownuser,$captcha_form,$captcha_error,
-        $captcha,$recaptcha_version,$extra_validations,%groupid);
+        $captcha,$recaptcha_version,$pubkey,$hdn_captcha,$recaptcha_badge,
+        $recaptcha_submit,$extra_validations,$submitform,%groupid);
     $function = &Apache::loncommon::get_users_function() if (!$function);
     $ccode = '';
     $os = $env{'browser.os'};
     $browser = $env{'browser.type'};
     $bversion = $env{'browser.version'};
+    $submitform = 'document.logproblem.submit();';
+    $formname = 'logproblem';
     if (($env{'user.name'} eq 'public') && ($env{'user.domain'} eq 'public')) {
         $public = 1;
     } else {
@@ -112,8 +115,13 @@
         $knownuser = 1;
     } else {
         my $lonhost = $r->dir_config('lonHostID');
-        ($captcha_form,$captcha_error,$captcha,$recaptcha_version) =
-            &Apache::loncommon::captcha_display('login',$lonhost);
+        ($captcha_form,$captcha_error,$captcha,$recaptcha_version,
+         $pubkey,$hdn_captcha,$recaptcha_submit,$recaptcha_badge) =
+            &Apache::loncommon::captcha_display('login',$lonhost,$formname);
+        if (($captcha eq 'recaptcha') && ($recaptcha_version eq '3') &&
+            ($recaptcha_submit ne '')) {
+            $submitform = $recaptcha_submit;
+        }
     }
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom',
                                                  'useremail','useraccount']);
@@ -140,7 +148,6 @@
         }
     }
 
-    $formname = 'logproblem';
     my $codedom = &get_domain();
     my %helpform;
     my %domconfig =
@@ -273,7 +280,7 @@
         return;
     }
     $extra_validations
-    document.logproblem.submit();
+    $submitform
 }
 
 END
@@ -322,8 +329,10 @@
 ENDJS
     if ($knownuser) {
         $js .="\n".'<script type="text/javascript" src="/res/adm/includes/file_upload.js"></script>';
-    } elsif ($recaptcha_version >=2) {
-        $js.= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";
+    } else {
+        if (($captcha eq 'recaptcha') || ($captcha eq 'hcaptcha') || ($captcha eq 'turnstile')) {
+            $js .= "\n".&Apache::loncommon::captcha_js($captcha,$recaptcha_version,$pubkey)."\n";
+        }
     }
     my %add_entries = (
                        style    => "margin-top:0px;margin-bottom:0px;",
@@ -646,6 +655,7 @@
                </div>
                <div class="LC_floatleft" style="padding-top:0, padding-left:8px; padding-right:8px; padding-bottom:0; margin:0">
                 <input type="reset" value="$html_lt{'clfm'}" />
+                $hdn_captcha
                </div>
              </div>
              <div style="padding:0;clear:both;margin:0;border:0"></div>
@@ -655,7 +665,7 @@
     $r->print(<<END);
 $output
 </form>
-<br />
+$recaptcha_badge<br />
 </div>
 END
     $r->print(&Apache::loncommon::end_page());
@@ -671,7 +681,7 @@
     }
     my $lonhost = $r->dir_config('lonHostID');
     unless (($env{'user.name'} =~ /^$match_username$/) && (!$public)) {
-        my ($captcha_chk,$captcha_error) = 
+        my ($captcha_chk,$captcha_error,$captcha) = 
             &Apache::loncommon::captcha_response('login',$lonhost);
         if ($captcha_chk != 1) {
             $args = {
@@ -690,11 +700,18 @@
             if ($r->uri eq '/adm/helpdesk') {
                 &print_header($r,$url,'process');
             }
+            my $errormsg;
+            if ($captcha eq 'original') {
+                $errormsg = &mt('Validation of the code you entered failed');
+            } elsif (($captcha eq 'recaptcha') ||
+                     ($captcha eq 'hcaptcha') ||
+                     ($captcha eq 'turnstile')) {
+                $errormsg = &mt('Validation of human, not robot, failed');
+            }
             $r->print(
                 '<div class="LC_landmark" role="main">'.
                 '<h2 class="LC_heading_2">'.&mt('Support request failed').'</h2>'.
-                      &Apache::lonhtmlcommon::confirm_success(
-                        &mt('Validation of the code you entered failed.'),1).
+                      &Apache::lonhtmlcommon::confirm_success($errormsg,1).
                 '<br /><br />'.
                 &Apache::lonhtmlcommon::actionbox([
                     &mt('[_1]Go back[_2] and try again',
@@ -1239,7 +1256,7 @@
                                            back     => 'Back to last location',
                                            headline => 'help/support',
                                            stud     => 'Students',
-                                           ifyo     => 'If your problem is still unresolved, the form below can be used to send a question to the LON-CAPA helpdesk.',
+                                           ifyo     => 'If your problem is still unresolved, use this form to send a question to the LON-CAPA helpdesk.',
                                            cont     => 'Contact your instructor instead.',
                                          );
     my ($getstartlink,$reviewtext);
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.54 loncom/interface/resetpw.pm:1.55
--- loncom/interface/resetpw.pm:1.54	Sat Feb 15 03:43:36 2025
+++ loncom/interface/resetpw.pm	Tue Dec  9 02:29:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow access to password changing via a token sent to user's e-mail. 
 #
-# $Id: resetpw.pm,v 1.54 2025/02/15 03:43:36 raeburn Exp $
+# $Id: resetpw.pm,v 1.55 2025/12/09 02:29:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -115,8 +115,16 @@
         }
     }
     my %passwdconf = &Apache::lonnet::get_passwdconf($dom_in_effect);
-    my $clientip = &Apache::lonnet::get_requestor_ip($r);
+    my $formname = 'forgotpw';
     my $token = $env{'form.token'};
+    my ($captcha_form,$captcha_error,$captcha,$recaptcha_version,
+        $pubkey,$hdn_captcha,$recaptcha_submit,$recaptcha_badge);
+    unless (($passwdconf{'captcha'} eq 'notused') || ($token)) {
+        ($captcha_form,$captcha_error,$captcha,$recaptcha_version,
+         $pubkey,$hdn_captcha,$recaptcha_submit,$recaptcha_badge) =
+        &Apache::loncommon::captcha_display('passwords',$server,$formname,$dom_in_effect);
+    }
+    my $clientip = &Apache::lonnet::get_requestor_ip($r);
     my $useremail = $env{'form.useremail'};
     if (($udom ne '') && (!$otherinst) && (!$token)) {
         if ($uname ne '') {
@@ -256,6 +264,10 @@
 }
 
 END
+        my $submitform = "    document.$formname.submit();";
+        if ($recaptcha_submit ne '') {
+            $submitform = $recaptcha_submit;
+        }
         if ($passwdconf{resetprelink} eq 'either') {
             $js .= <<"END";
 function validInfo() {
@@ -264,7 +276,8 @@
         alert("$js_lt{'eith'}");
         return false;
     }
-    return true;
+$submitform
+    return false;
 }
 END
         } else {
@@ -279,14 +292,20 @@
         alert("$js_lt{'mail'}");
         return false;
     }
-    return true;
+$submitform
+    return false;
 }
 END
         }
     }
     $js = &Apache::lonhtmlcommon::scripttag($js);
-    if (($passwdconf{'captcha'} eq 'recaptcha') && ($passwdconf{'recaptchaversion'} >=2)) {
-        $js.= "\n".'<script src="https://www.google.com/recaptcha/api.js"></script>'."\n";
+    if (($passwdconf{'captcha'} eq 'recaptcha') || ($passwdconf{'captcha'} eq 'hcaptcha') ||
+        ($passwdconf{'captcha'} eq 'turnstile')) {
+        my $pubkey;
+        if (ref($passwdconf{'recaptchakeys'}) eq 'HASH') {
+            $pubkey = $passwdconf{'recaptchakeys'}{'public'};
+        }
+        $js .= "\n".&Apache::loncommon::captcha_js($passwdconf{'captcha'},$passwdconf{'recaptchaversion'},$pubkey)."\n";
     }
     my $header = &Apache::loncommon::start_page('Reset password',$js,$args).
                  '<div class="LC_landmark" role="banner">'.
@@ -306,11 +325,13 @@
         } elsif (($uname) || ($useremail)) {
             my $earlyout;
             unless ($passwdconf{'captcha'} eq 'unused') {
-                my ($captcha_chk,$captcha_error) =
+                my ($captcha_chk,$captcha_error,$captcha) =
                     &Apache::loncommon::captcha_response('passwords',$server,$dom_in_effect);
                 if ($captcha_chk != 1) {
-                    my $error = 'captcha'; 
-                    if ($passwdconf{'captcha'} eq 'recaptcha') {
+                    my $error = 'captcha';
+                    if (($captcha eq 'recaptcha') ||
+                        ($captcha eq 'hcaptcha') ||
+                        ($captcha eq 'turnstile')) {
                         $error = 'recaptcha';
                     }
                     $output = &invalid_state($error,$domdesc,
@@ -414,10 +435,12 @@
                 }
             }
         } else {
-            $output = &get_uname($server,$dom_in_effect,\%passwdconf);
+            $output = &get_uname($formname,$server,$dom_in_effect,\%passwdconf,
+                                 $captcha_form,$hdn_captcha,$recaptcha_badge);
         }
     } else {
-        $output = &get_uname($server,$defdom,\%passwdconf);
+        $output = &get_uname($formname,$server,$defdom,\%passwdconf,
+                             $captcha_form,$hdn_captcha,$recaptcha_badge);
     }
     $r->print($header.'<div class="LC_landmark" role="main">'.$output.'</div>');
     $r->print(&Apache::loncommon::end_page());
@@ -425,7 +448,7 @@
 }
 
 sub get_uname {
-    my ($server,$defdom,$passwdconf) = @_;
+    my ($formname,$server,$defdom,$passwdconf,$captcha_form,$hdn_captcha,$recaptcha_badge) = @_;
     return unless (ref($passwdconf) eq 'HASH');
     my %lt = &Apache::lonlocal::texthash(
             unam => 'LON-CAPA username',
@@ -449,7 +472,8 @@
            .'<li>'.&mt('Your LON-CAPA account must be of a type for which LON-CAPA can reset a password.').'</li>'
            .'</ul>';
     my $onchange = 'javascript:verifyDomain(this,this.form);';
-    $msg .= '<form name="forgotpw" method="post" action="/adm/resetpw" onsubmit="return validInfo();">'.
+    my $validationtext = '';
+    $msg .= '<form name="'.$formname.'" method="post" action="/adm/resetpw" onsubmit="return validInfo();">'.
             &Apache::lonhtmlcommon::start_pick_box().
             &Apache::lonhtmlcommon::row_title('<label for="udom">'.$lt{'udom'}.'</label>').
             &Apache::loncommon::select_dom_form($defdom,'udom',undef,undef,$onchange,'','','','udom').
@@ -461,16 +485,17 @@
             '<input type="text" name="useremail" id="useremail" size="30" autocapitalize="off" autocorrect="off" />'.
             &Apache::lonhtmlcommon::row_closure(1);
     unless ($passwdconf->{'captcha'} eq 'notused') {
-        my ($captcha_form,$captcha_error,$captcha,$recaptcha_version) =
-            &Apache::loncommon::captcha_display('passwords',$server,$defdom);
         if ($captcha_form) {
             $msg .= &Apache::lonhtmlcommon::row_title($lt{'vali'}).
                     $captcha_form."\n".
                     &Apache::lonhtmlcommon::row_closure(1);
+        } else {
+            $validationtext = $recaptcha_badge;
         }
     }
-    $msg .= &Apache::lonhtmlcommon::end_pick_box().
-            '<br /><br /><input type="submit" name="resetter" value="'.$lt{'proc'}.'" /></form>';
+    $msg .= &Apache::lonhtmlcommon::end_pick_box().$validationtext.
+            '<br /><br /><input type="submit" name="resetter" value="'.$lt{'proc'}.'" />'."\n".
+            $hdn_captcha.'</form>';
     return $msg;
 }
 

From raeburn at source.lon-capa.org  Sat Dec 13 00:56:04 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Sat, 13 Dec 2025 05:56:04 -0000
Subject: [LON-CAPA-cvs] cvs: rat / lonpage.pm loncom/auth lonlogin.pm
	lonlogout.pm lonroles.pm loncom/homework daxepage.pm
	structuretags.pm loncom/interface coursecatalog.pm
	courseprefs.pm createaccount.pm lonaboutme.pm
	lonblockingmenu.pm loncommon.pm lonconfigsettings.pm
	loncoursegroups.pm loncourserespicker.pm loncreatecourse.pm
	loncreateuser.pm londocs.pm lonhelp.pm lonhelper.pm
	lonhelpmenu.pm lonmainmenu.pm lonmodifycourse.pm
	lonmsgdisplay.pm lonnavdisplay.pm lonnotify.pm lonparmset.pm
	lonpreferences.pm lonquickgrades.pm lonrss.pm lonsearchcat.pm
	lonsupportreq.pm lonwhatsnew.pm portfolio.pm resetpw.pm
	slotrequest.pm loncom/lonnet/perl lonnet.pm
Message-ID: <cvsraeburn1765605364@cvsserver>

raeburn		Sat Dec 13 05:56:04 2025 EDT

  Modified files:              
    /loncom/interface	coursecatalog.pm courseprefs.pm createaccount.pm 
                     	lonaboutme.pm lonblockingmenu.pm loncommon.pm 
                     	lonconfigsettings.pm loncoursegroups.pm 
                     	loncourserespicker.pm loncreatecourse.pm 
                     	loncreateuser.pm londocs.pm lonhelper.pm 
                     	lonhelpmenu.pm lonhelp.pm lonmainmenu.pm 
                     	lonmodifycourse.pm lonmsgdisplay.pm 
                     	lonnavdisplay.pm lonnotify.pm lonparmset.pm 
                     	lonpreferences.pm lonquickgrades.pm lonrss.pm 
                     	lonsearchcat.pm lonsupportreq.pm lonwhatsnew.pm 
                     	portfolio.pm resetpw.pm slotrequest.pm 
    /loncom/auth	lonlogin.pm lonlogout.pm lonroles.pm 
    /loncom/homework	daxepage.pm structuretags.pm 
    /loncom/lonnet/perl	lonnet.pm 
    /rat	lonpage.pm 
  Log:
  - WCAG 2 compliance. Include "Skit to main content" as first item shown
    when tabbing in page.
  
  
-------------- next part --------------
Index: loncom/interface/coursecatalog.pm
diff -u loncom/interface/coursecatalog.pm:1.108 loncom/interface/coursecatalog.pm:1.109
--- loncom/interface/coursecatalog.pm:1.108	Mon Feb 24 23:20:17 2025
+++ loncom/interface/coursecatalog.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for displaying the course catalog interface
 #
-# $Id: coursecatalog.pm,v 1.108 2025/02/24 23:20:17 raeburn Exp $
+# $Id: coursecatalog.pm,v 1.109 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -88,8 +88,10 @@
             ({href=>"/adm/coursecatalog",
               text=>"Course/Community Catalog"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
-        $r->print('<div role="main">'.&mt('Access to catalog LON-CAPA courses/communities unavailable for: "[_1]" on servers run by: "[_2]".',
-                  $domdesc,$serverdomdesc).'</div>');
+        $r->print('<div role="main" id="LC_main_content">'."\n".
+                  &mt('Access to catalog LON-CAPA courses/communities unavailable for: "[_1]" on servers run by: "[_2]".',
+                      $domdesc,$serverdomdesc)."\n".
+                  '</div>');
         $r->print(&Apache::loncommon::end_page());
         return OK;
     }
@@ -119,12 +121,20 @@
           text=>"Course/Community Catalog"});
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
         if ($knownuser || $canviewall) {
-            $r->print('<div role="main">'.&mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',$domdesc).'</div>');
+            $r->print('<div role="main" id="LC_main_content">'."\n".
+                      &mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',
+                          $domdesc)."\n".
+                      '</div>');
         } else {
             if ($domdefaults{'catauth'} eq 'none') {
-                $r->print('<div role="main">'.&mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',$domdesc).'</div>');
+                $r->print('<div role="main" id="LC_main_content">'."\n".
+                          &mt('No catalog of LON-CAPA courses/communities is provided for: [_1]',
+                              $domdesc)."\n".
+                          '</div>');
             } else {
-                $r->print('<div role="main">'.&mt('The catalog of LON-CAPA courses/communities provided for: "[_1]" is only available to users who are logged in.',$domdesc).'</div>');
+                $r->print('<div role="main" id="LC_main_content">'."\n".
+                          &mt('The catalog of LON-CAPA courses/communities provided for: "[_1]" is only available to users who are logged in.',$domdesc)."\n".
+                          '</div>');
             }
         }      
         $r->print(&Apache::loncommon::end_page());
@@ -711,7 +721,7 @@
              {text=>$brtexttwo});
     $r->print(
         &Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog').
-        '<div role="main">'.
+        '<div role="main" id="LC_main_content">'.
         '<h2>'.$textthree.'</h2>'.
         &print_course_listing($codedom,undef,$trails,$allitems,undef,$codetitles,undef,$hostname).
         '<br />'.
@@ -864,7 +874,7 @@
           text=>"Course/Community Catalog"});
     }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog').
-              '<div role="main">');
+              '<div role="main" id="LC_main_content">');
     if ($cattype eq 'std') {
         $r->print('<form name="coursecatdom" method="post" action="/adm/coursecatalog">'.
                   '<table border="0"><tr><th align="left"><label for="showdom">'.&mt('Domain:').'</label></th><td>'.
Index: loncom/interface/courseprefs.pm
diff -u loncom/interface/courseprefs.pm:1.136 loncom/interface/courseprefs.pm:1.137
--- loncom/interface/courseprefs.pm:1.136	Sat Jun 14 02:50:25 2025
+++ loncom/interface/courseprefs.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set configuration settings for a course
 #
-# $Id: courseprefs.pm,v 1.136 2025/06/14 02:50:25 raeburn Exp $
+# $Id: courseprefs.pm,v 1.137 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4641,7 +4641,9 @@
     } else {
         $categoriesform .= &mt('No categories defined in this domain.');
     }
-    $r->print($start_page.$categoriesform.$end_page);
+    $r->print($start_page."\n".
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
+              $categoriesform.'</div>'.$end_page);
     return;
 }
 
@@ -5053,7 +5055,9 @@
     my $title = 'Version Constraints';
     my $start_page =
         &Apache::loncommon::start_page($title,undef,{'only_body' => 1,});
-    $r->print($start_page.$top_header);
+    $r->print($start_page."\n".
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
+              $top_header);
     if ($output) {
         $r->print($output);
         if (defined($navmap) || $supptools) {
@@ -5066,7 +5070,7 @@
                   &mt('No version requirements from resource content or settings.').
                   '</p>'); 
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     my ($currmajor,$currminor) = split(/\./,$loncaparev);
     if (($currmajor != $reqdmajor) || ($currminor != $reqdminor)) {
         return 1;
Index: loncom/interface/createaccount.pm
diff -u loncom/interface/createaccount.pm:1.91 loncom/interface/createaccount.pm:1.92
--- loncom/interface/createaccount.pm:1.91	Tue Dec  9 02:29:03 2025
+++ loncom/interface/createaccount.pm	Sat Dec 13 05:56:01 2025
@@ -4,7 +4,7 @@
 # kerberos, or SSO) or an e-mail address. Requests to use an e-mail address as
 # username may be processed automatically, or may be queued for approval.
 #
-# $Id: createaccount.pm,v 1.91 2025/12/09 02:29:03 raeburn Exp $
+# $Id: createaccount.pm,v 1.92 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -107,7 +107,7 @@
             &Apache::loncommon::start_page('Already logged in',undef,$args);
         my $end_page =
             &Apache::loncommon::end_page();
-        $r->print($start_page."\n".'<div class="LC_landmark" role="main">'.
+        $r->print($start_page."\n".'<div class="LC_landmark" role="main" id="LC_main_content">'.
                   '<h2 class="LC_heading_2">'.&mt('You are already logged in').'</h2>'.
                   '<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
                             '<a href="/adm/roles">','</a>','<a href="/adm/logout">','</a>').
@@ -382,6 +382,7 @@
     ({href=>$url,
       text=>$pagetitle});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Create account'));
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     return;
 }
 
@@ -397,7 +398,7 @@
                       'cmiddlename','cgeneration','cpermanentemail','cid']).
                   '</form>');
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
 }
 
 sub get_usertype {
@@ -914,7 +915,7 @@
                               $contact_email,$courseid,$emailusername,$usertype,
                               $uname);
     }
-    return '<div class="LC_landmark" role="main">'.$output.'</div>';
+    return '<div class="LC_landmark" role="main" id="LC_main_content">'.$output.'</div>';
 }
 
 sub call_rulecheck {
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.171 loncom/interface/lonaboutme.pm:1.172
--- loncom/interface/lonaboutme.pm:1.171	Sun Mar 16 21:04:09 2025
+++ loncom/interface/lonaboutme.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Personal Information Page
 #
-# $Id: lonaboutme.pm,v 1.171 2025/03/16 21:04:09 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.172 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,12 +126,13 @@
                     $r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\');
                 } else {
                     $r->print(&Apache::loncommon::start_page("Personal Information Page"));
+                    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
                     $r->print('<p class="_LC_info">'.&mt('No user personal information page available') .'</p>'.
                         &mt('This is a result of one of the following:').'<ul>'.
                         '<li>'.&mt('The administrator of this domain has disabled personal information page functionality for this specific user.').'</li>'.
                         '<li>'.&mt('The domain has been configured to disable, by default, personal information page functionality for all users in the domain.').'</li>'.
                         '</ul>');
-                    $r->print(&Apache::loncommon::end_page());
+                    $r->print('</div>'.&Apache::loncommon::end_page());
                 }
                 return OK;
             }
@@ -189,9 +190,10 @@
             my $start_page = &Apache::loncommon::start_page(
                                  "Course Information",undef,$args);
             $r->print($start_page);
+            $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
             $r->print('<h2>'.&mt('Group Portfolio').'</h2>');
             &print_portfiles_link($r,$is_course);
-            $r->print(&Apache::loncommon::end_page());
+            $r->print('</div>'.&Apache::loncommon::end_page());
         }
         return OK;
     }
@@ -257,7 +259,8 @@
        if ($target eq 'tex') {
            $r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\');
        } else {
-           $r->print($blocktext);
+           $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
+           $r->print($blocktext.'</div>');
        }
        $r->print(&Apache::loncommon::end_page());
        return OK;
@@ -266,6 +269,7 @@
 #----------------Print Privacy note (edit mode) or last modified date. 
 
     if ($target ne 'tex') {
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         #Print Privacy Note
         if ($allowed) {
             $r->print('<div class="LC_info">'
@@ -435,7 +439,7 @@
         if ($env{'form.popup'}) {
             $r->print('<p><a href="javascript:window.close()">'.&mt('Close window').'</a></p>');
         }
-        $r->print(&Apache::loncommon::end_page());
+        $r->print('</div>'.&Apache::loncommon::end_page());
     } else {
         $r->print('\end{document}');
     }
@@ -558,6 +562,7 @@
             $args->{bread_crumbs} = $brcrum;
         }
         $output = &Apache::loncommon::start_page('Viewable group portfolio files',undef,$args).
+                  "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
                   '<h3>'.&mt('Group Portfolio files').'</h3>';
     } else {
         if ($env{'request.course.id'} && $env{'form.register'}) {
@@ -577,6 +582,7 @@
         $output  = 
             &Apache::loncommon::start_page('Viewable portfolio files',
                                            undef,$args).
+            "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
             '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>';
     }
     $r->print($output);
Index: loncom/interface/lonblockingmenu.pm
diff -u loncom/interface/lonblockingmenu.pm:1.32 loncom/interface/lonblockingmenu.pm:1.33
--- loncom/interface/lonblockingmenu.pm:1.32	Tue Dec 31 19:28:29 2024
+++ loncom/interface/lonblockingmenu.pm	Sat Dec 13 05:56:01 2025
@@ -2,7 +2,7 @@
 # Routines for configuring blocking of access to collaborative functions, 
 # and specific resources during an exam
 #
-# $Id: lonblockingmenu.pm,v 1.32 2024/12/31 19:28:29 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.33 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -567,8 +567,8 @@
 
     $r->print(
         &Apache::loncommon::start_page('Blocking communication/content access',$js).
-        &Apache::lonhtmlcommon::breadcrumbs('Blocking communication/content access'));
-
+        &Apache::lonhtmlcommon::breadcrumbs('Blocking communication/content access')."\n".
+        '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $usertype;
     if ($crstype eq 'Community') {
         $usertype = 'members';
@@ -690,7 +690,7 @@
 <input type ="submit" value="$lt{'stor'}" />
 END
     }
-    $r->print('</form>'.
+    $r->print('</form></div>'.
               &Apache::loncommon::end_page());
     return OK;
 }
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.1487 loncom/interface/loncommon.pm:1.1488
--- loncom/interface/loncommon.pm:1.1487	Tue Dec  9 02:29:03 2025
+++ loncom/interface/loncommon.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1487 2025/12/09 02:29:03 raeburn Exp $
+# $Id: loncommon.pm,v 1.1488 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5359,7 +5359,7 @@
   $userview=~s/\<\/html\>//gi;
   $userview=~s/\<head\>//gi;
   $userview=~s/\<\/head\>//gi;
-  $userview=~s/\Q<div class="LC_landmark" role="main"\E/<div class="LC_landmark"/; 
+  $userview=~s/\Q<div class="LC_landmark" role="main" id="LC_main_content"\E/<div class="LC_landmark"/; 
   $userview=~s/action\s*\=/would_be_action\=/gi;
   $userview=&relative_to_absolute($feedurl,$userview);
   if (wantarray) {
@@ -6990,7 +6990,9 @@
 
 # construct main body tag
     my $bodytag = "<body $extra_body_attr>".
-	&Apache::lontexconvert::init_math_support();
+                  &Apache::lontexconvert::init_math_support().
+                  '<a href="#LC_main_content" class="LC_skip-to-main-content-link">'.
+                  &mt('Skip to main content').'</a>';
 
     &get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['inhibitmenu']);
 
@@ -7526,6 +7528,24 @@
     display: inline;
 }
 
+.LC_skip-to-main-content-link {
+  position: absolute;
+  left: -9999px;
+  z-index: 999;
+  padding: 1em;
+  font-size: 1.2em;
+  font-weight: bold;
+  background-color: $pgbg_or_bgcolor;
+  color: $font;
+  opacity: 0;
+}
+
+.LC_skip-to-main-content-link:focus {
+  left: 0%;
+  transform: translateX(0%);
+  opacity: 1;
+}
+
 .LC_heading_2 {
   font-size: 1.17em;
 }
@@ -11158,7 +11178,7 @@
 
     my $page =
 	&Apache::loncommon::start_page($title,'',\%displayargs)."\n".
-        '<div class="LC_landmark" style="clear:both" role="main">'.
+        '<div class="LC_landmark" style="clear:both" role="main" id="LC_main_content">'.
 	'<p class="LC_error">'.$msg.'</p>'.
         '</div>'.
 	&Apache::loncommon::end_page();
@@ -19387,7 +19407,8 @@
 sub check_release_result {
     my ($switchwarning,$switchserver) = @_;
     my $output = &start_page('Selected course unavailable on this server').
-                 '<div class="LC_landmark" role="main"><p class="LC_warning">';
+                 '<div class="LC_landmark" role="main" id="LC_main_content">'.
+                 '<p class="LC_warning">';
     if ($switchwarning) {
         $output .= $switchwarning.'<br /><a href="/adm/roles">';
         if (&show_course()) {
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.76 loncom/interface/lonconfigsettings.pm:1.77
--- loncom/interface/lonconfigsettings.pm:1.76	Tue Dec  9 02:29:03 2025
+++ loncom/interface/lonconfigsettings.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.76 2025/12/09 02:29:03 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.77 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -415,6 +415,7 @@
     $r->print(&Apache::loncommon::start_page($pagetitle,$js,$additem));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs($brcrumtitle));
     $r->print('
+<div class="LC_landmark" role="main" id="LC_main_content">
 <form name="parmform" action="">
 <input type="hidden" name="pres_marker" />
 <input type="hidden" name="pres_type" />
@@ -591,7 +592,7 @@
         if ($container) {
            &Apache::lonparmset::endSettingsScreen($r);
         }
-        $r->print(&Apache::loncommon::end_page());
+        $r->print('</div>'.&Apache::loncommon::end_page());
     }
     return;
 }
@@ -795,7 +796,7 @@
     if ($container) {
         &Apache::lonparmset::endSettingsScreen($r);
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return;
 }
 
@@ -860,7 +861,7 @@
     if ($container) {
         &Apache::lonparmset::endSettingsScreen($r);
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return;
 }
 
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.132 loncom/interface/loncoursegroups.pm:1.133
--- loncom/interface/loncoursegroups.pm:1.132	Sat Jul 29 20:33:25 2023
+++ loncom/interface/loncoursegroups.pm	Sat Dec 13 05:56:01 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.132 2023/07/29 20:33:25 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.133 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1527,6 +1527,7 @@
 				       {'add_entries' => $loaditems,});
     my $output = <<"END";
 $start_page
+<div class="LC_landmark" role="main" id="LC_main_content">
 <form method="post" name="$state" action="">
 
 END
@@ -1566,6 +1567,7 @@
        return(<<ENDFOOT);
    <input type="hidden" name="sortby" value="$env{'form.sortby'}" />
   </form>
+  </div>
 $end_page
 ENDFOOT
 }
Index: loncom/interface/loncourserespicker.pm
diff -u loncom/interface/loncourserespicker.pm:1.21 loncom/interface/loncourserespicker.pm:1.22
--- loncom/interface/loncourserespicker.pm:1.21	Thu Dec 26 17:12:36 2024
+++ loncom/interface/loncourserespicker.pm	Sat Dec 13 05:56:01 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: loncourserespicker.pm,v 1.21 2024/12/26 17:12:36 raeburn Exp $
+# $Id: loncourserespicker.pm,v 1.22 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -984,12 +984,14 @@
     my $outcome;
     if (!defined($navmap)) {
         if ($context eq 'imsexport') {
-            $outcome = &Apache::loncommon::start_page('Export '.$crstype.' to IMS Package').
-                      '<h2>'.&mt('IMS Export Failed').'</h2>';
+            $outcome = &Apache::loncommon::start_page('Export '.$crstype.' to IMS Package')."\n".
+                       '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
+                       '<h2>'.&mt('IMS Export Failed').'</h2>';
         } elsif ($context eq 'examblock') {
             $outcome = &Apache::loncommon::start_page('Selection of Resources for Blocking',
-                                                       undef,{'only_body' => 1,}).
-                      '<h2>'.&mt('Resource Display Failed').'</h2>';  
+                                                       undef,{'only_body' => 1,})."\n".
+                       '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
+                       '<h2>'.&mt('Resource Display Failed').'</h2>';
         } elsif ($context eq 'dumpdocs') {
             $outcome = '<h2>'.&mt('Copying to Authoring Space unavailable').'</h2>';
         } elsif ($context eq 'shorturls') {
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.178 loncom/interface/loncreatecourse.pm:1.179
--- loncom/interface/loncreatecourse.pm:1.178	Tue Mar 18 18:57:28 2025
+++ loncom/interface/loncreatecourse.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.178 2025/03/18 18:57:28 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.179 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -909,7 +909,9 @@
     $r->print(
         $start_page
        .$crumbs
+       .'<div class="LC_landmark" role="main" id="LC_main_content">'
        .&Apache::lonhtmlcommon::generate_menu(@menu)
+       .'</div>'
        .$end_page
     );
 }
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.486 loncom/interface/loncreateuser.pm:1.487
--- loncom/interface/loncreateuser.pm:1.486	Mon Dec  1 06:23:49 2025
+++ loncom/interface/loncreateuser.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.486 2025/12/01 06:23:49 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.487 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -957,6 +957,7 @@
                 bread_crumbs_component => 'User Management',
                 add_entries            => \%loaditems,};
     $r->print(&Apache::loncommon::start_page('User Management',$jscript,$args));
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 
     my %lt=&Apache::lonlocal::texthash(
                     'srst' => 'Search for a user and enroll as a student',
@@ -1287,6 +1288,7 @@
                    help => $helpitem}
                   );
         $r->print(&Apache::loncommon::start_page('User Management',$jscript,{bread_crumbs => $brcrum}));
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         if ($env{'form.action'} eq 'singleuser') {
             my $readonly;
             if (($context eq 'domain') && (!&Apache::lonnet::allowed('mau',$srch->{'srchdomain'}))) {
@@ -1561,7 +1563,6 @@
     }
     my $start_page =
         &Apache::loncommon::start_page('User Management',$js,$args);
-
     my $forminfo =<<"ENDFORMINFO";
 <form action="/adm/createuser" method="post" name="$formname">
 <input type="hidden" name="phase" value="update_user_data" />
@@ -1631,6 +1632,7 @@
         );
 	$r->print(<<ENDTITLE);
 $start_page
+<div class="LC_landmark" role="main" id="LC_main_content">
 $response
 $forminfo
 <script type="text/javascript" language="Javascript">
@@ -1742,7 +1744,9 @@
         }
         $r->print('</div><div class="LC_clear_float_footer"></div>');
     } else { # user already exists
-	$r->print($start_page.$forminfo);
+	$r->print($start_page."\n".
+                  '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
+                  $forminfo);
         if ($env{'form.action'} eq 'singlestudent') {
             if ($crstype eq 'Community') {
                 $title = &mt('Enroll one member: [_1] in domain [_2]',
@@ -3146,8 +3150,7 @@
     my $end       = '</span><br /><br />';
     my $rtnlink   = '<a href="javascript:backPage(document.userupdate,'.
                     "'$env{'form.prevphase'}','modify')".'" />'.
-                    &mt('Return to previous page').'</a>'.
-                    &Apache::loncommon::end_page();
+                    &mt('Return to previous page').'</a>');
     my $now = time;
     my $title;
     if (exists($env{'form.makeuser'})) {
@@ -3200,6 +3203,7 @@
         $args->{'no_nav_bar'} = 1;
     }
     $r->print(&Apache::loncommon::start_page($title,$jscript,$args));
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     $r->print(&update_result_form($uhome));
     # Check Inputs
     if (! $env{'form.ccuname'} ) {
@@ -3266,8 +3270,8 @@
         # If they are creating a new user but have not specified login
         # information this will be caught below.
     } else {
-            $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);
-            return;
+        $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);
+        return;
     }
 
     $r->print('<h3>'.&mt('User [_1] in domain [_2]',
@@ -3290,7 +3294,7 @@
 	$r->print('<h3>'.&mt('Creating new account.').'</h3>');
         # Check for the authentication mode and password
         if (! $amode || ! $genpwd) {
-	    $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);    
+	    $r->print($error.&mt('Invalid login mode or password').$end.$rtnlink);
 	    return;
 	}
         # Determine desired host
@@ -3443,7 +3447,7 @@
              ($env{'form.login'} ne ''        )) {
 	# Modify user privileges
         if (! $amode || ! $genpwd) {
-	    $r->print($error.'Invalid login mode or password'.$end.$rtnlink);    
+	    $r->print($error.'Invalid login mode or password'.$end.$rtnlink);
 	    return;
 	}
 	# Only allow authentication modification if the person has authority
@@ -4092,6 +4096,7 @@
                      '<a href="javascript:backPage(document.userupdate)">'.&mt('Create/Modify Another User').'</a>']));
         }
     }
+    return;
 }
 
 sub display_userinfo {
@@ -5437,6 +5442,7 @@
     $r->print(&Apache::loncommon::start_page('Custom Role Editor',
                                              $head_script,$args).
               $body_top);
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     $r->print('<form name="'.$formname.'" method="post" action="">'."\n".
               &Apache::lonuserutils::custom_role_header($context,$crstype,
                                                         \@templateroles,$prefix));
@@ -5492,7 +5498,7 @@
     my $args = { bread_crumbs           => $brcrum,
                  bread_crumbs_component => 'User Management'};
     $r->print(&Apache::loncommon::start_page('Save Custom Role',$jscript,$args));
-
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $newrole;
     my ($rdummy,$roledef)=
 	&Apache::lonnet::get('roles',["rolesdef_$rolename"]);
@@ -6548,7 +6554,7 @@
         $r->print(&header(undef,$args));
         $r->print(&print_main_menu($permission,$context,$crstype));
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 
@@ -6560,6 +6566,7 @@
     } else {
         $start_page=&Apache::loncommon::start_page('User Management',$jscript);
     }
+    $start_page .= "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n";
     return $start_page;
 }
 
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.730 loncom/interface/londocs.pm:1.731
--- loncom/interface/londocs.pm:1.730	Thu Aug 14 01:32:03 2025
+++ loncom/interface/londocs.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.730 2025/08/14 01:32:03 raeburn Exp $
+# $Id: londocs.pm,v 1.731 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1271,7 +1271,7 @@
                        '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n";
         my $display = '<form name="'.$formname.'" action="" method="post" onsubmit="return validCrsCopy();">'."\n".
                       $preamble."\n".
-                      '<div class="LC_float_left">'."\n".
+                      '<div class="LC_left_float">'."\n".
                       '<fieldset>'."\n".
                       '<legend>'.&mt('Content to copy').('&nbsp;'x4).$togglebuttons.'</legend>'."\n".
                       '<span class="LC_fontsize_medium">'.
@@ -6707,7 +6707,7 @@
 
 sub startContentScreen {
     my ($mode) = @_;
-    my $output = '<div class="LC_landmark" role="main">'.
+    my $output = '<div class="LC_landmark" role="main" id="LC_main_content">'.
                  '<ul class="LC_TabContentBigger" id="mainnav">';
     if (($mode eq 'navmaps') || ($mode eq 'supplemental')) {
         $output .= '<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Content Overview').'&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n";
Index: loncom/interface/lonhelper.pm
diff -u loncom/interface/lonhelper.pm:1.204 loncom/interface/lonhelper.pm:1.205
--- loncom/interface/lonhelper.pm:1.204	Mon Jun 27 20:35:51 2022
+++ loncom/interface/lonhelper.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.204 2022/06/27 20:35:51 raeburn Exp $
+# $Id: lonhelper.pm,v 1.205 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -607,7 +607,8 @@
 
     $result .= &Apache::loncommon::start_page($self->{TITLE},
                                               $browser_searcher_js,
-                                              {'bread_crumbs' => $brcrum,});
+                                              {'bread_crumbs' => $brcrum,}).
+               "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n";
 
     my $previous = HTML::Entities::encode(&mt("Back"), '<>&"');
     my $next = HTML::Entities::encode(&mt("Next"), '<>&"');
@@ -667,6 +668,7 @@
 
     $result .= <<FOOTER;
         </form>
+        </div>
 FOOTER
 
     $result .= $footer.&Apache::loncommon::end_page();
Index: loncom/interface/lonhelpmenu.pm
diff -u loncom/interface/lonhelpmenu.pm:1.51 loncom/interface/lonhelpmenu.pm:1.52
--- loncom/interface/lonhelpmenu.pm:1.51	Thu Nov 27 21:19:07 2025
+++ loncom/interface/lonhelpmenu.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # generate frame-based help system
 #
-# $Id: lonhelpmenu.pm,v 1.51 2025/11/27 21:19:07 raeburn Exp $
+# $Id: lonhelpmenu.pm,v 1.52 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -156,7 +156,7 @@
                                                  {'only_body' => 1,}));
     }
     my $menu = &helpmenu_items($dom,$faq,$bug,$topic,$component_url,$origurl,$bugurl,$faqbaseurl,$requestmail,$stayOnPage);
-    $r->print('<div class="LC_landmark" role="main">'."\n");
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     if ($menu) {
         $r->print("<ul id=\"LC_secondary_menu\">$menu</ul>");
     }
Index: loncom/interface/lonhelp.pm
diff -u loncom/interface/lonhelp.pm:1.50 loncom/interface/lonhelp.pm:1.51
--- loncom/interface/lonhelp.pm:1.50	Fri Feb 21 21:28:48 2025
+++ loncom/interface/lonhelp.pm	Sat Dec 13 05:56:01 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonhelp.pm,v 1.50 2025/02/21 21:28:48 raeburn Exp $
+# $Id: lonhelp.pm,v 1.51 2025/12/13 05:56:01 raeburn Exp $
 #
 # .tex help system web server handler
 #
@@ -84,7 +84,7 @@
     <h1 style="font-family: Verdana,Arial,Helvetica,sans-serif; font-size: 1.17em;">
     <img align="right" alt="help logo" src="/adm/help/gif/lonhelpheader.gif" />
     $goback$lt{'header'}</h1><hr /></div>
-    <div class="LC_landmark" role="main">
+    <div class="LC_landmark" role="main" id="LC_main_content">
     <!-- BEGIN -->
 HEADER
     if ($is_mobile) {
Index: loncom/interface/lonmainmenu.pm
diff -u loncom/interface/lonmainmenu.pm:1.14 loncom/interface/lonmainmenu.pm:1.15
--- loncom/interface/lonmainmenu.pm:1.14	Tue Mar 25 01:02:59 2025
+++ loncom/interface/lonmainmenu.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # displays the main menu
 #
-# $Id: lonmainmenu.pm,v 1.14 2025/03/25 01:02:59 raeburn Exp $
+# $Id: lonmainmenu.pm,v 1.15 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -103,7 +103,7 @@
     }
 
     $r->print(&Apache::loncommon::start_page( 'Main Menu',$js,$args).
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 #
 # If menu collection is in effect in course context, and Main Menu is 
 # not included, display message in place of usual menu items.
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.107 loncom/interface/lonmodifycourse.pm:1.108
--- loncom/interface/lonmodifycourse.pm:1.107	Fri Dec 20 00:24:38 2024
+++ loncom/interface/lonmodifycourse.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # handler for DC-only modifiable course settings
 #
-# $Id: lonmodifycourse.pm,v 1.107 2024/12/20 00:24:38 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.108 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2922,12 +2922,13 @@
         }
     }
     $r->print(&Apache::lonhtmlcommon::breadcrumbs($bread_text,$helpcomponent));
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     return;
 }
 
 sub print_footer {
     my ($r) = @_;
-    $r->print('<br />'.&Apache::loncommon::end_page());
+    $r->print('<br /></div>'.&Apache::loncommon::end_page());
     return;
 }
 
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.204 loncom/interface/lonmsgdisplay.pm:1.205
--- loncom/interface/lonmsgdisplay.pm:1.204	Fri Jun 20 17:00:27 2025
+++ loncom/interface/lonmsgdisplay.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging display
 #
-# $Id: lonmsgdisplay.pm,v 1.204 2025/06/20 17:00:27 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.205 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -804,7 +804,7 @@
     $groupheader .= &Apache::lonhtmlcommon::breadcrumbs(
                                     &mt('Group messages - [_1]',$description),
                                                         undef,undef,undef,undef,1);
-    return $groupheader.'<div class="LC_landmark" role="main">';
+    return $groupheader.'<div class="LC_landmark" role="main" id="LC_main_content">';
 }
 
 sub groupmail_sent {
@@ -1360,7 +1360,7 @@
         }
         $r->print(&Apache::loncommon::start_page('Messages'));
         $r->print(&Apache::lonhtmlcommon::breadcrumbs('Send and display messages'));
-        $r->print('<div class="LC_landmark" role="main"><p class="LC_warning">'.
+        $r->print('<div class="LC_landmark" role="main" id="LC_main_content"><p class="LC_warning">'.
                  &mt('Sending of LON-CAPA messages is blocked for your current IP address: [_1].',$clientip).'</p>'.
                  '<ul><li>'.
                  &mt('Note: communication is being blocked for certain IP address(es).').
@@ -2759,7 +2759,7 @@
  					$extra));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs
      		(($title?$title:'Send and display messages')).
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">');
 }
 
 # ---------------------------------------------------------------- Print header
Index: loncom/interface/lonnavdisplay.pm
diff -u loncom/interface/lonnavdisplay.pm:1.49 loncom/interface/lonnavdisplay.pm:1.50
--- loncom/interface/lonnavdisplay.pm:1.49	Fri Aug  8 17:13:16 2025
+++ loncom/interface/lonnavdisplay.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Display Handler
 #
-# $Id: lonnavdisplay.pm,v 1.49 2025/08/08 17:13:16 raeburn Exp $
+# $Id: lonnavdisplay.pm,v 1.50 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -468,7 +468,7 @@
 sub startContentScreen {
     my ($r,$mode,$course_type)=@_;
 
-    $r->print("\n".'<div class="LC_landmark" role="main">'.
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
               '<ul class="LC_TabContentBigger" id="mainnav">'."\n");
     $r->print('<li'.(($mode eq 'navmaps')?' class="active"':'').'><a href="/adm/navmaps"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'.&mt('Main Content').'&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</b></a></li>'."\n");
     my $supptab;
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.44 loncom/interface/lonnotify.pm:1.45
--- loncom/interface/lonnotify.pm:1.44	Sat Mar  6 13:41:46 2021
+++ loncom/interface/lonnotify.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Sending messages
 #
-# $Id: lonnotify.pm,v 1.44 2021/03/06 13:41:46 raeburn Exp $
+# $Id: lonnotify.pm,v 1.45 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -117,6 +117,7 @@
     my $output = <<"ENDONE";
 $start_page
 $breadcrumbs
+<div class="LC_landmark" role="main" id="LC_main_content">
 <br />
 <form name="$formname" method="post" action="">
 ENDONE
@@ -125,7 +126,7 @@
 }
 
 sub end_page {
-    return '</form>'.&Apache::loncommon::end_page();
+    return '</form></div>'.&Apache::loncommon::end_page();
 }
 
 sub print_front_page {
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.630 loncom/interface/lonparmset.pm:1.631
--- loncom/interface/lonparmset.pm:1.630	Tue Sep 23 15:19:05 2025
+++ loncom/interface/lonparmset.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.630 2025/09/23 15:19:05 raeburn Exp $
+# $Id: lonparmset.pm,v 1.631 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -349,7 +349,8 @@
     my $tabtext = &mt('Course Settings');
     if ($crstype eq 'Community') {
         $tabtext = &mt('Community Settings');
-    } 
+    }
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     $r->print("\n".'<ul class="LC_TabContentBigger" id="main">');
     $r->print("\n".'<li'.($mode eq 'coursepref'?' class="active"':'').'><a href="/adm/courseprefs"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.
                                           $tabtext.
@@ -364,7 +365,7 @@
 # Page footer
 sub endSettingsScreen {
    my ($r)=@_;
-   $r->print('</div></div></div>');
+   $r->print('</div></div></div></div>');
 }
 
 
@@ -7163,7 +7164,7 @@
             url => '/adm/parmset?action=setrestrictmeta',
             permission => $parm_permission->{'setrestrictmeta'},
             linktitle => "Restrict metadata for this $lc_crstype." ,
-            icon =>'contact-new.png'   ,
+            icon =>'contact-new.png',
             },
           { linktext => 'Reset Student Access Times',
             url => '/adm/helper/resettimes.helper',
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.249 loncom/interface/lonpreferences.pm:1.250
--- loncom/interface/lonpreferences.pm:1.249	Sat Aug  9 00:17:30 2025
+++ loncom/interface/lonpreferences.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.249 2025/08/09 00:17:30 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.250 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -104,7 +104,7 @@
                 text => 'Change Language'});
     $r->print(Apache::loncommon::start_page('Content Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language').
-              '<div class="LC_landmark" role="main">'); 
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n"); 
     my %userenv = &Apache::lonnet::get('environment',['languages']);
     my $language=$userenv{'languages'};
 
@@ -298,7 +298,7 @@
                 text => $brtext});
     $r->print(Apache::loncommon::start_page('Content Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle).
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $hotlist_flag=$userenv{'recentroles'};
     my $hotlist_n=$userenv{'recentrolesn'};
     my ($checkedon,$checkedoff);
@@ -514,7 +514,7 @@
                   text => 'Change Screen Name'});
     $r->print(Apache::loncommon::start_page('Personal Data'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name'));
-    $r->print('<div class="LC_landmark" role="main">');
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $caption = &mt('Name displayed in posts you make').':';            
     $r->print('<form name="prefs" action="/adm/preferences" method="post">'
              .'<p><input type="hidden" name="action" value="verify_and_change_screenname" />'
@@ -578,7 +578,7 @@
                 text => 'Change Menu Display'});
     $r->print(Apache::loncommon::start_page('Page Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display').
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 
     my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};
@@ -685,7 +685,7 @@
                 text => 'Register Clicker'});
     $r->print(Apache::loncommon::start_page('Other'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker').
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get
@@ -896,7 +896,7 @@
 		text => 'Messages &amp; Notifications'});
     $r->print(Apache::loncommon::start_page('Messages &amp; Notifications'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Messages &amp; Notifications').
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding");
     my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification");
     my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message");
@@ -1210,7 +1210,7 @@
                 text => 'Change Colors'});
     $r->print(Apache::loncommon::start_page('Page Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors').
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 # figure out colors
     my $function=&Apache::loncommon::get_users_function();
     my $domain=&Apache::loncommon::determinedomain();
@@ -1332,7 +1332,7 @@
     unless ($caller eq 'reset_by_email') {
         $r->print(Apache::loncommon::start_page('Personal Data'));
         $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password').
-                  '<div class="LC_landmark" role="main">');
+                  '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     }
     if ((!defined($caller)) || ($caller eq 'preferences')) {
         $user = $env{'user.name'};
@@ -1916,7 +1916,7 @@
                 text => 'Change Discussion Preferences'});
     $r->print(Apache::loncommon::start_page('Change Discussion Preferences'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences').
-              '<div class="LC_landmark" role="main">');
+              '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get
@@ -2584,7 +2584,7 @@
                     text => 'Set Your Time Zone'});
         $r->print(Apache::loncommon::start_page('Set Your Time Zone',$js,$args));
         $r->print(Apache::lonhtmlcommon::breadcrumbs('Set Your Time Zone').
-                  '<div class="LC_landmark" role="main">');
+                  '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         my %userenv = &Apache::lonnet::get('environment',['timezone']);
         my $timezone = $userenv{'timezone'};
         my %lt = &Apache::lonlocal::texthash(
@@ -2870,7 +2870,7 @@
 
     $r->print(&Apache::loncommon::start_page('My Space'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
-    $r->print('<div class="LC_landmark" role="main">'."\n".$message);
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n".$message);
     $r->print(Apache::lonhtmlcommon::generate_menu(@menu)."\n".'</div>');
     $r->print(Apache::loncommon::end_page());
 }
Index: loncom/interface/lonquickgrades.pm
diff -u loncom/interface/lonquickgrades.pm:1.130 loncom/interface/lonquickgrades.pm:1.131
--- loncom/interface/lonquickgrades.pm:1.130	Wed Aug  6 19:01:23 2025
+++ loncom/interface/lonquickgrades.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Quick Student Grades Display
 #
-# $Id: lonquickgrades.pm,v 1.130 2025/08/06 19:01:23 raeburn Exp $
+# $Id: lonquickgrades.pm,v 1.131 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -430,7 +430,7 @@
        $r->print(&Apache::loncommon::head_subbox(join('&nbsp;&nbsp;', at notes)));
     }
 
-
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">');
     $r->print("\n".'<ul class="LC_TabContentBigger" id="main">');
     $r->print("\n".'<li'.($mode eq 'quick'?' class="active"':'').'><a href="/adm/quickgrades"><b>&nbsp;&nbsp;&nbsp;&nbsp;'.
                                           ($showPoints?&mt('Individual Points Overview'):($showCategories?&mt('Grades Overview'):&mt('Completion Overview'))).
@@ -465,7 +465,7 @@
 
 sub endGradeScreen {
     my ($r)=@_;
-    $r->print('</div></div></div>'.&Apache::loncommon::end_page());
+    $r->print('</div></div></div></div>'.&Apache::loncommon::end_page());
     return;
 }
 
Index: loncom/interface/lonrss.pm
diff -u loncom/interface/lonrss.pm:1.65 loncom/interface/lonrss.pm:1.66
--- loncom/interface/lonrss.pm:1.65	Mon Mar 17 00:25:51 2025
+++ loncom/interface/lonrss.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # RSS Feeder
 #
-# $Id: lonrss.pm,v 1.65 2025/03/17 00:25:51 raeburn Exp $
+# $Id: lonrss.pm,v 1.66 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -376,7 +376,7 @@
 			  'domain'         => $udom,
 			  'force_register' => $env{'form.register'}}).
 		  &changed_js().
-	          '<div class="LC_landmark" role="main">');
+	          '<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     } else { # render RSS
         my $server = &Apache::lonnet::absolute_url();
 	$r->print("<rss version='2.0' xmlns:dc='http://purl.org/dc/elements/1.1'>\n<channel>".
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.364 loncom/interface/lonsearchcat.pm:1.365
--- loncom/interface/lonsearchcat.pm:1.364	Wed Mar 19 15:44:44 2025
+++ loncom/interface/lonsearchcat.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.364 2025/03/19 15:44:44 raeburn Exp $
+# $Id: lonsearchcat.pm,v 1.365 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -506,7 +506,7 @@
 =pod
 
 =over 4
- 
+
 =item &print_basic_search_form() 
 
 Prints the form for the basic search.  Sorry the name is so cryptic.
@@ -527,7 +527,7 @@
         &Apache::lonhtmlcommon::breadcrumbs('Searching','Search_Basic',
 					    $env{'form.catalogmode'} ne 'import');
     my $scrout = &Apache::loncommon::start_page('Content Library').$bread_crumb.
-                 '<div class="LC_landmark" role="main">'."\n".
+                 '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
                  &start_search_tabs();
     if (&Apache::lonnet::allowed('bre',$env{'request.role.domain'}) eq 'F') {
         if ($env{'form.area'} eq 'portfolio') {
@@ -580,7 +580,7 @@
     } else {
        $singledom = $env{'user.domain'};
        $disabled = ' disabled="disabled"';
-       $checked = 1; 
+       $checked = 1;
     }
     $onlysearchdomain = '<label>'
                        .&Apache::lonhtmlcommon::checkbox(
@@ -684,7 +684,7 @@
     }
     my $scrout= &Apache::loncommon::start_page("Advanced $srchtype Search",
                                                $jscript);
-    $scrout .= $bread_crumb.'<div class="LC_landmark" role="main">'."\n".
+    $scrout .= $bread_crumb.'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
                &start_search_tabs();
 
     $scrout .= '<form method="post" action="/adm/searchcat" name="advsearch">'
@@ -761,7 +761,7 @@
     my $anydomain = 1;
     if ($env{'form.area'} ne 'portfolio') {
         unless (&Apache::lonnet::allowed('bre','/res/')) {
-            $anydomain = 0; 
+            $anydomain = 0;
         }
     }
 
@@ -2223,7 +2223,7 @@
     my $result = <<END;
 $start_page
 $breadcrumbs
-<div class="LC_landmark" role="main">
+<div class="LC_landmark" role="main" id="LC_main_content">
 <form name="statusform" action="" method="post" target="$target">
 <input type="hidden" name="catalogmode" value="import" />
 <input type="hidden" name="acts" value="" />
@@ -2499,7 +2499,7 @@
     $r->print(<<END);
 $start_page
 $breadcrumbs
-<div class="LC_landmark" role="main">
+<div class="LC_landmark" role="main" id="LC_main_content">
 END
     # Remove leading and trailing <br />
     $pretty_string =~ s:^\s*<br />::i;
@@ -3360,7 +3360,7 @@
                                                       'add_modal' =>1});
     my $result=<<END;
 $start_page
-<div class="LC_landmark" role="main">
+<div class="LC_landmark" role="main" id="LC_main_content">
 <form name="results" method="post" action="/adm/searchcat">
 $importbutton
 END
Index: loncom/interface/lonsupportreq.pm
diff -u loncom/interface/lonsupportreq.pm:1.109 loncom/interface/lonsupportreq.pm:1.110
--- loncom/interface/lonsupportreq.pm:1.109	Tue Dec  9 02:29:03 2025
+++ loncom/interface/lonsupportreq.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Helpdesk request form
 #
-# $Id: lonsupportreq.pm,v 1.109 2025/12/09 02:29:03 raeburn Exp $
+# $Id: lonsupportreq.pm,v 1.110 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -362,7 +362,7 @@
     }
     my $topsubmit = '&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="button" value="'.$html_lt{'subm'}.'" onclick="validate()" />&nbsp;';
     my $shownsubmit;
-    $r->print('<div class="LC_landmark" role="main">'."\n".
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
               '<form method="post" action="" name="logproblem"'.$formtype.'>'."\n");
     my $output = &Apache::lonhtmlcommon::start_pick_box().
                  &Apache::lonhtmlcommon::row_headline().
@@ -709,7 +709,7 @@
                 $errormsg = &mt('Validation of human, not robot, failed');
             }
             $r->print(
-                '<div class="LC_landmark" role="main">'.
+                '<div class="LC_landmark" role="main" id="LC_main_content">'.
                 '<h2 class="LC_heading_2">'.&mt('Support request failed').'</h2>'.
                       &Apache::lonhtmlcommon::confirm_success($errormsg,1).
                 '<br /><br />'.
@@ -1056,7 +1056,7 @@
             $message .= &mt('As the e-mail address provided for this LON-CAPA server ([_1]) does not appear to be a valid e-mail address, your support request has [_2]not[_3] been sent to the LON-CAPA support staff or administrator at your institution.','<tt>'.$to.'</tt>','<b>','</b>');
         }
     }
-    $r->print('<div class="LC_landmark" role="main">');
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">');
     if ($bad_email) {
         $r->print(&Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($message,$bad_email)).'<br />');
     }
Index: loncom/interface/lonwhatsnew.pm
diff -u loncom/interface/lonwhatsnew.pm:1.132 loncom/interface/lonwhatsnew.pm:1.133
--- loncom/interface/lonwhatsnew.pm:1.132	Sat Mar 22 21:18:30 2025
+++ loncom/interface/lonwhatsnew.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # What's New in a course
 #
-# $Id: lonwhatsnew.pm,v 1.132 2025/03/22 21:18:30 raeburn Exp $
+# $Id: lonwhatsnew.pm,v 1.133 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -266,7 +266,7 @@
                      userpref => 'your general user preferences',
                      coursespecific => "specific setting for this $lctype",
                    );
-    $r->print('<div class="LC_landmark" role="main">');
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 
     if (($command eq 'chgthreshold') 
 	&& $checkallowed->{'abovethreshold'}) {
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.271 loncom/interface/portfolio.pm:1.272
--- loncom/interface/portfolio.pm:1.271	Sat Sep  7 19:13:00 2024
+++ loncom/interface/portfolio.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.271 2024/09/07 19:13:00 raeburn Exp $
+# $Id: portfolio.pm,v 1.272 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2784,21 +2784,25 @@
     if ($env{"form.mode"} eq 'selectfile'){
         $r->print(&Apache::loncommon::start_page($title, $js,
 						 {'only_body' => 1}));
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     } elsif ($env{'form.action'} eq 'rolepicker') {
         $r->print(&Apache::loncommon::start_page('New role-based condition', $js,
                                                  {'no_nav_bar'  => 1, }));
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     } elsif ($caller eq 'coursegrp_portfolio') {
         $r->print(&Apache::loncommon::start_page($title, $js));
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     } else {
         $r->print(&Apache::loncommon::start_page($title, $js,
                                                  {'bread_crumbs' => $brcrum}));
+        $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {
             $r->print('<h2>'.&mt('No user portfolio available') .'</h2>'.
                       &mt('This is a result of one of the following:').'<ul>'.
                       '<li>'.&mt('The administrator of this domain has disabled portfolio functionality for this specific user.').'</li>'.
                       '<li>'.&mt('The domain has been configured to disable, by default, portfolio functionality for all users in the domain.').'</li>'.
                       '</ul>');
-            $r->print(&Apache::loncommon::end_page());
+            $r->print('</div>'.&Apache::loncommon::end_page());
             return OK;
         }
     }
@@ -2837,7 +2841,7 @@
         }
         unless ($evade_block) {
             $r->print($blocktext);
-            $r->print(&Apache::loncommon::end_page());
+            $r->print('</div>'.&Apache::loncommon::end_page());
             return OK;
         }
     }
@@ -2845,14 +2849,14 @@
         my $clean_currentpath = '/'.&Apache::loncommon::clean_path($env{'form.currentpath'}).'/';
         unless ($env{'form.currentpath'} eq $clean_currentpath) {
             &invalid_parms($r,$url);
-            $r->print(&Apache::loncommon::end_page());
+            $r->print('</div>'.&Apache::loncommon::end_page());
             return OK;
         }
     }
     if ($env{'form.container'}) {
         unless (&valid_container($uname,$udom,$group)) {
             &invalid_parms($r,$url,$env{'form.currentpath'});
-            $r->print(&Apache::loncommon::end_page());
+            $r->print('</div>'.&Apache::loncommon::end_page());
             return OK;
         }
     }
@@ -3033,7 +3037,7 @@
                            $can_upload,$can_modify,$can_delete,$can_setacl,
                            $can_viewacl,$caller);
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'.&Apache::loncommon::end_page());
     return OK;
 }
 
Index: loncom/interface/resetpw.pm
diff -u loncom/interface/resetpw.pm:1.55 loncom/interface/resetpw.pm:1.56
--- loncom/interface/resetpw.pm:1.55	Tue Dec  9 02:29:03 2025
+++ loncom/interface/resetpw.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Allow access to password changing via a token sent to user's e-mail. 
 #
-# $Id: resetpw.pm,v 1.55 2025/12/09 02:29:03 raeburn Exp $
+# $Id: resetpw.pm,v 1.56 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -312,7 +312,7 @@
                  '<h2 class="LC_heading_2">'.&mt('Reset forgotten LON-CAPA password').'</h2></div>';
     my $output;
     if ($token) {
-        $r->print($header.'<div class="LC_landmark" role="main">');
+        $r->print($header.'<div class="LC_landmark" role="main" id="LC_main_content">');
         &reset_passwd($r,$token,$contact_name,$contact_email,$clientip,\%passwdconf);
         $r->print('</div>'.&Apache::loncommon::end_page());
         return OK;
@@ -442,7 +442,9 @@
         $output = &get_uname($formname,$server,$defdom,\%passwdconf,
                              $captcha_form,$hdn_captcha,$recaptcha_badge);
     }
-    $r->print($header.'<div class="LC_landmark" role="main">'.$output.'</div>');
+    $r->print($header.
+              '<div class="LC_landmark" role="main" id="LC_main_content">'.
+              $output.'</div>');
     $r->print(&Apache::loncommon::end_page());
     return OK;
 }
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.152 loncom/interface/slotrequest.pm:1.153
--- loncom/interface/slotrequest.pm:1.152	Wed Apr  2 23:44:01 2025
+++ loncom/interface/slotrequest.pm	Sat Dec 13 05:56:01 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.152 2025/04/02 23:44:01 raeburn Exp $
+# $Id: slotrequest.pm,v 1.153 2025/12/13 05:56:01 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3657,7 +3657,7 @@
         $js = &reservation_js(\%slots,$consumed_uniqueperiods,$available,$got_slots,$symb);
     }
     &start_page($r,$title,$brcrum,$bread_crumbs_component,$js,$mgr);
-    $r->print('<div class="LC_landmark" role="main">'."\n");
+    $r->print("\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
 
     if ($env{'form.command'} eq 'manageresv') {
         $allavailable = $available;
Index: loncom/auth/lonlogin.pm
diff -u loncom/auth/lonlogin.pm:1.214 loncom/auth/lonlogin.pm:1.215
--- loncom/auth/lonlogin.pm:1.214	Sun Nov  2 01:42:00 2025
+++ loncom/auth/lonlogin.pm	Sat Dec 13 05:56:02 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Login Screen
 #
-# $Id: lonlogin.pm,v 1.214 2025/11/02 01:42:00 raeburn Exp $
+# $Id: lonlogin.pm,v 1.215 2025/12/13 05:56:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -387,7 +387,7 @@
         }
 	$r->print(
                   $start_page
-                 .'<div class="LC_landmark" role="main">'
+                 .'<div class="LC_landmark" role="main" id="LC_main_content">'
                  .'<p class="LC_warning">'.&mt('You are already logged in!').'</p>'
                  .'<p>'.&mt('Please either [_1]continue the current session[_2] or [_3]log out[_4].',
                   '<a href="'.$dest.'">','</a>','<a href="/adm/logout">','</a>').'</p>'
@@ -649,7 +649,7 @@
   .'<h1>'.&mt('The LearningOnline Network with CAPA').'</h1>'
   .'<img src="/adm/lonKaputt/lonlogo_broken.gif" alt="broken icon" align="right" />'
   .'</div>'
-  .'<div class="LC_landmark" role="main">'
+  .'<div class="LC_landmark" role="main" id="LC_main_content">'
   .'<h2>'.&mt('This LON-CAPA server is temporarily not available for login.').'</h2>');
         if ($spares) {
             $r->print('<p>'.&mt('Please attempt to login to one of the following servers:')
@@ -990,7 +990,7 @@
     my $ssoauthstyle = 'none';
     my $sso_onclick;
     my $logintype;
-    $r->print('<div style="float:left;margin-top:0;" role="main">');
+    $r->print('<div style="float:left;margin-top:0;" role="main" id="LC_main_content">');
     if ($saml_landing) {
         $ssoauthstyle = 'inline-block';
         $stdauthformstyle = 'none';
Index: loncom/auth/lonlogout.pm
diff -u loncom/auth/lonlogout.pm:1.59 loncom/auth/lonlogout.pm:1.60
--- loncom/auth/lonlogout.pm:1.59	Sun May 29 12:59:47 2022
+++ loncom/auth/lonlogout.pm	Sat Dec 13 05:56:02 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Logout Handler
 #
-# $Id: lonlogout.pm,v 1.59 2022/05/29 12:59:47 raeburn Exp $
+# $Id: lonlogout.pm,v 1.60 2025/12/13 05:56:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -226,7 +226,9 @@
 # --------------------------------------------------------------- Screen Output
     $r->print(<<ENDDOCUMENT);
 $start_page
+<div class="LC_landmark" role="main" id="LC_main_content">
 $relogmessage
+</div>
 $end_page
 ENDDOCUMENT
     if ($env{'request.balancercookie'}) {
Index: loncom/auth/lonroles.pm
diff -u loncom/auth/lonroles.pm:1.377 loncom/auth/lonroles.pm:1.378
--- loncom/auth/lonroles.pm:1.377	Mon May 26 19:55:10 2025
+++ loncom/auth/lonroles.pm	Sat Dec 13 05:56:02 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.377 2025/05/26 19:55:10 raeburn Exp $
+# $Id: lonroles.pm,v 1.378 2025/12/13 05:56:02 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -181,7 +181,7 @@
 </script>
 ENDREDIR
     }
-    $r->print('<div class="LC_landmark" role="main">'."\n");
+    $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
     return;
 }
 
@@ -744,7 +744,7 @@
 <h2 class="LC_heading_2">$accessheader</h2>
 <p>$message</p>
 </div>
-<div class="LC_landmark" role="main">
+<div class="LC_landmark" role="main" id="LC_main_content">
 <form action="/adm/roles" method="post">
 <input type="hidden" name="selectrole" value="1" />
 <input type="hidden" name="$trolecode" value="1" />
@@ -777,7 +777,7 @@
 $swinfo
 // ]]>
 </script>
-<div class="LC_landmark" role="main">
+<div class="LC_landmark" role="main" id="LC_main_content">
 <h2 class="LC_heading_2">$accessheader</h2>
 <p>$preamble</p>
 <form action="" method="post">
@@ -1397,7 +1397,7 @@
         }
     }
     if ($nochoose) {
-	$r->print("<div class=\"LC_landmark\" role=\"main\">
+	$r->print("<div class=\"LC_landmark\" role=\"main\" id=\"LC_main_content\">
                   <h2>".&mt('Sorry ...')."</h2>\n<span class='LC_error'>".
 		  &mt('This action is currently not authorized.').'</span>');
         if ($error && $norolelist) {
@@ -1411,6 +1411,7 @@
         $r->print('</div>'.&Apache::loncommon::end_page());
 	return OK;
     } else {
+        $r->print('<div class="LC_landmark" role="main" id="LC_main_content">'."\n");
         if ($updateresult || $reqauthor || $hotlist) {
             my $showresult = '<div>';
             if ($updateresult) {
@@ -1684,7 +1685,7 @@
                  .&mt('This LON-CAPA server is version [_1]',$r->dir_config('lonVersion'))
                  .'</i></small></p>');
     }
-    $r->print(&Apache::loncommon::end_page());
+    $r->print('</div>'."\n".&Apache::loncommon::end_page());
     return OK;
 }
 
Index: loncom/homework/daxepage.pm
diff -u loncom/homework/daxepage.pm:1.18 loncom/homework/daxepage.pm:1.19
--- loncom/homework/daxepage.pm:1.18	Fri Feb 21 06:09:37 2025
+++ loncom/homework/daxepage.pm	Sat Dec 13 05:56:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Page with Daxe on the left side and the preview on the right side
 #
-# $Id: daxepage.pm,v 1.18 2025/02/21 06:09:37 raeburn Exp $
+# $Id: daxepage.pm,v 1.19 2025/12/13 05:56:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -179,7 +179,7 @@
     $request->print(<<"ENDFRAME");
 $startpage
 $script
-<div class="LC_iframecontainer" style="padding-right: 5px" role="main">
+<div class="LC_iframecontainer" style="padding-right: 5px" role="main" id="LC_main_content">
 <h1 class="LC_visually_hidden">$lt{'daxe'}</h1>
 <iframe src="$dest" id="lcdiframe">$lt{'noif'} $noiframe</iframe>
 </div>
Index: loncom/homework/structuretags.pm
diff -u loncom/homework/structuretags.pm:1.595 loncom/homework/structuretags.pm:1.596
--- loncom/homework/structuretags.pm:1.595	Sun Aug 24 21:43:23 2025
+++ loncom/homework/structuretags.pm	Sat Dec 13 05:56:03 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.595 2025/08/24 21:43:23 raeburn Exp $
+# $Id: structuretags.pm,v 1.596 2025/12/13 05:56:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -597,7 +597,7 @@
 						    \%body_args);
     $page_start .= $pageheader;
     if ($target eq 'web') {
-        $page_start .= '<div class="LC_landmark" role="main">'."\n";
+        $page_start .= '<div class="LC_landmark" role="main" id="LC_main_content">'."\n";
     }
     if (!defined($found{'body'}) 
 	&& $env{'request.state'} ne 'construct'
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1541 loncom/lonnet/perl/lonnet.pm:1.1542
--- loncom/lonnet/perl/lonnet.pm:1.1541	Mon Aug  4 18:42:04 2025
+++ loncom/lonnet/perl/lonnet.pm	Sat Dec 13 05:56:04 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1541 2025/08/04 18:42:04 raeburn Exp $
+# $Id: lonnet.pm,v 1.1542 2025/12/13 05:56:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3734,7 +3734,7 @@
     $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
     $output=~s/^.*?\<body[^\>]*\>//si;
     $output=~s/\<\/body\s*\>.*?$//si;
-    $output=~s{\Q<div class="LC_landmark" role="main">\E}{<div>}gs;
+    $output=~s{\Q<div class="LC_landmark" role="main" id="LC_main_content">\E}{<div>}gs;
     if (wantarray) {
         return ($output, $response);
     } else {
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.146 rat/lonpage.pm:1.147
--- rat/lonpage.pm:1.146	Sun Aug 24 21:43:23 2025
+++ rat/lonpage.pm	Sat Dec 13 05:56:04 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.146 2025/08/24 21:43:23 raeburn Exp $
+# $Id: lonpage.pm,v 1.147 2025/12/13 05:56:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -425,7 +425,7 @@
 		              }
                               my $output=Apache::lonnet::ssi($src,%posthash);
 			      $output=~s|//(\s*<!--)? BEGIN LON-CAPA Internal.+?// END LON-CAPA Internal\s*(-->)?\s||gs;
-                              $output=~s{\Q<div class="LC_landmark" role="main">\E}{<div class="LC_landmark">}gs;
+                              $output=~s{\Q<div class="LC_landmark" role="main" id="LC_main_content">\E}{<div class="LC_landmark">}gs;
                               if (($target eq 'tex') || ($target eq 'tex_answer')) {
 				  $output =~ s/^([^&]+)\\begin\{document}//;
 				  $output =~ s/\\end\{document}//;

From raeburn at source.lon-capa.org  Sat Dec 13 08:25:46 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Sat, 13 Dec 2025 13:25:46 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface loncommunicate.pm
Message-ID: <cvsraeburn1765632346@cvsserver>

raeburn		Sat Dec 13 13:25:46 2025 EDT

  Modified files:              
    /loncom/interface	loncommunicate.pm 
  Log:
  - Replace tabs with spaces in several indents. 
  
  
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.48 loncom/interface/loncommunicate.pm:1.49
--- loncom/interface/loncommunicate.pm:1.48	Tue Jan 18 17:33:13 2022
+++ loncom/interface/loncommunicate.pm	Sat Dec 13 13:25:46 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.48 2022/01/18 17:33:13 raeburn Exp $
+# $Id: loncommunicate.pm,v 1.49 2025/12/13 13:25:46 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -90,23 +90,23 @@
             {categorytitle => 'Send Messages',
              items => [
             {url => '/adm/email?compose=individual',
-			 permission => 'F',
-			 icon => 'mail-message-new.png',
+             permission => 'F',
+             icon => 'mail-message-new.png',
              linktext => 'New Message',
              linktitle => 'Send a message to users.'},
        
             {url => '/adm/email?compose=group',
-			 permission => "$can_srm",
+             permission => "$can_srm",
              icon => 'mail-reply-all.png',
              linktext => 'New Broadcast Message',
-			 help => 'Course_Broadcast_Message',
+             help => 'Course_Broadcast_Message',
              linktitle => "Send a broadcast message to members of this $crstype and/or other users."},
 			 
-			{url => '/adm/email?compose=upload',
-			 permission => "$can_srm",
+            {url => '/adm/email?compose=upload',
+             permission => "$can_srm",
              icon => 'fromfile.png',
              linktext => 'New Messages from File',
-			 linktitle => 'Create a message from file and send to users.'},
+             linktitle => 'Create a message from file and send to users.'},
              ]},
         );
     }
@@ -115,16 +115,16 @@
         push(@reports,{categorytitle => 'Message Administration',
              items => [
             {url => '/adm/email?recordftf=query',
-			 permission => "$can_dff",
+             permission => "$can_dff",
              icon => 'messalog.png',
              linktext => 'Message Log for Selected Users',
-			 help => 'Course_Face_To_Face_Records,Course_Critical_Message',
+             help => 'Course_Face_To_Face_Records,Course_Critical_Message',
              linktitle => "User notes, records of face-to-face discussions, critical messages, broadcast messages and archived messages in $crstype."},
                     
             {url => '/adm/setblock?caller=email',
-			 permission => "$can_dcm",
+             permission => "$can_dcm",
              icon => 'comblock.png',
-			 linktext => 'Communication Blocking',
+             linktext => 'Communication Blocking',
              linktitle => "Blocking of $usertype communication during exams."},
              ]});
     }



From raeburn at source.lon-capa.org  Sat Dec 13 08:33:33 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Sat, 13 Dec 2025 13:33:33 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /homework grades.pm /interface
	loncommunicate.pm lonconfigsettings.pm loncoursegroups.pm
	loncreatecourse.pm loncreateuser.pm londocs.pm
	lonhtmlcommon.pm lonmenu.pm lonmodifycourse.pm lonnotify.pm
	lonparmset.pm lonpreferences.pm lonstatistics.pm
Message-ID: <cvsraeburn1765632813@cvsserver>

raeburn		Sat Dec 13 13:33:33 2025 EDT

  Modified files:              
    /loncom/interface	lonconfigsettings.pm loncommunicate.pm 
                     	loncoursegroups.pm loncreatecourse.pm 
                     	loncreateuser.pm londocs.pm lonhtmlcommon.pm 
                     	lonmenu.pm lonmodifycourse.pm lonnotify.pm 
                     	lonparmset.pm lonpreferences.pm lonstatistics.pm 
    /loncom/homework	grades.pm 
  Log:
  - WCAG compliance. Eliminate redundant text for screen readers.
    Preserve alt='', i.e., null attribute where alttext => '' is explicitly
    included in menu item hash.
  
  
-------------- next part --------------
Index: loncom/interface/lonconfigsettings.pm
diff -u loncom/interface/lonconfigsettings.pm:1.21.4.13.2.9 loncom/interface/lonconfigsettings.pm:1.21.4.13.2.10
--- loncom/interface/lonconfigsettings.pm:1.21.4.13.2.9	Mon Sep 19 19:28:31 2022
+++ loncom/interface/lonconfigsettings.pm	Wed Jul  5 17:34:15 2023
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: lonconfigsettings.pm,v 1.21.4.13.2.9 2022/09/19 19:28:31 raeburn Exp $
+# $Id: lonconfigsettings.pm,v 1.21.4.13.2.10 2023/07/05 17:34:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,11 +37,12 @@
 use Apache::lonlocal;
 use Apache::courseclassifier();
 use LONCAPA qw(:DEFAULT :match);
+use File::Copy;
 
 sub print_header {
     my ($r,$phase,$context,$jscript,$container,$instcode,$dom,$confname,$values) = @_;
     my ($pagetitle,$brcrumtitle,$action,$call_category_check,$instcode_check,
-        $linkprot_check,$crstype, at actions, at code_order);
+        $linkprot_check,$ltitools_check,$crstype, at actions, at code_order);
     if ($phase eq 'display') {
         @actions = &Apache::loncommon::get_env_multiple('form.actions');
     }
@@ -115,8 +116,8 @@
 ENDSCRIPT
                 }
             }
-            if (($context eq 'course') && ($phase eq 'display') &&
-                (grep(/^linkprot$/, at actions))) {
+            if (($context eq 'course') && ((grep(/^linkprot$/, at actions)) ||
+                (grep(/^ltitools$/, at actions)))) {
                 my $allowed;
                 my $home = &Apache::lonnet::homeserver($confname,$dom);
                 unless ($home eq 'no_host') {
@@ -124,102 +125,12 @@
                     foreach my $id (@ids) { if ($id eq $home) { $allowed=1; } }
                 }
                 if ($allowed) {
-                    my (@changeable, at settable);
-                    if (ref($values->{'linkprot'}) eq 'HASH') {
-                        if (keys(%{$values->{'linkprot'}})) {
-                            my @current = sort { $a <=> $b } keys(%{$values->{'linkprot'}});
-                            if (@current) {
-                                for (my $i=0; $i<@current; $i++) {
-                                    my $num = $current[$i];
-                                    if (ref($values->{'linkprot'}->{$num}) eq 'HASH') {
-                                        if ($values->{'linkprot'}->{$num}->{'usable'}) {
-                                            push(@changeable,$i);
-                                        } else {
-                                            push(@settable,$i);
-                                        }
-                                    }
-                                }
-                            }
-                        }
-                    }
-                    my ($numrules,$intargjs);
-$linkprot_check .= <<ENDJS;
-
-var linkprotradio = '';
-var secretinput = '';
-var posscheck = '';
-
-ENDJS
-                    if (@changeable) {
-                        foreach my $num (@changeable) {
-                            ($numrules,$intargjs) =
-                                &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
-                            $linkprot_check .= <<ENDJS;
-posscheck = '';
-linkprotradio = document.display.elements['linkprot_changesecret_$num'];
-if (linkprotradio.length) {
-    for (var i=0; i<linkprotradio.length; i++) {
-        if (linkprotradio[i].checked) {
-            if (linkprotradio[i].value == 1) {
-                posscheck = 1;
-            }
-        }
-    }
-}
-
-ENDJS
-                            if ($numrules) {
-                                $linkprot_check .= <<ENDJS;
-if (posscheck) {
-    secretinput = document.display.elements['linkprot_secret_$num'].value;
-    $intargjs
-}
-
-ENDJS
-                            }
-                            $linkprot_check .= <<ENDJS;
-if (posscheck) {
-    uncheckLinkProtMakeVis('visible','$num');
-    document.display.elements['linkprot_secret_$num'].type = 'password';
-}
-
-ENDJS
-                        }
-                    }
-                    if (@settable) {
-                        foreach my $num (@settable) {
-                            ($numrules,$intargjs) =
-                                &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot',$num);
-                            if ($numrules) {
-                                $linkprot_check .= <<ENDJS;
-secretinput = document.display.elements['linkprot_secret_$num'].value;
-$intargjs
-
-ENDJS
-                            }
-                            $linkprot_check .= <<ENDJS;
-uncheckLinkProtMakeVis('visible','$num');
-document.display.elements['linkprot_secret_$num'].type = 'password';
-
-ENDJS
-                        }
+                    if (grep((/^linkprot$/, at actions))) {
+                        $linkprot_check = &ltisecret_js('linkprot',$dom,$values);
                     }
-                    ($numrules,$intargjs) =
-                        &Apache::loncommon::passwd_validation_js('secretinput',$dom,'linkprot','add');
-                    if ($numrules) {
-                        $linkprot_check .= <<ENDJS
-secretinput = document.display.elements['linkprot_secret_add'].value;
-if (document.display.elements['linkprot_add'].checked) {
-    $intargjs
-}
-
-ENDJS
+                    if (grep((/^ltitools$/, at actions))) {
+                        $ltitools_check = &ltisecret_js('ltitools',$dom,$values);
                     }
-                    $linkprot_check .= <<ENDJS;
-uncheckLinkProtMakeVis('visible','add');
-document.display.elements['linkprot_secret_add'].type = 'password';
-
-ENDJS
                 }
             }
         }
@@ -252,16 +163,21 @@
             return;
         }
     }
-    '.$instcode_check.$call_category_check.$linkprot_check.'
+    '.$instcode_check.$call_category_check.$linkprot_check.$ltitools_check.'
     formname.submit();
 }'."\n";
     if ($phase eq 'pickactions') {
-        $js .= &Apache::lonhtmlcommon::color_picker();
+	$js .= &Apache::lonhtmlcommon::color_picker();
         $js .=
             &Apache::lonhtmlcommon::set_form_elements({actions => 'checkbox'})."\n";
     } elsif ($phase eq 'display') {
-        $js .= &Apache::lonhtmlcommon::color_picker();
+	$js .= &Apache::lonhtmlcommon::color_picker();
         $js .= &color_pick_js()."\n";
+        if ($context eq 'domain') {
+            if (grep(/^(lti|ltitools)$/, at actions)) {
+                 $js .= &ltisec_javascript($dom)."\n";
+            }
+        }
     }
     $js .= &Apache::loncommon::viewport_size_js().'
 
@@ -322,22 +238,52 @@
                 $onload .= "toggleHelpdeskRow(document.display,'overrides','$customclass','$optionsprefix');";
             }
             if (grep(/^lti$/, at actions)) {
+                $onload .= "toggleLTI(document.display,'user','add');".
+                           "toggleLTI(document.display,'crs','add');".
+                           "toggleLTI(document.display,'sec','add');".
+                           "toggleLTI(document.display,'lcauth','add');".
+                           "toggleLTI(document.display,'lcmenu','add');".
+                           "toggleLTI(document.display,'passback','add');".
+                           "toggleLTI(document.display,'callback','add');";
+                if (ref($values) eq 'HASH') {
+                    if (ref($values->{'lti'}) eq 'HASH') {
+                        my $numlti = scalar(keys(%{$values->{'lti'}}));
+                        for (my $i=0; $i<$numlti; $i++) {
+                            $onload .= "toggleLTI(document.display,'user','$i');".
+                                       "toggleLTI(document.display,'crs','$i');".
+                                       "toggleLTI(document.display,'sec','$i');".
+                                       "toggleLTI(document.display,'lcauth','$i');".
+                                       "toggleLTI(document.display,'lcmenu','$i');".
+                                       "toggleLTI(document.display,'passback','$i');".
+                                       "toggleLTI(document.display,'callback','$i');";
+                        }
+                    }
+                }
                 my %servers = &Apache::lonnet::get_servers($dom,'library');
                 foreach my $server (keys(%servers)) {
-                    $onload .= "togglePrivKey(document.display,'$server');";
+                    $onload .= "togglePrivKey(document.display,'ltisec','$server');";
                 }
-                $onload .= "toggleLTIEncKey(document.display);";
+                $onload .= "toggleLTIEncKey(document.display,'ltisec');";
             }
             if (grep(/^ltitools$/, at actions)) {
-                $onload .= "toggleLTITools(document.display,'user','add');";
+                $onload .= "toggleLTITools(document.display,'passback','add');".
+                           "toggleLTITools(document.display,'roster','add');".
+                           "toggleLTITools(document.display,'user','add');";
                 if (ref($values) eq 'HASH') {
                     if (ref($values->{'ltitools'}) eq 'HASH') {
                         my $numltitools = scalar(keys(%{$values->{'ltitools'}}));
                         for (my $i=0; $i<$numltitools; $i++) {
-                            $onload .= "toggleLTITools(document.display,'user','$i');";
+                            $onload .= "toggleLTITools(document.display,'passback','$i');".
+                                       "toggleLTITools(document.display,'roster','$i');".
+                                       "toggleLTITools(document.display,'user','$i');";
                         }
                     }
                 }
+                my %servers = &Apache::lonnet::get_servers($dom,'library');
+                foreach my $server (keys(%servers)) {
+                    $onload .= "togglePrivKey(document.display,'toolsec','$server');";
+                }
+                $onload .= "toggleLTIEncKey(document.display,'toolsec');";
             }
             if (grep(/^wafproxy$/, at actions)) {
                 $onload .= "toggleWAF();checkWAF();updateWAF();";
@@ -364,7 +310,7 @@
                 $additem = {'add_entries' => \%loaditems,};
             }
         } elsif ($context eq 'course') {
-            my $onload;
+            my ($onload,$ishome,$crshome_checked);
             if (grep(/^courseinfo$/, at actions)) {
                 if (@code_order) {
                     $onload = "courseSet('','load');toggleCloners(document.display.cloners_instcode);";
@@ -380,11 +326,9 @@
                             my %domdefs = &Apache::lonnet::get_domain_defaults($dom);
                             $ltiauth = $domdefs{'crsltiauth'};
                         }
-                        my $ishome;
-                        my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
-                        unless (($chome eq 'no_host') || ($chome eq '')) {
-                            my @ids=&Apache::lonnet::current_machine_ids();
-                            foreach my $id (@ids) { if ($id eq $chome) { $ishome=1; } }
+                        unless ($crshome_checked) {
+                            $ishome = &is_home();
+                            $crshome_checked = 1;
                         }
                         my $posslti = scalar(keys(%{$values->{'linkprot'}}));
                         for (my $i=0; $i<=$posslti; $i++) {
@@ -394,16 +338,42 @@
                             }
                             if (ref($values->{'linkprot'}->{$i}) eq 'HASH') {
                                 if ($values->{'linkprot'}->{$i}->{'usable'}) {
-                                    $onload .= "toggleLinkProt(document.display,'$num','secret');";
+                                    $onload .= "toggleChgSecret(document.display,'$num','secret','linkprot');";
                                 }
                             }
-                            $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');";
+                            $onload .= "toggleLinkProtExtra(document.display,'returnurl','divurlparam','1','inline-block','$num');".
+                                       "toggleLinkProtExtra(document.display,'passback','passbackparam','1','inline-block','$num');";
                             if ($ltiauth) {
                                 $onload .= "toggleLinkProtExtra(document.display,'requser','optional','1','block','$num');".
                                            "toggleLinkProtExtra(document.display,'mapuser','userfield','other','inline-block','$num');";
                             }
                             if ($ishome) {
-                                $onload .= "uncheckLinkProtMakeVis('visible','$num');";
+                                $onload .= "uncheckLinkProtMakeVis('linkprot','visible','$num');";
+                            }
+                        }
+                    }
+                }
+            }
+            if (grep(/^ltitools$/, at actions)) {
+                if (ref($values) eq 'HASH') {
+                    if (ref($values->{'ltitools'}) eq 'HASH') {
+                        unless ($crshome_checked) {
+                            $ishome = &is_home();
+                            $crshome_checked = 1;
+                        }
+                        my $possltitools = scalar(keys(%{$values->{'ltitools'}}));
+                        for (my $i=0; $i<=$possltitools; $i++) {
+                            my $num = $i;
+                            if ($i == $possltitools) {
+                                $num = 'add';
+                            }
+                            if (ref($values->{'ltitools'}->{$i}) eq 'HASH') {
+                                if ($values->{'ltitools'}->{$i}->{'usable'}) {
+                                    $onload .= "toggleChgSecret(document.display,'$num','secret','ltitools');";
+                                }
+                            }
+                            if ($ishome) {
+                                $onload .= "uncheckLinkProtMakeVis('ltitools','visible','$num');";
                             }
                         }
                     }
@@ -437,6 +407,126 @@
     return;
 }
 
+sub ltisecret_js {
+    my ($name,$dom,$values) = @_;
+    return unless (ref($values) eq 'HASH');
+    my $js;
+    if (($name eq 'linkprot') || ($name eq 'ltitools')) {
+        my (@changeable, at settable);
+        if (ref($values->{$name}) eq 'HASH') {
+            if (keys(%{$values->{$name}})) {
+                my @current = sort { $a <=> $b } keys(%{$values->{$name}});
+                if (@current) {
+                    for (my $i=0; $i<@current; $i++) {
+                        my $num = $current[$i];
+                        if (ref($values->{$name}->{$num}) eq 'HASH') {
+                            if ($values->{$name}->{$num}->{'usable'}) {
+                                push(@changeable,$i);
+                            } else {
+                                push(@settable,$i);
+                            }
+                        }
+                    }
+                }
+            }
+        }
+        my ($numrules,$intargjs);
+$js .= <<ENDJS;
+
+var ${name}radio = '';
+var ${name}secretinput = '';
+var ${name}posscheck = '';
+
+ENDJS
+        if (@changeable) {
+            foreach my $num (@changeable) {
+                ($numrules,$intargjs) =
+                    &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,$num);
+                $js .= <<"ENDJS";
+${name}posscheck = '';
+${name}radio = document.display.elements['${name}_changesecret_$num'];
+if (${name}radio.length) {
+    for (var i=0; i<${name}radio.length; i++) {
+        if (${name}radio[i].checked) {
+            if (${name}radio[i].value == 1) {
+                ${name}posscheck = 1;
+            }
+        }
+    }
+}
+
+ENDJS
+                if ($numrules) {
+                    $js .= <<"ENDJS";
+if (${name}posscheck) {
+    ${name}secretinput = document.display.elements['${name}_secret_$num'].value;
+    $intargjs
+}
+
+ENDJS
+                }
+                $js .= <<"ENDJS";
+if (${name}posscheck) {
+    uncheckLinkProtMakeVis('$name','visible','$num');
+    document.display.elements['${name}_secret_$num'].type = 'password';
+}
+
+ENDJS
+            }
+        }
+        if (@settable) {
+            foreach my $num (@settable) {
+                ($numrules,$intargjs) =
+                    &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,$num);
+                if ($numrules) {
+                    $js .= <<ENDJS;
+${name}secretinput = document.display.elements['${name}_secret_$num'].value;
+$intargjs
+
+ENDJS
+                }
+                $js .= <<ENDJS;
+uncheckLinkProtMakeVis('$name','visible','$num');
+document.display.elements['${name}_secret_$num'].type = 'password';
+
+ENDJS
+            }
+        }
+        ($numrules,$intargjs) =
+            &Apache::loncommon::passwd_validation_js($name.'secretinput',$dom,$name,'add');
+        if ($numrules) {
+            $js .= <<ENDJS
+${name}secretinput = document.display.elements['${name}_secret_add'].value;
+if (document.display.elements['${name}_add'].checked) {
+    $intargjs
+}
+
+ENDJS
+        }
+        $js .= <<ENDJS;
+uncheckLinkProtMakeVis('$name','visible','add');
+document.display.elements['${name}_secret_add'].type = 'password';
+
+ENDJS
+    }
+    return $js;
+}
+
+sub is_home {
+    my $ishome;
+    my $chome = $env{'course.'.$env{'request.course.id'}.'.home'};
+    unless (($chome eq 'no_host') || ($chome eq '')) {
+        my @ids=&Apache::lonnet::current_machine_ids();
+        foreach my $id (@ids) {
+            if ($id eq $chome) {
+                $ishome=1;
+                last;
+            }
+        }
+    }
+    return $ishome;
+}
+
 sub print_footer {
     my ($r,$phase,$newphase,$button_text,$actions,$container,$parm_permission) = @_;
     $button_text = &mt($button_text);
@@ -574,7 +664,7 @@
     if ((ref($prefs_order) eq 'ARRAY') && (ref($prefs) eq 'HASH') && (ref($values) eq 'HASH')) { 
         if (@actions > 0) {
             my $rowsum = 0;
-            my (%output,%rowtotal, at items);
+            my (%output,%rowtotal, at items,$got_check_uncheck,$got_change_secret);
             foreach my $item (@{$prefs_order}) {
                 if (grep(/^\Q$item\E$/, at actions)) {
                     push(@items,$item);
@@ -613,15 +703,47 @@
                                     $settings = $inststatus;
                                 }
                             }
-                        } elsif ($item eq 'lti') {
-                            if (ref($values->{'ltisec'}) eq 'HASH') {
-                                $settings = $values->{'ltisec'};
+                        } elsif (($item eq 'lti') || ($item eq 'ltitools')) {
+                            unless ($got_change_secret) {
+                                $r->print('<script type="text/javascript">'."\n".
+                                          '// <![CDATA['."\n".
+                                          &change_secret_js()."\n".
+                                          '// ]]>'."\n".
+                                          '</script>'."\n");
+                                $got_change_secret = 1;
+                            }
+                            if ($item eq 'lti') {
+                                if (ref($values->{'ltisec'}) eq 'HASH') {
+                                    if (ref($values->{'lti'}) eq 'HASH') {
+                                        $settings = {%{$values->{'lti'}},%{$values->{'ltisec'}}};
+                                    } else {
+                                        $settings = $values->{'ltisec'};
+                                    }
+                                } elsif (ref($values->{'lti'}) eq 'HASH') {
+                                    $settings = $values->{'lti'};
+                                }
+                            } elsif ($item eq 'ltitools') {
+                                if (ref($values->{'toolsec'}) eq 'HASH') {
+                                    if (ref($values->{'ltitools'}) eq 'HASH') {
+                                        $settings = {%{$values->{'ltitools'}},%{$values->{'toolsec'}}};
+                                    } else {
+                                        $settings = $values->{'toolsec'};
+                                    }
+                                }
                             }
                         }
                         ($output{$item},$rowtotal{$item}) =
                             &Apache::domainprefs::print_config_box($r,$dom,$confname,
                                 $phase,$item,$prefs->{$item},$settings);
                     } else {
+                        unless ($got_change_secret) {
+                            $r->print('<script type="text/javascript">'."\n".
+                                      '// <![CDATA['."\n".
+                                      &change_secret_js()."\n".
+                                      '// ]]>'."\n".
+                                      '</script>'."\n");
+                            $got_change_secret = 1;
+                        }
                         ($output{$item},$rowtotal{$item}) =
                             &Apache::courseprefs::print_config_box($r,$dom,$confname,$phase,
                                 $item,$prefs->{$item},$values,$allitems,$crstype,$parm_permission);
@@ -750,6 +872,274 @@
     return $output;
 }
 
+sub ltisec_javascript {
+    my ($dom) = @_;
+    my %servers = &Apache::lonnet::get_servers($dom,'library');
+    my $primary = &Apache::lonnet::domain($dom,'primary');
+    my $course_servers = "'".join("','",keys(%servers))."'";
+    my $output = <<"ENDJS";
+
+function toggleLTIEncKey(form,context) {
+    var shownhosts = new Array();
+    var hiddenhosts = new Array();
+    var forcourse = new Array($course_servers);
+    var fromdomain = '$primary';
+    var crsradio;
+    if (context == 'ltisec') {
+        crsradio = form.elements['ltisec_crslinkprot'];
+    } else {
+        crsradio = form.elements['toolsec_crs'];
+    }
+    if (crsradio.length) {
+        for (var i=0; i<crsradio.length; i++) {
+            if (crsradio[i].checked) {
+                if (crsradio[i].value == 1) {
+                    if (forcourse.length > 0) {
+                        for (var j=0; j<forcourse.length; j++) {
+                            if (!shownhosts.includes(forcourse[j])) {
+                                shownhosts.push(forcourse[j]);
+                            }
+                        }
+                    }
+                } else {
+                    if (forcourse.length > 0) {
+                        for (var j=0; j<forcourse.length; j++) {
+                            if (!hiddenhosts.includes(forcourse[j])) {
+                                hiddenhosts.push(forcourse[j]);
+                            }
+                        }
+                    }
+                }
+            }
+        }
+    }
+    var domradio;
+    if (context == 'ltisec') {
+        domradio = form.elements['ltisec_domlinkprot'];
+    } else {
+        domradio = form.elements['toolsec_dom'];
+    }
+    if (domradio.length) {
+        for (var i=0; i<domradio.length; i++) {
+            if (domradio[i].checked) {
+                if (domradio[i].value == 1) {
+                    if (!shownhosts.includes(fromdomain)) {
+                        shownhosts.push(fromdomain);
+                    }
+                } else {
+                    if (!hiddenhosts.includes(fromdomain)) {
+                        hiddenhosts.push(fromdomain);
+                    }
+                }
+            }
+        }
+    }
+    if (context == 'ltisec') {
+        var consumersradio = form.elements['ltisec_consumers'];
+        if (consumersradio.length) {
+            for (var i=0; i<consumersradio.length; i++) {
+                if (consumersradio[i].checked) {
+                    if (consumersradio[i].value == 1) {
+                        if (!shownhosts.includes(fromdomain)) {
+                            shownhosts.push(fromdomain);
+                        }
+                    } else {
+                        if (!hiddenhosts.includes(fromdomain)) {
+                            hiddenhosts.push(fromdomain);
+                        }
+                    }
+                }
+            }
+        }
+    }
+    if (shownhosts.length > 0) {
+        for (var i=0; i<shownhosts.length; i++) {
+            if (document.getElementById(context+'_info_'+shownhosts[i])) {
+                document.getElementById(context+'_info_'+shownhosts[i]).style.display = 'block';
+            }
+        }
+        if (document.getElementById(context+'_noprivkey')) {
+            document.getElementById(context+'_noprivkey').style.display = 'none';
+        }
+    } else {
+        if (document.getElementById(context+'_noprivkey')) {
+            document.getElementById(context+'_noprivkey').style.display = 'inline-block';
+        }
+    }
+    if (hiddenhosts.length > 0) {
+        for (var i=0; i<hiddenhosts.length; i++) {
+            if (!shownhosts.includes(hiddenhosts[i])) {
+                if (document.getElementById(context+'_info_'+hiddenhosts[i])) {
+                    document.getElementById(context+'_info_'+hiddenhosts[i]).style.display = 'none';
+                }
+            }
+        }
+    }
+    return;
+}
+
+function togglePrivKey(form,context,hostid) {
+    var radioname = '';
+    var currdivid = '';
+    var newdivid = '';
+    if ((document.getElementById(context+'_divcurrprivkey_'+hostid)) &&
+        (document.getElementById(context+'_divchgprivkey_'+hostid))) {
+        currdivid = document.getElementById(context+'_divcurrprivkey_'+hostid);
+        newdivid = document.getElementById(context+'_divchgprivkey_'+hostid);
+        radioname = form.elements[context+'_changeprivkey_'+hostid];
+        if (radioname) {
+            if (radioname.length > 0) {
+                var setvis;
+                for (var i=0; i<radioname.length; i++) {
+                    if (radioname[i].checked == true) {
+                        if (radioname[i].value == 1) {
+                            newdivid.style.display = 'inline-block';
+                            currdivid.style.display = 'none';
+                            setvis = 1;
+                        }
+                        break;
+                    }
+                }
+                if (!setvis) {
+                    newdivid.style.display = 'none';
+                    currdivid.style.display = 'inline-block';
+                }
+            }
+        }
+    }
+    return;
+}
+
+ENDJS
+
+}
+
+sub ltitools_javascript {
+    my ($settings) = @_;
+    my $togglejs = &ltitools_toggle_js();
+    unless (ref($settings) eq 'HASH') {
+        return $togglejs;
+    }
+    my (%ordered,$total,%jstext);
+    $total = 0;
+    foreach my $item (keys(%{$settings})) {
+        if (ref($settings->{$item}) eq 'HASH') {
+            my $num = $settings->{$item}{'order'};
+            $ordered{$num} = $item;
+        }
+    }
+    $total = scalar(keys(%{$settings}));
+    my @jsarray = ();
+    foreach my $item (sort {$a <=> $b } (keys(%ordered))) {
+        push(@jsarray,$ordered{$item});
+    }
+    my $jstext = '    var ltitools = Array('."'".join("','", at jsarray)."'".');'."\n";
+    return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+function reorderLTITools(form,item) {
+    var changedVal;
+$jstext
+    var newpos = 'ltitools_add_pos';
+    var maxh = 1 + $total;
+    var current = new Array;
+    var newitemVal = form.elements[newpos].options[form.elements[newpos].selectedIndex].value;
+    if (item == newpos) {
+        changedVal = newitemVal;
+    } else {
+        changedVal = form.elements[item].options[form.elements[item].selectedIndex].value;
+        current[newitemVal] = newpos;
+    }
+    for (var i=0; i<ltitools.length; i++) {
+        var elementName = 'ltitools_'+ltitools[i];
+        if (elementName != item) {
+            if (form.elements[elementName]) {
+                var currVal = form.elements[elementName].options[form.elements[elementName].selectedIndex].value;
+                current[currVal] = elementName;
+            }
+        }
+    }
+    var oldVal;
+    for (var j=0; j<maxh; j++) {
+        if (current[j] == undefined) {
+            oldVal = j;
+        }
+    }
+    if (oldVal < changedVal) {
+        for (var k=oldVal+1; k<=changedVal ; k++) {
+           var elementName = current[k];
+           form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex - 1;
+        }
+    } else {
+        for (var k=changedVal; k<oldVal; k++) {
+            var elementName = current[k];
+            form.elements[elementName].selectedIndex = form.elements[elementName].selectedIndex + 1;
+        }
+    }
+    return;
+}
+
+// ]]>
+</script>
+
+$togglejs
+
+ENDSCRIPT
+}
+
+sub ltitools_toggle_js {
+    return <<"ENDSCRIPT";
+<script type="text/javascript">
+// <![CDATA[
+
+function toggleLTITools(form,setting,item) {
+    var radioname = '';
+    var divid = '';
+    if ((setting == 'passback') || (setting == 'roster')) {
+        radioname = 'ltitools_'+setting+'_'+item;
+        divid = 'ltitools_'+setting+'time_'+item;
+        var num = form.elements[radioname].length;
+        if (num) {
+            var setvis = '';
+            for (var i=0; i<num; i++) {
+                if (form.elements[radioname][i].checked) {
+                    if (form.elements[radioname][i].value == '1') {
+                        if (document.getElementById(divid)) {
+                            document.getElementById(divid).style.display = 'inline-block';
+                        }
+                        setvis = 1;
+                    }
+                    break;
+                }
+            }
+        }
+        if (!setvis) {
+            if (document.getElementById(divid)) {
+                document.getElementById(divid).style.display = 'none';
+            }
+        }
+    }
+    if (setting == 'user') {
+        divid = 'ltitools_'+setting+'_div_'+item;
+        var checkid = 'ltitools_'+setting+'_field_'+item;
+        if (document.getElementById(divid)) {
+            if (document.getElementById(checkid)) {
+                if (document.getElementById(checkid).checked) {
+                    document.getElementById(divid).style.display = 'inline-block';
+                } else {
+                    document.getElementById(divid).style.display = 'none';
+                }
+            }
+        }
+    }
+    return;
+}
+// ]]>
+</script>
+
+ENDSCRIPT
+}
+
 sub get_crumb_text {
     my %brcrumbtext = (
                        domain => 'Domain Settings',
@@ -758,4 +1148,271 @@
     return %brcrumbtext;
 }
 
+sub publishlogo {
+    my ($r,$action,$formname,$dom,$confname,$subdir,$thumbwidth,$thumbheight,
+        $savefileas,$modified) = @_;
+    my ($output,$fname,$logourl,$madethumb);
+    if ($action eq 'upload') {
+        $fname=$env{'form.'.$formname.'.filename'};
+        chop($env{'form.'.$formname});
+    } else {
+        ($fname) = ($formname =~ /([^\/]+)$/);
+    }
+    if ($savefileas ne '') {
+        $fname = $savefileas;
+    }
+    $fname=&Apache::lonnet::clean_filename($fname);
+# See if there is anything left
+    unless ($fname) { return ('error: no uploaded file'); }
+    $fname="$subdir/$fname";
+    my $docroot=$r->dir_config('lonDocRoot');
+    my $filepath="$docroot/priv";
+    my $relpath = "$dom/$confname";
+    my ($fnamepath,$file,$fetchthumb);
+    $file=$fname;
+    if ($fname=~m|/|) {
+        ($fnamepath,$file) = ($fname =~ m|^(.*)/([^/]+)$|);
+    }
+    my @parts=split(/\//,"$filepath/$relpath/$fnamepath");
+    my $count;
+    for ($count=5;$count<=$#parts;$count++) {
+        $filepath.="/$parts[$count]";
+        if ((-e $filepath)!=1) {
+            mkdir($filepath,02770);
+        }
+    }
+    # Check for bad extension and disallow upload
+    if ($file=~/\.(\w+)$/ &&
+        (&Apache::loncommon::fileembstyle($1) eq 'hdn')) {
+        $output =
+            &mt('Invalid file extension ([_1]) - reserved for internal use.',$1);
+    } elsif ($file=~/\.(\w+)$/ &&
+        !defined(&Apache::loncommon::fileembstyle($1))) {
+        $output = &mt('Unrecognized file extension ([_1]) - rename the file with a proper extension and re-upload.',$1);
+    } elsif ($file=~/\.(\d+)\.(\w+)$/) {
+        $output = &mt('Filename not allowed - rename the file to remove the number immediately before the file extension([_1]) and re-upload.',$2);
+    } elsif (-d "$filepath/$file") {
+        $output = &mt('Filename is a directory name - rename the file and re-upload');
+    } else {
+        my $source = $filepath.'/'.$file;
+        my $logfile;
+        if (!open($logfile,">>",$source.'.log')) {
+            return (&mt('No write permission to Authoring Space'));
+        }
+        print $logfile
+"\n================= Publish ".localtime()." ================\n".
+$env{'user.name'}.':'.$env{'user.domain'}."\n";
+# Save the file
+        if (!open(FH,">",$source)) {
+            &Apache::lonnet::logthis('Failed to create '.$source);
+            return (&mt('Failed to create file'));
+        }
+        if ($action eq 'upload') {
+            if (!print FH ($env{'form.'.$formname})) {
+                &Apache::lonnet::logthis('Failed to write to '.$source);
+                return (&mt('Failed to write file'));
+            }
+        } else {
+            my $original = &Apache::lonnet::filelocation('',$formname);
+            if(!copy($original,$source)) {
+                &Apache::lonnet::logthis('Failed to copy '.$original.' to '.$source);
+                return (&mt('Failed to write file'));
+            }
+        }
+        close(FH);
+        chmod(0660, $source); # Permissions to rw-rw---.
+
+        my $targetdir=$docroot.'/res/'.$dom.'/'.$confname .'/'.$fnamepath;
+        my $copyfile=$targetdir.'/'.$file;
+
+        my @parts=split(/\//,$targetdir);
+        my $path="/$parts[1]/$parts[2]/$parts[3]/$parts[4]";
+        for (my $count=5;$count<=$#parts;$count++) {
+            $path.="/$parts[$count]";
+            if (!-e $path) {
+                print $logfile "\nCreating directory ".$path;
+                mkdir($path,02770);
+            }
+        }
+        my $versionresult;
+        if (-e $copyfile) {
+            $versionresult = &logo_versioning($targetdir,$file,$logfile);
+        } else {
+            $versionresult = 'ok';
+        }
+        if ($versionresult eq 'ok') {
+            if (copy($source,$copyfile)) {
+                print $logfile "\nCopied original source to ".$copyfile."\n";
+                $output = 'ok';
+                $logourl = '/res/'.$dom.'/'.$confname.'/'.$fname;
+                if (ref($modified) eq 'ARRAY') {
+                    push(@{$modified},[$copyfile,$source]);
+                }
+                my $metaoutput =
+                    &write_metadata($dom,$confname,$formname,$targetdir,$file,$logfile);
+            } else {
+                print $logfile "\nUnable to write ".$copyfile.':'.$!."\n";
+                $output = &mt('Failed to copy file to RES space').", $!";
+            }
+            if (($thumbwidth =~ /^\d+$/) && ($thumbheight =~ /^\d+$/)) {
+                my $inputfile = $filepath.'/'.$file;
+                my $outfile = $filepath.'/'.'tn-'.$file;
+                my ($fullwidth,$fullheight) = &Apache::lonnet::check_dimensions($inputfile);
+                if ($fullwidth ne '' && $fullheight ne '') {
+                    if ($fullwidth > $thumbwidth && $fullheight > $thumbheight) {
+                        my $thumbsize = $thumbwidth.'x'.$thumbheight;
+                        my @args = ('convert','-sample',$thumbsize,$inputfile,$outfile);
+                        system({$args[0]} @args);
+                        chmod(0660, $filepath.'/tn-'.$file);
+                        if (-e $outfile) {
+                            my $copyfile=$targetdir.'/tn-'.$file;
+                            if (copy($outfile,$copyfile)) {
+                                print $logfile "\nCopied source to ".$copyfile."\n";
+                                my $thumb_metaoutput =
+                                    &write_metadata($dom,$confname,$formname,
+                                                    $targetdir,'tn-'.$file,$logfile);
+                                if (ref($modified) eq 'ARRAY') {
+                                    push(@{$modified},[$copyfile,$outfile]);
+                                }
+                                $madethumb = 1;
+                            } else {
+                                print $logfile "\nUnable to write ".$copyfile.
+                                               ':'.$!."\n";
+                            }
+                        }
+                    }
+                }
+            }
+        } else {
+            $output = $versionresult;
+        }
+    }
+    return ($output,$logourl,$madethumb);
+}
+
+sub logo_versioning {
+    my ($targetdir,$file,$logfile) = @_;
+    my $target = $targetdir.'/'.$file;
+    my ($maxversion,$fn,$extn,$output);
+    $maxversion = 0;
+    if ($file =~ /^(.+)\.(\w+)$/) {
+        $fn=$1;
+        $extn=$2;
+    }
+    opendir(DIR,$targetdir);
+    while (my $filename=readdir(DIR)) {
+        if ($filename=~/\Q$fn\E\.(\d+)\.\Q$extn\E$/) {
+            $maxversion=($1>$maxversion)?$1:$maxversion;
+        }
+    }
+    $maxversion++;
+    print $logfile "\nCreating old version ".$maxversion."\n";
+    my $copyfile=$targetdir.'/'.$fn.'.'.$maxversion.'.'.$extn;
+    if (copy($target,$copyfile)) {
+        print $logfile "Copied old target to ".$copyfile."\n";
+        $copyfile=$copyfile.'.meta';
+        if (copy($target.'.meta',$copyfile)) {
+            print $logfile "Copied old target metadata to ".$copyfile."\n";
+            $output = 'ok';
+        } else {
+            print $logfile "Unable to write metadata ".$copyfile.':'.$!."\n";
+            $output = &mt('Failed to copy old meta').", $!, ";
+        }
+    } else {
+        print $logfile "Unable to write ".$copyfile.':'.$!."\n";
+        $output = &mt('Failed to copy old target').", $!, ";
+    }
+    return $output;
+}
+
+sub write_metadata {
+    my ($dom,$confname,$formname,$targetdir,$file,$logfile) = @_;
+    my (%metadatafields,%metadatakeys,$output);
+    $metadatafields{'title'}=$formname;
+    $metadatafields{'creationdate'}=time;
+    $metadatafields{'lastrevisiondate'}=time;
+    $metadatafields{'copyright'}='public';
+    $metadatafields{'modifyinguser'}=$env{'user.name'}.':'.
+                                         $env{'user.domain'};
+    $metadatafields{'authorspace'}=$confname.':'.$dom;
+    $metadatafields{'domain'}=$dom;
+    {
+        print $logfile "\nWrite metadata file for ".$targetdir.'/'.$file;
+        my $mfh;
+        if (open($mfh,">",$targetdir.'/'.$file.'.meta')) {
+            foreach (sort(keys(%metadatafields))) {
+                unless ($_=~/\./) {
+                    my $unikey=$_;
+                    $unikey=~/^([A-Za-z]+)/;
+                    my $tag=$1;
+                    $tag=~tr/A-Z/a-z/;
+                    print $mfh "\n\<$tag";
+                    foreach (split(/\,/,$metadatakeys{$unikey})) {
+                        my $value=$metadatafields{$unikey.'.'.$_};
+                        $value=~s/\"/\'\'/g;
+                        print $mfh ' '.$_.'="'.$value.'"';
+                    }
+                    print $mfh '>'.
+                        &HTML::Entities::encode($metadatafields{$unikey},'<>&"')
+                            .'</'.$tag.'>';
+                }
+            }
+            $output = 'ok';
+            print $logfile "\nWrote metadata";
+            close($mfh);
+        } else {
+            print $logfile "\nFailed to open metadata file";
+            $output = &mt('Could not write metadata');
+        }
+    }
+    return $output;
+}
+
+sub change_secret_js {
+    return <<"ENDSCRIPT";
+function toggleChgSecret(form,num,item,name) {
+    var radioname = '';
+    var currdivid = '';
+    var newdivid = '';
+    if ((document.getElementById(name+'_divcurr'+item+'_'+num)) &&
+        (document.getElementById(name+'_divchg'+item+'_'+num))) {
+        currdivid = document.getElementById(name+'_divcurr'+item+'_'+num);
+        newdivid = document.getElementById(name+'_divchg'+item+'_'+num);
+        radioname = form.elements[name+'_change'+item+'_'+num];
+        if (radioname) {
+            if (radioname.length > 0) {
+                var setvis;
+                for (var i=0; i<radioname.length; i++) {
+                    if (radioname[i].checked == true) {
+                        if (radioname[i].value == 1) {
+                            newdivid.style.display = 'inline-block';
+                            currdivid.style.display = 'none';
+                            setvis = 1;
+                        }
+                        break;
+                    }
+                }
+                if (!setvis) {
+                    newdivid.style.display = 'none';
+                    currdivid.style.display = 'inline-block';
+                }
+            }
+        }
+    }
+    return;
+}
+
+function uncheckLinkProtMakeVis(name,item,num) {
+    if (document.getElementById(name+'_'+item+'_'+num)) {
+        var currtype = document.getElementById(name+'_'+item+'_'+num).type;
+        if (currtype.toLowerCase() == 'checkbox') {
+            document.getElementById(name+'_'+item+'_'+num).checked = false;
+        }
+    }
+    return;
+}
+ENDSCRIPT
+
+}
+
 1;
Index: loncom/interface/loncommunicate.pm
diff -u loncom/interface/loncommunicate.pm:1.49 loncom/interface/loncommunicate.pm:1.50
--- loncom/interface/loncommunicate.pm:1.49	Sat Dec 13 13:25:46 2025
+++ loncom/interface/loncommunicate.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Communicate
 #
-# $Id: loncommunicate.pm,v 1.49 2025/12/13 13:25:46 raeburn Exp $
+# $Id: loncommunicate.pm,v 1.50 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,12 +92,14 @@
             {url => '/adm/email?compose=individual',
              permission => 'F',
              icon => 'mail-message-new.png',
+             alttext => '',
              linktext => 'New Message',
              linktitle => 'Send a message to users.'},
        
             {url => '/adm/email?compose=group',
              permission => "$can_srm",
              icon => 'mail-reply-all.png',
+             alttext => '',
              linktext => 'New Broadcast Message',
              help => 'Course_Broadcast_Message',
              linktitle => "Send a broadcast message to members of this $crstype and/or other users."},
@@ -105,6 +107,7 @@
             {url => '/adm/email?compose=upload',
              permission => "$can_srm",
              icon => 'fromfile.png',
+             alttext => '',
              linktext => 'New Messages from File',
              linktitle => 'Create a message from file and send to users.'},
              ]},
@@ -117,6 +120,7 @@
             {url => '/adm/email?recordftf=query',
              permission => "$can_dff",
              icon => 'messalog.png',
+             alttext => '',
              linktext => 'Message Log for Selected Users',
              help => 'Course_Face_To_Face_Records,Course_Critical_Message',
              linktitle => "User notes, records of face-to-face discussions, critical messages, broadcast messages and archived messages in $crstype."},
@@ -124,6 +128,7 @@
             {url => '/adm/setblock?caller=email',
              permission => "$can_dcm",
              icon => 'comblock.png',
+             alttext => '',
              linktext => 'Communication Blocking',
              linktitle => "Blocking of $usertype communication during exams."},
              ]});
Index: loncom/interface/loncoursegroups.pm
diff -u loncom/interface/loncoursegroups.pm:1.133 loncom/interface/loncoursegroups.pm:1.134
--- loncom/interface/loncoursegroups.pm:1.133	Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncoursegroups.pm	Sat Dec 13 13:33:33 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: loncoursegroups.pm,v 1.133 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.134 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3811,21 +3811,21 @@
           { linktext => "Modify default $gpterm settings",
             url => '/adm/coursegroups?action=modify&amp;refpage='.$env{'form.refpage'}.'&amp;groupname='.$groupname.'&amp;state=change_settings&amp;branch=settings',
             icon => 'grp_settings.png',
-            alttext => "Modify default $gpterm settings",
+            alttext => '',
             permission => '1',
             help => 'Course_Modify_Group',            
             },
           { linktext => 'Modify access, tools and privileges for members',
             url => '/adm/coursegroups?action=modify&amp;refpage='.$env{'form.refpage'}.'&amp;groupname='.$groupname.'&amp;state=change_members&amp;branch=members',
             icon => 'grp_tools.png',
-            alttext => 'Modify access, tools and privileges for members',
+            alttext => '',
             permission => '1',
             help => 'Course_Modify_Group_Membership',
             },
           { linktext => "Add member(s) to the $gpterm",
             url => '/adm/coursegroups?action=modify&amp;refpage='.$env{'form.refpage'}.'&amp;groupname='.$groupname.'&amp;state=add_members&amp;branch=adds',
             icon => 'grp_add.png',
-            alttext =>  "Add member(s) to the $gpterm",
+            alttext =>  '',
             permission => '1',
             help => 'Course_Group_Add_Members',
             }]}
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.179 loncom/interface/loncreatecourse.pm:1.180
--- loncom/interface/loncreatecourse.pm:1.179	Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncreatecourse.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.179 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncreatecourse.pm,v 1.180 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -843,6 +843,7 @@
                permission => $permission->{'create'},
                #help => '',
                icon => 'crsnew.png',
+               alttext => '',
                linktitle => 'Create a new course by completing an online form.'
           },
           {
@@ -851,6 +852,7 @@
                permission => $permission->{'create'} && $cancreate->{'Community'},
                #help => '',
                icon => 'crsnew.png',
+               alttext => '',
                linktitle => 'Create a new collaborative community by completing an online form.'
           },
           {
@@ -859,6 +861,7 @@
                permission => $permission->{'create'} && $cancreate->{'Placement'},
                #help => '',
                icon => 'crsnew.png',
+               alttext => '',
                linktitle => 'Create a new placement test by completing an online form.'
           },
           {
@@ -867,6 +870,7 @@
                permission => $permission->{'create'},
                help => 'Batch_Creation',
                icon => 'uplcrs.png',
+               alttext => '',
                linktitle => 'Upload an attributes file containing specifications for one or more courses, communities or placement tests in XML format.'
           },
        ]
@@ -879,6 +883,7 @@
                permission => $show_all_choices,
                #help => '',
                icon => 'rcrs.png',
+               alttext => '',
                linktitle => 'Display course, community creation and placement test requests submitted by authorized users, held pending approval by a Domain Coordinator.'
            },
            {
@@ -900,6 +905,7 @@
                permission => $show_all_choices,
                #help => '',
                icon => 'document-properties.png',
+               alttext => '',
                linktitle => 'Display information about when, how and by whom courses, communities and placement tests were created in this domain.'
            },
        ]
Index: loncom/interface/loncreateuser.pm
diff -u loncom/interface/loncreateuser.pm:1.487 loncom/interface/loncreateuser.pm:1.488
--- loncom/interface/loncreateuser.pm:1.487	Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncreateuser.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.487 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncreateuser.pm,v 1.488 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6844,6 +6844,7 @@
             {
              linktext => $links{$linkcontext}{'singleuser'},
              icon => 'edit-redo.png',
+             alttext => '',
              #help => 'Course_Change_Privileges',
              url => '/adm/createuser?action=singleuser',
              permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -6857,6 +6858,7 @@
             {
              linktext => $links{$linkcontext}{'upload'},
              icon => 'uplusr.png',
+             alttext => '',
              #help => 'Course_Create_Class_List',
              url => '/adm/createuser?action=upload',
              permission => $permission->{'cusr'},
@@ -6865,6 +6867,7 @@
             {
              linktext => $links{$linkcontext}{'listusers'},
              icon => 'mngcu.png',
+             alttext => '',
              #help => 'Course_View_Class_List',
              url => '/adm/createuser?action=listusers',
              permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -6882,6 +6885,7 @@
             {
              linktext => 'User Access Log',
              icon => 'document-properties.png',
+             alttext => '',
              #help => 'Domain_User_Access_Logs',
              url => '/adm/createuser?action=accesslogs',
              permission => $permission->{'activity'},
@@ -6893,6 +6897,7 @@
             {
              linktext => 'Custom Roles',
              icon => 'emblem-photos.png',
+             alttext => '',
              #help => 'Course_Editing_Custom_Roles',
              url => '/adm/createuser?action=custom',
              permission => $permission->{'custom'},
@@ -6901,6 +6906,7 @@
             {
              linktext => 'Authoring Space Requests',
              icon => 'selfenrl-queue.png',
+             alttext => '',
              #help => 'Domain_Role_Approvals',
              url => '/adm/createuser?action=processauthorreq',
              permission => $permission->{'cusr'},
@@ -6909,6 +6915,7 @@
             {
              linktext => 'LON-CAPA Account Requests',
              icon => 'list-add.png',
+             alttext => '',
              #help => 'Domain_Username_Approvals',
              url => '/adm/createuser?action=processusernamereq',
              permission => $permission->{'cusr'},
@@ -6917,6 +6924,7 @@
             {
              linktext => 'Change Log',
              icon => 'document-properties.png',
+             alttext => '',
              #help => 'Course_User_Logs',
              url => '/adm/createuser?action=changelogs',
              permission => ($permission->{'cusr'} || $permission->{'view'}),
@@ -6961,6 +6969,7 @@
              linktext => $linktext{$crstype}{'single'},
              #help => 'Course_Add_Student',
              icon => 'list-add.png',
+             alttext => '',
              url => '/adm/createuser?action=singlestudent',
              permission => $permission->{'cusr'},
              linktitle => $linktitle{$crstype}{'single'},
@@ -6971,6 +6980,7 @@
             {
              linktext => $linktext{$crstype}{'drop'},
              icon => 'edit-undo.png',
+             alttext => '',
              #help => 'Course_Drop_Student',
              url => '/adm/createuser?action=drop',
              permission => $permission->{'cusr'},
@@ -6981,6 +6991,7 @@
             {
              linktext => 'Helpdesk Access',
              icon => 'helpdesk-access.png',
+             alttext => '',
              #help => 'Course_Helpdesk_Access',
              url => '/adm/createuser?action=helpdesk',
              permission => (($permission->{'owner'} || $permission->{'co-owner'}) &&
@@ -6990,6 +7001,7 @@
             {
              linktext => 'Custom Roles',
              icon => 'emblem-photos.png',
+             alttext => '',
              #help => 'Course_Editing_Custom_Roles',
              url => '/adm/createuser?action=custom',
              permission => $permission->{'custom'},
@@ -6998,6 +7010,7 @@
             {
              linktext => $linktext{$crstype}{'groups'},
              icon => 'grps.png',
+             alttext => '',
              #help => 'Course_Manage_Group',
              url => '/adm/coursegroups?refpage=cusr',
              permission => $permission->{'grp_manage'},
@@ -7006,6 +7019,7 @@
             {
              linktext => 'Change Log',
              icon => 'document-properties.png',
+             alttext => '',
              #help => 'Course_User_Logs',
              url => '/adm/createuser?action=changelogs',
              permission => ($permission->{'view'} || $permission->{'cusr'}),
@@ -7017,6 +7031,7 @@
                     {
                      linktext => 'Enrollment Requests',
                      icon => 'selfenrl-queue.png',
+                     alttext => '',
                      #help => 'Course_Approve_Selfenroll',
                      url => '/adm/createuser?action=selfenrollqueue',
                      permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'},
@@ -7031,6 +7046,7 @@
                     {
                      linktext => 'Automated Enrollment',
                      icon => 'roles.png',
+                     alttext => '',
                      #help => 'Course_Automated_Enrollment',
                      permission => (&Apache::lonnet::auto_run($cnum,$cdom)
                                          && (($permission->{'cusr'}) ||
@@ -7044,6 +7060,7 @@
                 {
                  linktext => 'User Self-Enrollment',
                  icon => 'self_enroll.png',
+                 alttext => '',
                  #help => 'Course_Self_Enrollment',
                  url => '/adm/createuser?action=selfenroll',
                  permission => $permission->{'selfenrolladmin'} || $permission->{'selfenrollview'},
@@ -7067,6 +7084,7 @@
                 {
                  linktext => 'Co-author-viewable list',
                  icon => 'clst.png',
+                 alttext => '',
                  #help => 'Coauthor_Listing',
                  url => '/adm/createuser?action=calist&forceedit=0',
                  permission => $permission->{'cusr'},
@@ -7077,6 +7095,7 @@
             {
              linktext => 'Change Log',
              icon => 'document-properties.png',
+             alttext => '',
              #help => 'Course_User_Logs',
              url => '/adm/createuser?action=changelogs',
              permission => $permission->{'cusr'},
@@ -7085,6 +7104,7 @@
             {
              linktext => 'Co-author Managers',
              icon => 'camanager.png',
+             alttext => '',
              #help => 'Coauthor_Management',
              url => '/adm/createuser?action=camanagers',
              permission => $permission->{'author'},
@@ -7093,6 +7113,7 @@
             {
              linktext => 'Configure Co-author Listing',
              icon => 'coauthors.png',
+             alttext => '',
              #help => 'Coauthor_Settings',
              url => '/adm/createuser?action=calist&forceedit=1',
              permission => ($permission->{'cusr'}),
@@ -7104,6 +7125,7 @@
         {
          linktext => 'Role Requests (other domains)',
          icon => 'edit-find.png',
+         alttext => '',
          #help => 'Role_Requests',
          url => '/adm/createuser?action=rolerequests',
          permission => $permission->{'cusr'},
@@ -7115,6 +7137,7 @@
             {
              linktext => 'Queued Role Assignments (this domain)',
              icon => 'edit-find.png',
+             alttext => '',
              #help => 'Role_Approvals',
              url => '/adm/createuser?action=queuedroles',
              permission => $permission->{'cusr'},
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.731 loncom/interface/londocs.pm:1.732
--- loncom/interface/londocs.pm:1.731	Sat Dec 13 05:56:01 2025
+++ loncom/interface/londocs.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.731 2025/12/13 05:56:01 raeburn Exp $
+# $Id: londocs.pm,v 1.732 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -8540,6 +8540,7 @@
                     permission => 'F',
                     help       => 'Docs_Verify_Content',
                     icon       => 'verify.png',
+                    alttext    => '',
                     linktitle  => 'Verify contents can be retrieved/rendered',
                 },
                 {   linktext => $lt{'cv'},
@@ -8547,6 +8548,7 @@
                     permission => 'F',
                     help       => 'Docs_Check_Resource_Versions',
                     icon       => 'resversion.png',
+                    alttext    => '',
                     linktitle  => "View version information for resources in your $lc_crstype, and fix/unfix use of specific versions",
                 },
                 {   linktext   => $lt{'ls'},
@@ -8554,6 +8556,7 @@
                     permission => 'F',
                     #help => '',
                     icon       => 'symbs.png',
+                    alttext    => '',
                     linktitle  => "List the unique identifier used for each resource instance in your $lc_crstype"
                 },
                 {   linktext   => $lt{'ct'},
@@ -8561,6 +8564,7 @@
                     permission => 'F',
                     help       => 'Docs_Short_URLs',
                     icon       => 'shorturls.png',
+                    alttext    => '',
                     linktitle  => "Set shortened URLs for a resource or folder in your $lc_crstype for use in deep-linking"
                 },
                 ]
@@ -8588,6 +8592,7 @@
                          permission => 'F',
                          help       => 'Docs_Course_Authorspace',
                          icon       => 'impcrsau.png',
+                         alttext    => '',
                          linktitle  => $lt{'ca'},
                      });
                 }
@@ -8601,6 +8606,7 @@
                     permission => 'F',
                     help       => 'Docs_Export_Course_Docs',
                     icon       => 'imsexport.png',
+                    alttext    => '',
                     linktitle  => $lt{'imse'},
                 },
                 {   linktext   => $lt{'dcd'},
@@ -8608,6 +8614,7 @@
                     permission => $candump,
                     help       => 'Docs_Dump_Course_Docs',
                     icon       => 'dump.png',
+                    alttext    => '',
                     linktitle  => $lt{'dcd'},
                 },
                 ]
@@ -8620,6 +8627,7 @@
                          permission => 'F',
                          help       => 'Docs_Export_Course_Author',
                          icon       => 'res.png',
+                         alttext    => '',
                          linktitle  => $lt{'cpc'},
                      });
             }
Index: loncom/interface/lonhtmlcommon.pm
diff -u loncom/interface/lonhtmlcommon.pm:1.425 loncom/interface/lonhtmlcommon.pm:1.426
--- loncom/interface/lonhtmlcommon.pm:1.425	Sun Sep  7 04:21:13 2025
+++ loncom/interface/lonhtmlcommon.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common html routines
 #
-# $Id: lonhtmlcommon.pm,v 1.425 2025/09/07 04:21:13 raeburn Exp $
+# $Id: lonhtmlcommon.pm,v 1.426 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3875,14 +3875,14 @@
 # NOTES:
 # - Empty elements, such as <br/> are correctly terminated, 
 #   i.e. htmltag('br') returns <br/> 
-# - Empty attributes (title="") are filtered out.
+# - Empty attributes (e.g., title="") with the exception of alt="" are filtered out.
 # - The function will not check for deprecated attributes.
 #
 # OUTPUT: content enclosed in xhtml conform tags
 sub htmltag{
     return
         qq|<$_[0]|
-        . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} } keys(%{ $_[2] }) )
+        . join( '', map { qq| $_="${$_[2]}{$_}"| if ${$_[2]}{$_} || $_ eq 'alt' } keys(%{ $_[2] }) )
         . ($_[1] ? qq|>$_[1]</$_[0]>| : qq|/>|). "\n";
 };
 
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.567 loncom/interface/lonmenu.pm:1.568
--- loncom/interface/lonmenu.pm:1.567	Wed Nov 26 19:43:20 2025
+++ loncom/interface/lonmenu.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.567 2025/11/26 19:43:20 raeburn Exp $
+# $Id: lonmenu.pm,v 1.568 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2000,7 +2000,7 @@
                                 url => 'javascript:'.$act,
                                 permission => 'F',
                                 icon => $img,
-                                alttext => $alttext,
+                                alttext => '',
                                 linktitle => '',
                               };
     } else {
Index: loncom/interface/lonmodifycourse.pm
diff -u loncom/interface/lonmodifycourse.pm:1.108 loncom/interface/lonmodifycourse.pm:1.109
--- loncom/interface/lonmodifycourse.pm:1.108	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonmodifycourse.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # handler for DC-only modifiable course settings
 #
-# $Id: lonmodifycourse.pm,v 1.108 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonmodifycourse.pm,v 1.109 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -520,6 +520,7 @@
                 permission => $permission->{'setparms'},
                 #help => '',
                 icon => 'crsconf.png',
+                alttext => '',
                 linktitle => ''
             },
             {
@@ -528,6 +529,7 @@
                 permission => $permission->{'setquota'},
                 #help => '',
                 icon => 'groupportfolioquota.png',
+                alttext => '',
                 linktitle => ''
             },
             {
@@ -536,6 +538,7 @@
                 permission => $permission->{'setanon'},
                 #help => '',
                 icon => 'anonsurveythreshold.png',
+                alttext => '',
                 linktitle => ''
             },
             {
@@ -544,6 +547,7 @@
                 permission => (($permission->{'catsettings'}) && (@additional_params > 0)),
                 #help => '',
                 icon => 'ccatconf.png',
+                alttext => '',
                 linktitle => ''
             },
             {
@@ -552,11 +556,13 @@
                 permission => ($permission->{'viewparms'} && ($type ne 'Community') && ($type ne 'Placement')),
                 #help => '',
                 icon => 'roles.png',
+                alttext => '',
                 linktitle => ''
             },
             {
                 linktext => $linktext{'selfenroll'},
                 icon => 'self_enroll.png',
+                alttext => '', 
                 #help => 'Course_Self_Enrollment',
                 url => &phaseurl('selfenroll'),
                 permission => &manage_selfenrollment($cdom,$cnum,$type,$coursehash,$permission),
@@ -565,6 +571,7 @@
             {
                 linktext => $linktext{'setpostsubmit'},
                 icon => 'emblem-readonly.png',
+                alttext => '',
                 #help => '',
                 url => &phaseurl('setpostsubmit'),
                 permission => $permission->{'setpostsubmit'},
@@ -573,6 +580,7 @@
             {
                 linktext => $linktext{'setltiauth'},
                 icon => 'system-lock-screen.png',
+                alttext => '',
                 #help => '',
                 url => &phaseurl('setltiauth'),
                 permission => $permission->{'setltiauth'},
@@ -581,6 +589,7 @@
             {
                 linktext => $linktext{'setexttool'},
                 icon => 'exttool.png',
+                alttext => '',
                 #help => '',
                 url => &phaseurl('setexttool'),
                 permission => $permission->{'setexttool'},
@@ -589,6 +598,7 @@
             {
                 linktext => $linktext{'setcrsauthor'},
                 icon => 'crsauthor.png',
+                alttext => '',
                 #help => '',
                 url => &phaseurl('setcrsauthor'),
                 permission => $permission->{'setcrsauthor'},
@@ -597,6 +607,7 @@
             {
                 linktext => $linktext{'setcrseditors'},
                 icon => 'crseditors.png',
+                alttext => '',
                 #help => '',
                 url => &phaseurl('setcrseditors'),
                 permission => $permission->{'setcrseditors'},
Index: loncom/interface/lonnotify.pm
diff -u loncom/interface/lonnotify.pm:1.45 loncom/interface/lonnotify.pm:1.46
--- loncom/interface/lonnotify.pm:1.45	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonnotify.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Sending messages
 #
-# $Id: lonnotify.pm,v 1.45 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonnotify.pm,v 1.46 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -153,6 +153,7 @@
                 permission => 1,
                 #help => '',
                 icon => 'mail-reply-all.png',
+                alttext => '',
                 linktitle => 'Send a new e-mail to selected users from this domain'
             },
             {   linktext => 'Display sent e-mails',
@@ -160,6 +161,7 @@
                 permission => 1,
                 #help => '',
                 icon => 'messalog.png',
+                alttext => '',
                 linktitle => 'Display e-mail sent by Domain Coordinators in this domain'
             },
         ]
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.631 loncom/interface/lonparmset.pm:1.632
--- loncom/interface/lonparmset.pm:1.631	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonparmset.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.631 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonparmset.pm,v 1.632 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -7165,30 +7165,35 @@
             permission => $parm_permission->{'setrestrictmeta'},
             linktitle => "Restrict metadata for this $lc_crstype." ,
             icon =>'contact-new.png',
+            alttext => '',
             },
           { linktext => 'Reset Student Access Times',
             url => '/adm/helper/resettimes.helper',
             permission => $mgr,
             linktitle => "Reset access times for folders/maps, resources or the $lc_crstype.",
             icon => 'start-here.png',
+            alttext => '',
             },
           { linktext => "Show Start Times for Students' Quiz/Exam Timers",
             url => '/adm/accesstimes',
             permission => ($vgr || $mgr),
             linktitle => "Display when timer was started by students for folders/maps, resources or the $lc_crstype.",
             icon => 'accesstimes.png',
+            alttext => '',
             },
           { linktext => 'Blocking Communication/Resource Access',
             url => '/adm/setblock',
             permission => ($vcb || $dcm),
             linktitle => 'Configure blocking of communication/collaboration and access to resources during an exam',
             icon => 'comblock.png',
+            alttext => '',
             },
           { linktext => 'Set Parameter Setting Default Actions',
             url => '/adm/parmset?action=setdefaults',
             permission => $parm_permission->{'setdefaults'},
             linktitle =>'Set default actions for parameters.'  ,
             icon => 'folder-new.png'  ,
+            alttext => '',
             }]},
       { categorytitle => 'New and Existing Parameter Settings for Resources',
         items => [
@@ -7197,6 +7202,7 @@
             permission => $parm_permission->{'helper'},
             linktitle =>'Set/Modify resource parameters in helper mode.'  ,
             icon => 'dialog-information.png'  ,
+            alttext => '',
             #help => 'Parameter_Helper',
             },
           { linktext => $linktext{'newoverview'},
@@ -7204,6 +7210,7 @@
             permission => $parm_permission->{'newoverview'},
             linktitle => $linktitle{'newoverview'},
             icon => 'edit-find.png',
+            alttext => '',
             #help => 'Parameter_Overview',
             },
           { linktext => $linktext{'settable'},
@@ -7211,6 +7218,7 @@
             permission => $parm_permission->{'settable'},
             linktitle => $linktitle{'settable'},
             icon => 'edit-copy.png',
+            alttext => '',
             #help => 'Table_Mode',
             }]},
            { categorytitle => 'Existing Parameter Settings for Resources',
@@ -7220,6 +7228,7 @@
             permission => $parm_permission->{'setoverview'},
             linktitle => $linktitle{'setoverview'},
             icon => 'preferences-desktop-wallpaper.png',
+            alttext => '',
             #help => 'Parameter_Overview',
             },
           { linktext => 'Change Log',
@@ -7227,6 +7236,7 @@
             permission => $parm_permission->{'parameterchangelog'},
             linktitle =>"View parameter and $lc_crstype blog posting/user notification change log."  ,
             icon => 'document-properties.png',
+            alttext => '',
             }]}
           );
     $r->print(&Apache::lonhtmlcommon::generate_menu(@menu));
Index: loncom/interface/lonpreferences.pm
diff -u loncom/interface/lonpreferences.pm:1.250 loncom/interface/lonpreferences.pm:1.251
--- loncom/interface/lonpreferences.pm:1.250	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonpreferences.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.250 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.251 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2684,7 +2684,7 @@
 		permission => $permissions{'aboutme'},
 		#help => 'Prefs_About_Me',
 		icon => 'system-users.png',
-                alttext => 'About Me Icon',
+                alttext => '',
 		linktitle => 'Edit information about yourself that should be displayed on your public profile.'
 	    },
 	    {	linktext => 'Screen Name',
@@ -2692,7 +2692,7 @@
 		permission => 'F',
 		#help => 'Prefs_Screen_Name_Nickname',
 		icon => 'preferences-desktop-font.png',
-                alttext => 'Nickname Icon',
+                alttext => '',
 		linktitle => 'Change the name that is displayed in your posts.'
 	    },
 		]
@@ -2704,7 +2704,7 @@
 		permission => 'F',
 		#help => 'Prefs_Language',
 		icon => 'preferences-desktop-locale.png',
-                alttext => 'Language Icon',
+                alttext => '',
 		linktitle => 'Choose the default language for this user.'
 	    },
 	    {	linktext => $role.' Page',
@@ -2712,7 +2712,7 @@
 		permission => 'F',
 		#help => '',
 		icon => 'role_hotlist.png',
-                alttext => 'Switch Role Icon',
+                alttext => '',
 		linktitle => 'Configure the roles hotlist.'
 	    },
 	    {	linktext => 'Math display settings',
@@ -2720,7 +2720,7 @@
 		permission => 'F',
 		#help => '',
 		icon => 'dismath.png',
-                alttext => 'Math Icon',
+                alttext => '',
 		linktitle => 'Change how math is displayed.'
 	    },
             {
@@ -2729,7 +2729,7 @@
                 permission => $permissions{'timezone'},
                 #help => '',
                 icon => 'timezone.png',
-                alttext => 'Clock Icon',
+                alttext => '',
                 linktitle => 'Set your time zone.',
              }
 		]
@@ -2741,7 +2741,7 @@
 		permission => 'F',
 		#help => 'Change_Colors',
 		icon => 'preferences-desktop-theme.png',
-                alttext => 'Colors Icon',
+                alttext => '',
 		linktitle => 'Change LON-CAPA default colors.'
 	    },
             {   linktext => 'Menu Display',
@@ -2749,7 +2749,7 @@
                 permission => 'F',
                 #help => '',
                 icon => 'preferences-system-windows.png',
-                alttext => 'Menus Icon',
+                alttext => '',
                 linktitle => 'Change whether the menus are displayed with icons or icons and text.'
             }
 		]
@@ -2761,7 +2761,7 @@
 		permission => 'F',
 		#help => 'Prefs_Messages',
 		icon => 'mail-reply-all.png',
-                alttext => 'Notifications Icon',
+                alttext => '',
 		linktitle => 'Change messageforwarding or notifications settings.'
 	    },
 	    {	linktext => 'Discussion Display',
@@ -2769,7 +2769,7 @@
 		permission => 'F',
 		#help => 'Change_Discussion_Display',
 		icon => 'chat.png',
-                alttext => 'Discussions Icon',
+                alttext => '',
 		linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
 	    },
 		]
@@ -2784,7 +2784,7 @@
                   url => '/adm/preferences?action=authorsettings',
                   permission => 'F',
                   icon => 'codemirror.png',
-                  alttext => 'Coding Icon',
+                  alttext => '',
                   linktitle => 'Settings for your authoring space.',
              },
                   ]
@@ -2797,7 +2797,7 @@
         permission => 'F',
         #help => '',
         icon => 'system-lock-screen.png',
-        alttext => 'Lock Icon',
+        alttext => '',
         linktitle => 'Restrict domain coordinator access.',
         });
     }
@@ -2810,7 +2810,7 @@
 		permission => 'F',
 		#help => '',
 		icon => 'network-workgroup.png',
-                alttext => 'Clicker Icon',
+                alttext => '',
 		linktitle => 'Register your clicker.'
 	    },
 		]
@@ -2824,7 +2824,7 @@
 	permission => 'F',
 	#help => 'Change_Password',
 	icon => 'emblem-readonly.png',
-        alttext => 'Secure Icon',
+        alttext => '',
 	linktitle => 'Change your password.',
 	});
     }
@@ -2836,7 +2836,7 @@
         permission => 'F',
         #help => '',
         icon => 'system-lock-screen.png',
-        alttext => 'Screen Lock Icon',
+        alttext => '',
         linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
         });
     }
@@ -2850,7 +2850,7 @@
 	permission => 'F',
 	#help => '',
 	icon => 'course_ini.png',
-        alttext => 'Course Launch Icon',
+        alttext => '',
 	linktitle => 'Set the default page to be displayed when you select a course role.',
 	});
 
@@ -2863,7 +2863,7 @@
 	permission => 'F',
 	#help => '',
 	icon => 'blog.png',
-        alttext => 'Debugging Icon',
+        alttext => '',
 	linktitle => 'Toggle Debug Messages.',
 	});
     }
Index: loncom/interface/lonstatistics.pm
diff -u loncom/interface/lonstatistics.pm:1.165 loncom/interface/lonstatistics.pm:1.166
--- loncom/interface/lonstatistics.pm:1.165	Tue Nov 10 19:28:32 2020
+++ loncom/interface/lonstatistics.pm	Sat Dec 13 13:33:33 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.165 2020/11/10 19:28:32 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.166 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -762,12 +762,14 @@
             {url => '/adm/statistics?reportSelected=problem_statistics',
 			 permission => 'F',
              icon => 'document-open.png',
+             alttext => '',
              linktext => ('Overall Problem Statistics'),
              linktitle => ('Student performance statistics on all problems.')},
        
             {url => '/adm/statistics?reportSelected=problem_analysis',
 			 permission => 'F',
              icon => 'prob_ana.png',
+             alttext => '',
              linktext => ('Detailed Problem Analysis'),
              linktitle => ('Detailed statistics and graphs of student performance on problems.')},
          ]},
@@ -776,12 +778,14 @@
             {url => '/adm/statistics?reportSelected=submissiontime_analysis',
 			 permission => 'F',
              icon => 'subtimpl.png',
+             alttext => '',
              linktext => ('Submission Time Plots'),
              linktitle => ('Display and analysis of submission times on assessments.')},
       
             {url => '/adm/statistics?reportSelected=correct_problems_plot',
 			 permission => 'F',
              icon => 'coprplot.png',
+             alttext => '',
              linktext => ('Correct Problems Plot'),
              linktitle => ('Display a histogram of student performance in the course.')},
          ]},
@@ -790,13 +794,15 @@
             {url => '/adm/statistics?reportSelected=student_submission_reports',
 			 permission => 'F',
              icon => 'edit-copy.png',
+             alttext => '',
              linktext => ('Student Submission Reports'),
              linktitle => ('Prepare reports of student submissions.')},
                     
             {url => '/adm/statistics?reportSelected=survey_reports',
 			 permission => 'F',
              icon => 'survey_rep.png',
-			 linktext => ('Survey Reports'),
+             alttext => '',
+             linktext => ('Survey Reports'),
              linktitle => ('Prepare reports on survey results.')},
          ]});
     
Index: loncom/homework/grades.pm
diff -u loncom/homework/grades.pm:1.828 loncom/homework/grades.pm:1.829
--- loncom/homework/grades.pm:1.828	Tue Oct  7 20:18:06 2025
+++ loncom/homework/grades.pm	Sat Dec 13 13:33:33 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Grading handler
 #
-# $Id: grades.pm,v 1.828 2025/10/07 20:18:06 raeburn Exp $
+# $Id: grades.pm,v 1.829 2025/12/13 13:33:33 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -12353,12 +12353,14 @@
                     		url => $url1a,
                     		permission => $permissions{'either'},
                     		icon => 'grade_students.png',
+                                alttext => '',
                     		linktitle => 'Grade current resource for a selection of students.'
                         }, 
                         {       linktext => 'Grade ungraded submissions',
                                 url => $url1b,
                                 permission => $permissions{'either'},
                                 icon => 'ungrade_sub.png',
+                                alttext => '',
                                 linktitle => 'Grade all submissions that have not been graded yet.'
                         },
 
@@ -12366,24 +12368,28 @@
                                 url => $url1c,
                                 permission => $permissions{'either'},
                                 icon => 'grading_table.png',
+                                alttext => '',
                                 linktitle => 'Grade current resource for all students.'
                         },
                         {       linktext => 'Grade page/folder for one student',
                                 url => $url1d,
                                 permission => $permissions{'either'},
                                 icon => 'grade_PageFolder.png',
+                                alttext => '',
                                 linktitle => 'Grade all resources in current page/sequence/folder for one student.'
                         },
                         {       linktext => 'Download submissions',
                                 url => $url1e,
                                 permission => $permissions{'either'},
                                 icon => 'download_sub.png',
+                                alttext => '',
                                 linktitle => 'Download all students submissions.'
                         },
                         {       linktext => 'Fractional credit for late submission',
                                 url => $url1f,
                                 permission => $permissions{'either'},
                                 icon => 'updategrace.png',
+                                alttext => '',
                                 linktitle => 'Display fractional credit for late submission with possible update if grace parameter has been changed since submission',
                         }
                     ]},
@@ -12394,24 +12400,28 @@
                     		url => $url2,
                     		permission => $permissions{'mgr'},
                     		icon => 'uploadscores.png',
+                                alttext => '',
                     		linktitle => 'Specify a file containing the class scores for current resource.'
                 	    },
                 	    {	linktext => 'Process Clicker',
                     		url => $url3,
                     		permission => $permissions{'mgr'},
                     		icon => 'addClickerInfoFile.png',
+                                alttext => '',
                     		linktitle => 'Specify a file containing the clicker information for this resource.'
                 	    },
                 	    {	linktext => 'Grade/Manage/Review Bubblesheets',
                     		url => $url4,
                     		permission => $permissions{'mgr'},
                     		icon => 'bubblesheet.png',
+                                alttext => '',
                     		linktitle => 'Grade bubblesheet exams, upload/download bubblesheet data files, and review previously graded bubblesheet exams.'
                 	    },
                             {   linktext => 'Verify Receipt Number',
                                 url => $url5,
                                 permission => $permissions{'either'},
                                 icon => 'receipt_number.png',
+                                alttext => '',
                                 linktitle => 'Verify a system-generated receipt number for correct problem solution.'
                             }
 
@@ -12428,6 +12438,7 @@
                     url => $url6,
                     permission => $permissions{'either'},
                     icon => 'passback.png',
+                    alttext => '',
                     linktitle => 'Passback scores to launcher CMS for resources accessed via LTI-mediated deep-linking',
                   });
     }

From raeburn at source.lon-capa.org  Sun Dec 14 20:23:05 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 01:23:05 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface portfolio.pm
Message-ID: <cvsraeburn1765761785@cvsserver>

raeburn		Mon Dec 15 01:23:05 2025 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - Roles-based conditions for existing Course/Community-based conditional 
    access to a portfolio file can be updated. 
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.272 loncom/interface/portfolio.pm:1.273
--- loncom/interface/portfolio.pm:1.272	Sat Dec 13 05:56:01 2025
+++ loncom/interface/portfolio.pm	Mon Dec 15 01:23:05 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.272 2025/12/13 05:56:01 raeburn Exp $
+# $Id: portfolio.pm,v 1.273 2025/12/15 01:23:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1278,6 +1278,9 @@
 	    &Apache::loncommon::get_env_multiple('form.preserve_role_'.$num);
 	if (@delete_role_ids) {
 	    foreach my $id (@preserves) {
+                if (($id ne '') && (grep(/^$id$/, at delete_role_ids)) {
+                    next;
+                }
 		if (grep {$_ = $id} (@delete_role_ids)) {
 		    next;
 		}
@@ -1288,13 +1291,13 @@
 	}
 
 	my $next_id = $env{'form.add_role_'.$num};
-	if ($next_id) {
+	if ($next_id ne '') {
 	    push(@role_ids,$next_id);
 	}
 
         foreach my $id (@role_ids) {
             my (@roles, at accesses, at sections, at groups);
-            if (($id == $next_id) && ($chg eq 'update')) {
+            if (($next_id ne '') && ($id == $next_id) && ($chg eq 'update')) {
                 @roles    = split(/,/,$env{'form.role_'.$num.'_'.$next_id});
                 @accesses = split(/,/,$env{'form.access_'.$num.'_'.$next_id});
                 @sections = split(/,/,$env{'form.section_'.$num.'_'.$next_id});



From raeburn at source.lon-capa.org  Sun Dec 14 21:15:29 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 02:15:29 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface portfolio.pm
Message-ID: <cvsraeburn1765764929@cvsserver>

raeburn		Mon Dec 15 02:15:29 2025 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - Fix typo and remove lines no longer needed after 1.273 changes.
    Add closing form tag for pop-up role/section/group selection window. 
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.273 loncom/interface/portfolio.pm:1.274
--- loncom/interface/portfolio.pm:1.273	Mon Dec 15 01:23:05 2025
+++ loncom/interface/portfolio.pm	Mon Dec 15 02:15:29 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.273 2025/12/15 01:23:05 raeburn Exp $
+# $Id: portfolio.pm,v 1.274 2025/12/15 02:15:29 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1278,12 +1278,9 @@
 	    &Apache::loncommon::get_env_multiple('form.preserve_role_'.$num);
 	if (@delete_role_ids) {
 	    foreach my $id (@preserves) {
-                if (($id ne '') && (grep(/^$id$/, at delete_role_ids)) {
+                if (($id ne '') && (grep(/^$id$/, at delete_role_ids))) {
                     next;
                 }
-		if (grep {$_ = $id} (@delete_role_ids)) {
-		    next;
-		}
 		push(@role_ids,$id); 
 	    }
 	} else {
@@ -1979,6 +1976,7 @@
        .'</tr><tr>'.$role_selects.'</tr>'
        .'</table><br />'
        .'<input type="button" name="rolepickbutton" value="'.&mt('Save').'" onclick="setRoles()" />'
+       .'</form>'
     );
     return;
 }



From raeburn at source.lon-capa.org  Sun Dec 14 21:17:10 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 02:17:10 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface portfolio.pm
Message-ID: <cvsraeburn1765765030@cvsserver>

raeburn		Mon Dec 15 02:17:10 2025 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - WCAG 2 compliance.
  
  
-------------- next part --------------
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.274 loncom/interface/portfolio.pm:1.275
--- loncom/interface/portfolio.pm:1.274	Mon Dec 15 02:15:29 2025
+++ loncom/interface/portfolio.pm	Mon Dec 15 02:17:10 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.274 2025/12/15 02:15:29 raeburn Exp $
+# $Id: portfolio.pm,v 1.275 2025/12/15 02:17:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -93,6 +93,8 @@
                    'createdir'       => 'Create Subdirectory',
                    'createdir_label' => 'Create subdirectory in current directory',
                    'parse'           => 'Upload embedded images/multimedia/css/linked files if HTML file',
+                   'subdir'          => 'Subdirectory name',
+                   'file'            => 'Choose a file',
                );
         my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
 	my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
@@ -121,7 +123,7 @@
                  .'<fieldset>'
                  .'<legend>'.$lt{'upload_label'}.'</legend>'
                  .$groupitem 
-                 .'<input name="uploaddoc" type="file" class="LC_flUpload" />'
+                 .'<input name="uploaddoc" type="file" class="LC_flUpload" aria-label="'.$lt{'file'}.'" />'
                  .'<input type="hidden" id="LC_free_space" value="'.$free_space.'" />'
                  .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
                  .'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
@@ -140,7 +142,7 @@
                  .'<form method="post" action="'.$escuri.'">'
                  .'<fieldset>'
                  .'<legend>'.$lt{'createdir_label'}.'</legend>'
-                 .'<input name="newdir" type="text" />'.$groupitem
+                 .'<input name="newdir" type="text" aria-label="'.$lt{'subdir'}.'" />'.$groupitem
                  .'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
                  .'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
                  .'<input type="hidden" name="symb" value="'.$env{"form.symb"}.'" />'
@@ -186,7 +188,8 @@
     $r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&amp;fieldname='.$env{"form.fieldname"}.'&amp;symb='.$env{'form.symb'}.&group_args());
     $r->print('">'.
 	      &Apache::lonhtmlcommon::select_recent($namespace,'currentpath',
-						    'this.form.submit();'));
+                                                    'this.form.submit();',
+                                                    &mt('Select recently visited directory')));
     $r->print("</form>");
 }
 
@@ -250,7 +253,7 @@
     $r->print('<td>'.$size.'</td>');
     $r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
     if ($select_mode ne 'true') {
-        $r->print('<td class="'.$css_class.'">&nbsp;&nbsp;</td>'); # Display status
+        $r->print('<td class="'.$css_class.'" aria-hidden="true">&nbsp;&nbsp;</td>'); # Display status
         $r->print('<td><span class="LC_nobreak">'
                  .&mt($curr_access).'&nbsp;&nbsp;&nbsp;'
        );
@@ -260,7 +263,7 @@
         );
 	$r->print(&make_anchor($url, \%anchor_fields, $access_admin_text).'</span></td>');
     } else {
-        $r->print('<td class="'.$css_class.'">&nbsp;&nbsp;</td>'); # Display status
+        $r->print('<td class="'.$css_class.'" aria-hidden="true">&nbsp;&nbsp;</td>'); # Display status
     }
     $r->print(&Apache::loncommon::end_data_table_row().$/);
 }
@@ -297,12 +300,12 @@
         $r->print(&Apache::loncommon::start_data_table()
                  .&Apache::loncommon::start_data_table_header_row()
                  .'<th>'.&mt('Select').'</th>'
-                 .'<th>&nbsp;</th>'
-                 .'<th>&nbsp;</th>'
+                 .'<th><span class="LC_visually_hidden">'.&mt('File type').'</span></th>'
+                 .'<th><span class="LC_visually_hidden">'.&mt('Multiple versions?').'</span></th>'
                  .'<th>'.&mt('Name').'</th>'
                  .'<th>'.&mt('Size').'</th>'
                  .'<th>'.&mt('Last Modified').'</th>'
-                 .'<th>&nbsp;</th>'
+                 .'<th aria-hidden="true">'.&mt('Tag').'</th>'
                  .&Apache::loncommon::end_data_table_header_row()
         );
     } else {
@@ -329,12 +332,12 @@
         $r->print(&Apache::loncommon::start_data_table()
                  .&Apache::loncommon::start_data_table_header_row()
                  .'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>'
-                 .'<th>&nbsp;</th>'
-                 .'<th>&nbsp;</th>'
+                 .'<th><span class="LC_visually_hidden">'.&mt('File type').'</span></th>'
+                 .'<th><span class="LC_visually_hidden">'.&mt('Multiple versions?').'</span></th>'
                  .'<th>'.&mt('Name').&Apache::loncommon::help_open_topic('Portfolio OpenFile').'</th>'
                  .'<th>'.&mt('Size').'</th>'
                  .'<th>'.&mt('Last Modified').'</th>'
-                 .'<th>&nbsp;</th>'
+                 .'<th aria-hidden="true">'.&mt('Tag').'</th>'
                  .'<th>'.&mt('Current Access Status').$acl_helplink.'</th>'
                  .&Apache::loncommon::end_data_table_header_row());
     }
@@ -461,7 +464,7 @@
 		        if ($$checked_files{$filename} eq 'selected') {
                             $line.=' checked="checked" ';
                         }
-		        $line.=' /></td>';
+		        $line.=' aria-label="'.&mt('Include file for assignment').'" /></td>';
                     } else {
                         $line = '<td>&nbsp;</td>';
                         $zerobyte ++;
@@ -480,10 +483,10 @@
                             $line .= '<td>';
                         }
                         if ($can_delete) {
-                            $line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';
+                            $line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" aria-label="'.&mt('Select file for deletion').'" />';
                         }
                         if ($can_modify) {
-                            my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'" title="'.&mt('Metadata').'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.png').'" />';
+                            my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'" title="'.&mt('Set/view metadata').'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.png').'" />';
                             my %anchor_fields = (
                                 'rename' => $filename,
                                 currentpath => $current_path
@@ -600,15 +603,18 @@
                          'cancel'   => &mt('Cancel'),
                        };
     }
-    $r->print('<p><input type="submit" value="'.$button_text->{'continue'}.'" />');
+    $r->print('<div><p><input type="submit" value="'.$button_text->{'continue'}.'" />');
     $r->print(&group_form_data().'</p></form>');
-    $r->print('<form action="'.$url.'" method="post">
-               <p>
-              <input type="hidden" name="currentpath" value="'.
-	      $env{'form.currentpath'}.'" />'.
-	      &group_form_data());
-    $r->print("\n".'   <input type="submit" value="'.$button_text->{'cancel'}.'" />
-               </p></form>'); 
+    if ($button_text->{'cancel'} ne '') {
+        $r->print('<form action="'.$url.'" method="post">
+                  <p>
+                  <input type="hidden" name="currentpath" value="'.
+                  $env{'form.currentpath'}.'" />'.
+                  &group_form_data());
+        $r->print("\n".'   <input type="submit" value="'.$button_text->{'cancel'}.'" />
+                   </p></form>');
+    }
+    $r->print('</div>');
 }
 
 sub display_file {
@@ -916,7 +922,7 @@
         my $uhome = &Apache::lonnet::homeserver($uname,$udom);
         my $prefix = &Apache::lonnet::url_prefix($r,$udom,$uhome,'web');
         $header =
-            '<h2>'
+            '<h2 class="LC_heading_2">'
             .&mt('Allowing others to retrieve file: [_1]'
                  ,'<span class="LC_filename">'
                  .$port_path.$env{'form.currentpath'}.$env{'form.access'}
@@ -938,22 +944,17 @@
             $info .= &mt("Users with course editing rights may add a 'Group Portfolio' item using the Course Editor (Collaboration tab), to provide access to viewable group portfolio files.").'<br />';
         }
     } else {
-        $header = '<h3>'.&mt('Conditional access controls for file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>'.
+        $header = '<h2 class="LC_heading_2">'.&mt('Conditional access controls for file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h2>'.
                   &explain_conditionals().'<br />';
     }
     if ($can_setacl) {
         &open_form($r,$url);
         $r->print($header.$info);
-	$r->print('<br />'.&Apache::loncommon::help_open_topic('Portfolio ShareFile SetAccess', &mt('Help on setting up share access')));
+	$r->print('<br /><div>'.&Apache::loncommon::help_open_topic('Portfolio ShareFile SetAccess', &mt('Help on setting up share access')));
 	$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile ChangeSetting', &mt('Help on changing settings')));
-	$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile StopAccess', &mt('Help on removing share access')));
+	$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile StopAccess', &mt('Help on removing share access')).'</div>');
         &access_setting_table($r,$url,$file_name,$access_controls{$file_name},
                               $action);
-        my $button_text = {
-                        'continue' => &mt('Proceed'),
-                        'cancel' => &mt('Return to directory'),
-                      };
-        &close_form($r,$url,$button_text);
     } elsif ($can_viewacl) {
         $r->print($header);
         if ($aclcount) {  
@@ -1263,8 +1264,8 @@
 	time => {
 	    start => $start,
 	    end   => $end
-	    },
-	    };
+        },
+    };
 		
     if ($scope eq 'guest') {	
         $record->{'password'} = $env{'form.password'};
@@ -1291,7 +1292,6 @@
 	if ($next_id ne '') {
 	    push(@role_ids,$next_id);
 	}
-
         foreach my $id (@role_ids) {
             my (@roles, at accesses, at sections, at groups);
             if (($next_id ne '') && ($id == $next_id) && ($chg eq 'update')) {
@@ -1401,22 +1401,21 @@
         }
         $acl_count{$scope} ++;
     }
-    $r->print('<table border="0"><tr><td valign="top">');
     if ($action eq 'chgaccess') {
         &standard_settings($r,$now,$then,$url,$filename,\%acl_count,\%start,
                            \%end,$public,$publicnum,$publictext,$guest,$guestnum,
                            $guesttext,$access_controls,%conditionals);
     } else {
-        &condition_setting($r,$access_controls,$now,$then,\%acl_count,
+        &condition_setting($r,$url,$access_controls,$now,$then,\%acl_count,
                            \@domains,\@users,\@courses,\@ips);
     }
-    $r->print('</td></tr></table>');
 }
 
 sub standard_settings {
     my ($r,$now,$then,$url,$filename,$acl_count,$start,$end,$public,$publicnum,
       $publictext,$guest,$guestnum,$guesttext,$access_controls,%conditionals)=@_;
-    $r->print('<h3>'.&mt('Public access: [_1]',&mt($publictext)).'</h3>');
+    $r->print('<div class="LC_floatleft" style="vertical-align: top;">'.
+              '<h3 class="LC_heading_3">'.&mt('Public access: [_1]',&mt($publictext)).'</h3>');
     $r->print(&Apache::loncommon::start_data_table());
     $r->print(&Apache::loncommon::start_data_table_header_row());
     $r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').'</th>');
@@ -1431,8 +1430,8 @@
     }
     $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::end_data_table());
-    $r->print('</td><td width="40">&nbsp;</td><td valign="top">');
-    $r->print('<h3>'.&mt('Passphrase-protected access: [_1]',&mt($guesttext)).'</h3>');
+    $r->print('</div><div class="LC_floatleft" style="vertical-align: top;">');
+    $r->print('<h3 class="LC_heading_3">'.&mt('Passphrase-protected access: [_1]',&mt($guesttext)).'</h3>');
     $r->print(&Apache::loncommon::start_data_table());
     $r->print(&Apache::loncommon::start_data_table_header_row());
     $r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').
@@ -1449,11 +1448,15 @@
                   &dateboxes('1',$now,$then).'</td>');
     }
     $r->print('<td><input type="text" size="15" name="password" value="'.
-              $passwd.'" /></td>');
+              $passwd.'" aria-label="'.&mt('passphrase').'" /></td>');
     $r->print(&Apache::loncommon::end_data_table_row());
     $r->print(&Apache::loncommon::end_data_table());
-    $r->print('</td></tr><tr><td colspan="3">&nbsp;</td></tr>'.
-              '<tr><td colspan="3" valign="top">');
+    $r->print('</div>'.
+              '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n");
+    my $button_text = {
+                        'continue' => &mt('Proceed'),
+                      };
+    &close_form($r,$url,$button_text);
     my $numconditionals = 0;
     my $conditionstext;
     my %cond_status;
@@ -1478,7 +1481,9 @@
             'action' => 'chgconditions',
             'currentpath' => $env{'form.currentpath'},
         );
-    $r->print('<h3>'.&mt('Conditional access: [_1]',&mt($conditionstext)).'</h3>');
+    $r->print('<div style="padding:0;clear:both;margin:0;border:0"></div>'.
+              '<div class="LC_floatleft" style="vertical-align: top;">'.
+              '<h3 class="LC_heading_3">'.&mt('Conditional access: [_1]',&mt($conditionstext)).'</h3>');
     if ($numconditionals > 0) {
         my $count = 1;
         my $chg = 'none';
@@ -1493,19 +1498,25 @@
     } else {
         $r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt("based on domain, username, course/community affiliation or user's IP address."));
     }
+    $r->print('</div>'.
+              '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n");
 }
 
 sub condition_setting {
-    my ($r,$access_controls,$now,$then,$acl_count,$domains,$users,$courses,$ips) = @_;
-    $r->print('<tr><td valign="top">');
+    my ($r,$url,$access_controls,$now,$then,$acl_count,$domains,$users,$courses,$ips) = @_;
+    $r->print('<div class="LC_floatleft" style="vertical-align: top;">');
     &access_element($r,'domains',$acl_count,$domains,$access_controls,$now,$then);
-    $r->print('</td><td>&nbsp;</td><td valign="top">');
-    &access_element($r,'users',$acl_count,$users,$access_controls,$now,$then);
-    $r->print('</td></tr><tr><td colspan="3"></td></tr><tr><td valign="top">');
+    $r->print('<p />');
     &access_element($r,'course',$acl_count,$courses,$access_controls,$now,$then);
-    $r->print('</td><td>&nbsp;</td><td valign="top">');
+    $r->print('</div><div class="LC_floatleft" style="vertical-align: top;">');
+    &access_element($r,'users',$acl_count,$users,$access_controls,$now,$then);
+    $r->print('<p />');
     &access_element($r,'userip',$acl_count,$ips,$access_controls,$now,$then);
-    $r->print('</td></tr></table>');
+    $r->print('</div><div style="padding:0;clear:both;margin:0;border:0"></div>');
+    my $button_text = {
+                        'continue' => &mt('Proceed'),
+                      };
+    &close_form($r,$url,$button_text);
 }
 
 sub acl_status {
@@ -1527,7 +1538,7 @@
         course  => 'Course/Community',
         userip  => 'IP',
     );
-    $r->print('<h3>'.&mt($typetext{$type}.'-based conditional access:').' ');
+    $r->print('<h3 class="LC_heading_3">'.&mt($typetext{$type}.'-based conditional access:').' ');
     if ($$acl_count{$type}) {
         $r->print(&mt('[quant,_1,condition]',$$acl_count{$type}));
     } else {
@@ -1672,7 +1683,8 @@
         }
         $r->print('<td><input type="hidden" name="crsdom_'.$num.'" value="'.$content->{'domain'}.'" /><input type="hidden" name="crsnum_'.$num.'" value="'.$content->{'number'}.'" />'.$course_description{'description'}.'</td>');
     } elsif ($status eq 'new') {
-        $r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,$num.'_1',undef,$showtype).'&nbsp;&nbsp;<input type="text" name="description_'.$num.'" size="30" /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');
+        my $labeltext = &mt('new');
+        $r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,$num.'_1',undef,$showtype).'&nbsp;&nbsp;<input type="text" name="description_'.$num.'" size="30" aria-label="'.$labeltext.'" onfocus="this.blur();opencrsbrowser('."'portform','crsnum_".$num."','crsdom_".$num."','description_".$num."','".$num."_1','','$showtype'".')"; /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');
     }
     $r->print('<td>'.&dateboxes($num,$start,$end));
     my $newrole_id = 1;
@@ -1695,11 +1707,11 @@
             }
             $r->print('</table>');
         }
-        $r->print('<br />'.&mt('Add a roles-based condition').
+        $r->print('<br /><label>'.&mt('Add a roles-based condition').
                   '&nbsp;<input type="checkbox" name="add_role_'.
                   $num.'" onclick="javascript:setRoleOptions('."'$num',
                   '$max_id','$content->{'domain'}','$content->{'number'}',
-                  '$showtype'".')" value="" />');
+                  '$showtype'".')" value="" /></label>');
         $newrole_id = $max_id;
     } else {
         $r->print('<input type="hidden" name="add_role_'.$num.'" value="" />');
@@ -1723,7 +1735,8 @@
     my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;
     my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
                                                     'domains');
-    my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple">'.
+    my $labeltext = &mt('Domain(s) with conditional access');
+    my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple" aria-label="'.$labeltext.'">'.
                      ' <option value="">'.&mt('Please select').'</option>';
     if ($status eq 'old') {
         my $content =  $$access_controls{$item};
@@ -1755,7 +1768,8 @@
         my $content = $$access_controls{$item};
         $curr_user_list = &sort_users($content->{'users'});
     }
-    $r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt("Format for users' username:domain information:").'<br /><tt>sparty:msu,illini:uiuc  ... etc.</tt><br /><textarea name="users_'.$num.'" cols="30"  rows="5">'.$curr_user_list.'</textarea></td><td>'.&dateboxes($num,$start,$end).'</td>');
+    my $labeltext = &mt('User(s) with conditional access');
+    $r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt("Format for users' username:domain information:").'<br /><tt>sparty:msu,illini:uiuc  ... etc.</tt><br /><textarea name="users_'.$num.'" cols="30"  rows="5" aria-label="'.$labeltext.'">'.$curr_user_list.'</textarea></td><td>'.&dateboxes($num,$start,$end).'</td>');
 }
 
 sub ips_row {
@@ -1767,11 +1781,12 @@
         my $content = $$access_controls{$item};
         $curr_ips_list = &sort_ips($content->{'userip'});
     }
+    my $labeltext = &mt('IP addresess(s) with conditional access');
     $r->print('<td>'.&actionbox($status,$num,$scope).'</td><td>'.&mt('Format for IP controls').'<br />'.
               &mt('[_1] or [_2] or [_3] or [_4] or [_5]','<tt>35.8.*</tt>','<tt>35.8.3.[34-56]</tt>',
                   '<tt>*.msu.edu</tt>','<tt>35.8.3.34</tt>','<tt>somehostname.pa.msu.edu</tt>').'<br />'.
               &mt('Use a comma to separate different ranges.').'</br/>'.
-              '<textarea name="ips_'.$num.'" cols="30"  rows="5">'.$curr_ips_list.'</textarea></td>'.
+              '<textarea name="ips_'.$num.'" cols="30"  rows="5" aria-label="'.$labeltext.'">'.$curr_ips_list.'</textarea></td>'.
               '<td>'.&dateboxes($num,$start,$end).'</td>');
 }
 
@@ -1787,15 +1802,50 @@
     } elsif ($type eq 'userip') {
         $showtype = 'IP';
     }
+    my $labeltext = &mt('number of '.$showtype.'-based condition(s)');
     return
         &mt('Add new '.$showtype.'-based condition(s)?')
        .'&nbsp;'.&mt('Number to add: ')
-       .'<input type="text" name="new'.$type.'" size="3" value="0" />';
+       .'<input type="text" name="new'.$type.'" size="3" value="0" aria-label="'.$labeltext.'" />';
 }
 
 sub actionbox {
     my ($status,$num,$scope) = @_;
-    my $output = '<span class="LC_nobreak"><label>';
+    my $legend;
+    if (($scope eq 'course') || ($scope eq 'domains') ||
+        ($scope eq 'users') || ($scope eq 'userip')) {
+        my $showtype;
+        if ($scope eq 'course') {
+            $showtype = 'course/community';
+        } elsif ($scope eq 'domains') {
+            $showtype = 'domain';
+        } elsif ($scope eq 'users') {
+            $showtype = 'user';
+        } elsif ($scope eq 'userip') {
+            $showtype = 'IP';
+        }
+        if ($status eq 'new') {
+            $legend = &mt('Action for new '.$showtype.'-based condition');
+        } else {
+            $legend = &mt('Action for existing '.$showtype.'-based condition');
+        }
+    } elsif ($scope eq 'public') {
+        if ($status eq 'new') {
+            $legend = &mt('Action for new public access');
+        } else {
+            $legend = &mt('Action for existing public access');
+        }
+    } elsif ($scope eq 'guest') {
+        if ($status eq 'new') {
+            $legend = &mt('Action for new passphrase-protected access');
+        } else {
+            $legend = &mt('Action for existing passphrase-protected access');
+        }
+    }
+    my $output = '<fieldset class="LC_borderless">'
+                .'<legend class="LC_visually_hidden">'.$legend
+                .'</legend>'
+                .'<span class="LC_nobreak"><label>';
     if ($status eq 'new') {
         my $checkstate;
         if ($scope eq 'domains' || $scope eq 'users' || $scope eq 'course' || $scope eq 'userip') {
@@ -1810,7 +1860,7 @@
                    '<label><input type="checkbox" name="update" value="'.
                    $num.'" />'.&mt('Update');
     }
-    $output .= '</label></span><input type="hidden" name="scope_'.$num.'" value="'.$scope.'" />';
+    $output .= '</label></span><input type="hidden" name="scope_'.$num.'" value="'.$scope.'" /></fieldset>';
     return $output;
 }
                                                                                    
@@ -1897,8 +1947,14 @@
                     'section' => $sections,
                     'group' => $groups,
                    );
+    my %lt = &Apache::lonlocal::texthash (
+                    'role' => 'Role(s) with access',
+                    'access' => 'Course status(es) with access',
+                    'section' => 'Section(s) with access',
+                    'group' => 'Group(s) with access',
+    );
     foreach my $item ('role','access','section','group') {
-        $output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4">'."\n";
+        $output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4" aria-label="'.$lt{$item}.'">'."\n";
         foreach my $entry (@{$allitems{$item}}) {
             if ($caller eq 'display') {
                 if ((@{$$content{'roles'}{$role_id}{$item}} > 0) && 
@@ -1961,13 +2017,14 @@
 </script>
 END_SCRIPT
     $r->print(
-        '<p>'
+        '<h1 class="LC_heading_2">'.
+       .&mt('Select roles, sections and groups for role-based access condition').
+       .'</h1>'
+       .'<p>'
        .&mt('Select roles, '.lc($type).' status, section(s) and group(s) for users'
            .' who will be able to access the portfolio file.')
        .'</p>'
-    );
-    $r->print(
-        '<form name="rolepicker" action="/adm/portfolio" method="post">'
+       .'<form name="rolepicker" action="/adm/portfolio" method="post">'
        .'<table><tr>'
        .'<th>'.&mt('Roles').'</th>'
        .'<th>'.&mt("$type status").'</th>'

From raeburn at source.lon-capa.org  Sun Dec 14 21:58:27 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 02:58:27 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonaboutme.pm
Message-ID: <cvsraeburn1765767507@cvsserver>

raeburn		Mon Dec 15 02:58:27 2025 EDT

  Modified files:              
    /loncom/interface	lonaboutme.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.172 loncom/interface/lonaboutme.pm:1.173
--- loncom/interface/lonaboutme.pm:1.172	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonaboutme.pm	Mon Dec 15 02:58:27 2025
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Personal Information Page
 #
-# $Id: lonaboutme.pm,v 1.172 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.173 2025/12/15 02:58:27 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -563,7 +563,7 @@
         }
         $output = &Apache::loncommon::start_page('Viewable group portfolio files',undef,$args).
                   "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-                  '<h3>'.&mt('Group Portfolio files').'</h3>';
+                  '<h2 class="LC_heading_2">'.&mt('Group Portfolio files').'</h2>';
     } else {
         if ($env{'request.course.id'} && $env{'form.register'}) {
             $args->{force_register} = $env{'form.register'};
@@ -583,7 +583,7 @@
             &Apache::loncommon::start_page('Viewable portfolio files',
                                            undef,$args).
             "\n".'<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-            '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>';
+            '<h2 class=LC_heading_2">'.&mt('Portfolio files for [_1]',$name).'</h2>';
     }
     $r->print($output);
     return;
@@ -604,8 +604,9 @@
     }
 
     my $output = '<form action="'.&HTML::Entities::encode($r->uri,'<>&"')
-        .'" name="displaystatus" method="post">'.
-        &mt('File access type: ').'<select name="portaccess">';
+        .'" name="displaystatus" method="post">'
+        .'<label for="portaccess">'.&mt('File access type').': '
+        .'<select name="portaccess" id="portaccess">';
     foreach my $type ('withoutpass','withpass','both') {
         $output .= '<option value="'.$type.'" ';
         if ($portaccess eq $type) {
@@ -751,7 +752,11 @@
     my $output;
     if ($mode eq 'listfiles') {
         if ($filecounts->{'both'} > 0) {
-            $output = &Apache::loncommon::start_data_table();
+            $output = &Apache::loncommon::start_data_table().
+                      &Apache::loncommon::start_data_table_header_row('LC_visually_hidden').
+                      '<th>'.&mt('File or Folder').'</th>'.
+                      '<th>'.&mt('Metadata').'</th>'.
+                      &Apache::loncommon::end_data_table_row()."\n";
             $output .= &parse_directory($r,0,$allfileshash,'',$is_course,
                                         $group);
             $output .= &Apache::loncommon::end_data_table();



From raeburn at source.lon-capa.org  Sun Dec 14 22:08:53 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 03:08:53 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonblockingmenu.pm
	lonnavmaps.pm
Message-ID: <cvsraeburn1765768133@cvsserver>

raeburn		Mon Dec 15 03:08:53 2025 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm lonblockingmenu.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.509.2.13 loncom/interface/lonnavmaps.pm:1.509.2.13.2.1
--- loncom/interface/lonnavmaps.pm:1.509.2.13	Sat May  2 21:40:02 2020
+++ loncom/interface/lonnavmaps.pm	Mon Mar  8 03:48:34 2021
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.509.2.13 2020/05/02 21:40:02 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.509.2.13.2.1 2021/03/08 03:48:34 raeburn Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -4819,11 +4819,12 @@
     my $date;
     my @interval=$self->parmval("interval", $part);
     my $due_date=$self->parmval("duedate", $part);
-    if ($interval[0] =~ /\d+/) {
-       my $first_access=&Apache::lonnet::get_first_access($interval[1],
-                                                          $self->{SYMB});
+    if ($interval[0] =~ /^(\d+)/) {
+        my $timelimit = $1;
+        my $first_access=&Apache::lonnet::get_first_access($interval[1],
+                                                           $self->{SYMB});
 	if (defined($first_access)) {
-           my $interval = $first_access+$interval[0];
+            my $interval = $first_access+$timelimit;
 	    $date = (!$due_date || $interval < $due_date) ? $interval 
                                                           : $due_date;
 	} else {
Index: loncom/interface/lonblockingmenu.pm
diff -u loncom/interface/lonblockingmenu.pm:1.33 loncom/interface/lonblockingmenu.pm:1.34
--- loncom/interface/lonblockingmenu.pm:1.33	Sat Dec 13 05:56:01 2025
+++ loncom/interface/lonblockingmenu.pm	Mon Dec 15 03:08:53 2025
@@ -2,7 +2,7 @@
 # Routines for configuring blocking of access to collaborative functions, 
 # and specific resources during an exam
 #
-# $Id: lonblockingmenu.pm,v 1.33 2025/12/13 05:56:01 raeburn Exp $
+# $Id: lonblockingmenu.pm,v 1.34 2025/12/15 03:08:53 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -594,6 +594,7 @@
             'defs' => 'Defined Start/End',
             'trig' => 'Triggered by Activating Timer', 
             'setb' => 'Set by',
+            'acti' => 'Action',
             'even' => 'Event',
             'blck' => 'Blocked?',
             'star' => 'Start',
@@ -603,9 +604,10 @@
             'when' => 'When using defined start/end times for an event, please set dates carefully.',
             'yes'  => 'Yes',
             'no'   => 'No',
+            'titl' => 'Event title',
     );
 
-    $r->print('<h3>'.$lt{'cbds'}.'</h3>');
+    $r->print('<h2 class="LC_heading_2">'.$lt{'cbds'}.'</h2>');
 
 # ---------------------------------------------------- Get Time Limit parameters
     my %intervals = &get_timed_items();
@@ -660,7 +662,7 @@
 END
         } else {
             $r->print($lt{'ncbc'}.'<br /><br />'.
-                      '<h4>'.$lt{'addn'}.'</h4>'.
+                      '<h3 class="LC_heading_3">'.$lt{'addn'}.'</h3>'.
                       '<input type="hidden" name="blockaction" value="add" />');
         }
     }
@@ -777,7 +779,6 @@
     my $addtimer = 0;
     my %blocking = ();
     my (%map_url,%resource_symb,%titles,$output);
-    $output = '<h3>'.$lt{'head'}.'</h3>';
     if ($env{'form.blockaction'} eq 'modify') {
         foreach my $envkey (keys(%env)) {
             if ($envkey =~ m/^form\.action_(\d+)$/) {
@@ -1107,7 +1108,7 @@
     if ($readonly) {
         $disabled = ' disabled="disabled"';
     } else {
-        $r->print('<th></th>');
+        $r->print('<th>'.$ltext->{'acti'}.'</th>');
     }
     $r->print(<<"END");
     <th>$ltext->{'type'}</th>
@@ -1135,7 +1136,10 @@
         } else {
             $r->print(<<"ACT");
 
-        <td valign="middle"><span class="LC_nobreak"><label>
+        <td valign="middle"><span class="LC_nobreak">
+        <fieldset class="LC_borderless">
+        <legend class="LC_visually-hidden">$ltext->{'acti'}</legend>
+        <label>
         <input type="radio" name="action_$parmcount" value="modify" />$lt{'modi'}
         </label></span><br />
         <span class="LC_nobreak"><label>
@@ -1145,6 +1149,7 @@
         <input type="radio" name="action_$parmcount" id="nochange_$parmcount" 
          value="nochange" checked="checked" />$lt{'noch'}
         </label></span>
+        </fieldset>
         </td>
 ACT
         }
@@ -1179,7 +1184,7 @@
         }
         $r->print(<<"END");
         <td>
-         <input type="text" name="title_$parmcount" size="15" value="$title" onfocus="$jschg" $disabled />
+         <input type="text" name="title_$parmcount" size="15" value="$title" onfocus="$jschg" $disabled aria-label="$ltext->{'titl'}" />
          <input type="hidden" name="key_$parmcount" value="$blockid" />
          <br />
          <br />
@@ -1266,7 +1271,7 @@
      <span class="LC_warning">$ltext->{'when'}</span></div>
      <div id="show_timer" style="display:none">$intervalform</div>
      </td>
-     <td><input type="text" name="title_$parmcount" size="15" value="" /></td>
+     <td><input type="text" name="title_$parmcount" size="15" value="" aria-label="$ltext->{'titl'}" /></td>
 END
     $r->print('<td>'.&blocker_checkboxes($parmcount).'</td>'.
               &Apache::loncommon::end_data_table_row().
@@ -1280,7 +1285,7 @@
     my ($typeorder,$types) = &blocktype_text();
     my $numinrow = 2;
     my %currdocs;
-    my $output = '<table>';
+    my $output = '<div role="grid" class="LC_grid">';
     for (my $i=0; $i<@{$typeorder}; $i++) {
         my $block = $typeorder->[$i];
         my ($clickaction,$blockstatus);
@@ -1320,20 +1325,11 @@
         my $rem = $i%($numinrow);
         if ($rem == 0) {
             if ($i > 0) {
-                $output .= '</tr>';
+                $output .= '</div>';
             }
-            $output .= '<tr>';
-        }
-        if ($i == scalar(@{$typeorder})-1) {
-            my $colsleft = $numinrow-$rem;
-            if ($colsleft > 1) {
-                $output .= '<td colspan="'.$colsleft.'">';
-            } else {
-                $output .= '<td>';
-            }
-        } else {
-            $output .= '<td>';
+            $output .= '<div role="row" class="LC_grid_row">';
         }
+        $output .= '<div role="gridcell" class="LC_grid_cell">';
         my $item = $block.'_'.$parmcount;
         if ($clickaction) {
             $clickaction = ' onclick="'.$clickaction.'"';
@@ -1351,9 +1347,9 @@
                             &mt('Details').'</a>';
             }
         }
-        $output .= '<br /></td>';
+        $output .= '<br /></div>';
     }
-    $output .= '</tr></table>'.
+    $output .= '</div></div>'.
                '<input type="hidden" name="docs_maps_'.$parmcount.'"'.
                ' id="docs_maps_'.$parmcount.'" value="'.$currdocs{'maps'}.'" />'.
                '<input type="hidden" name="docs_resources_'.$parmcount.'"'.



From raeburn at source.lon-capa.org  Sun Dec 14 22:28:54 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 03:28:54 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonconfigsettings.pm
Message-ID: <cvsraeburn1765769334@cvsserver>

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)"'.
               ' />'.('&nbsp;'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.
-                      '" />&nbsp;'.&mt($prefs->{$item}->{'text'}).'</label></h4>');
+                      '" />&nbsp;'.&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) {



From raeburn at source.lon-capa.org  Sun Dec 14 22:33:08 2025
From: raeburn at source.lon-capa.org (raeburn)
Date: Mon, 15 Dec 2025 03:33:08 -0000
Subject: [LON-CAPA-cvs] cvs: loncom /interface loncourserespicker.pm
Message-ID: <cvsraeburn1765769588@cvsserver>

raeburn		Mon Dec 15 03:33:08 2025 EDT

  Modified files:              
    /loncom/interface	loncourserespicker.pm 
  Log:
  - WCAG 2 compliance.
  
  
Index: loncom/interface/loncourserespicker.pm
diff -u loncom/interface/loncourserespicker.pm:1.22 loncom/interface/loncourserespicker.pm:1.23
--- loncom/interface/loncourserespicker.pm:1.22	Sat Dec 13 05:56:01 2025
+++ loncom/interface/loncourserespicker.pm	Mon Dec 15 03:33:08 2025
@@ -1,6 +1,6 @@
 # The LearningOnline Network
 #
-# $Id: loncourserespicker.pm,v 1.22 2025/12/13 05:56:01 raeburn Exp $
+# $Id: loncourserespicker.pm,v 1.23 2025/12/15 03:33:08 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -986,16 +986,16 @@
         if ($context eq 'imsexport') {
             $outcome = &Apache::loncommon::start_page('Export '.$crstype.' to IMS Package')."\n".
                        '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-                       '<h2>'.&mt('IMS Export Failed').'</h2>';
+                       '<h2 class="LC_heading_2">'.&mt('IMS Export Failed').'</h2>';
         } elsif ($context eq 'examblock') {
             $outcome = &Apache::loncommon::start_page('Selection of Resources for Blocking',
                                                        undef,{'only_body' => 1,})."\n".
                        '<div class="LC_landmark" role="main" id="LC_main_content">'."\n".
-                       '<h2>'.&mt('Resource Display Failed').'</h2>';
+                       '<h2 class="LC_heading_2">'.&mt('Resource Display Failed').'</h2>';
         } elsif ($context eq 'dumpdocs') {
-            $outcome = '<h2>'.&mt('Copying to Authoring Space unavailable').'</h2>';
+            $outcome = '<h2 class="LC_heading_2">'.&mt('Copying to Authoring Space unavailable').'</h2>';
         } elsif ($context eq 'shorturls') {
-            $outcome = '<h2>'.&mt('Display/Setting of shortened URLs unavailable').'</h2>';
+            $outcome = '<h2 class="LC_heading_2">'.&mt('Display/Setting of shortened URLs unavailable').'</h2>';
         }
         $outcome .= '<div class="LC_error">';
         if ($crstype eq 'Community') {