[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

raeburn raeburn at source.lon-capa.org
Sat Apr 18 23:29:37 EDT 2026


raeburn		Sun Apr 19 03:29:37 2026 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  - Updates to changes in rev. 1.735 and 1.736 (WCAG 2 compliance).
    - Coding style.
    - Add punctuation to text strings
    - Remove commented out (redundant) HTML  
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.737 loncom/interface/londocs.pm:1.738
--- loncom/interface/londocs.pm:1.737	Mon Jan 26 17:34:25 2026
+++ loncom/interface/londocs.pm	Sun Apr 19 03:29:37 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.737 2026/01/26 17:34:25 raeburn Exp $
+# $Id: londocs.pm,v 1.738 2026/04/19 03:29:37 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6302,9 +6302,7 @@
         $r->print('<h2 class="LC_heading_2">'.&mt('Resources to check for accessibility').'</h2>'."\n");
         $r->rflush();
         my $readonly;
-        if ($canedit) {
-
-        } else {
+        unless ($canedit) {
             $readonly = 1;
         }
         $r->print(&Apache::loncourserespicker::create_picker($navmap,'wcagcheck',$formname,$crstype,undef,
@@ -6401,17 +6399,16 @@
                 $r->print(<<END);
 <br />
 <meta http-equiv="Refresh" content="0; url=/cgi-bin/lonaxe.pl?$identifier" />
-<!-- <a href="/cgi-bin/lonaxe.pl?$identifier">$continue_text</a> -->
 END
                 $r->rflush();
             } else {
-                $r->print('Could not open file to store list of resources')
+                $r->print('Could not open file to store list of resources.')
             }
         } else {
-            $r->print('Could not determine directory where list of resources is stored');
+            $r->print('Could not determine directory where list of resources is stored.');
         }
     } else {
-        $r->print('No resources selected. Nothing to do');
+        $r->print('No resources selected. Nothing to do.');
     }
     $r->print(&endContentScreen());
     return;




More information about the LON-CAPA-cvs mailing list