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

[raeburn]

raeburn		Fri Jan 23 19:42:51 2026 EDT

  Modified files:              
    /loncom/interface	longroupchat.pm 
  Log:
  - WCAG 2 compliance: titles for frames
  
  
Index: loncom/interface/longroupchat.pm
diff -u loncom/interface/longroupchat.pm:1.11 loncom/interface/longroupchat.pm:1.12
--- loncom/interface/longroupchat.pm:1.11	Fri Jan 23 19:23:58 2026
+++ loncom/interface/longroupchat.pm	Fri Jan 23 19:42:51 2026
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "Group Chat Room Frame" Personal Information
 #
-# $Id: longroupchat.pm,v 1.11 2026/01/23 19:23:58 raeburn Exp $
+# $Id: longroupchat.pm,v 1.12 2026/01/23 19:42:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,6 +78,12 @@
                                               {'only_body' => 1});
         return OK;
     }
+    my %lt = &Apache::lonlocal::texthash (
+       cont => 'Context',
+       post => 'Posting',
+       acti => 'Activity',
+    );
+    map { $lt{$_} = &HTML::Entities::encode($lt{$_},'"<>&'); } keys(%lt);
 
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
@@ -93,9 +99,9 @@
 
     $r->print(<<"END");
 $start_page
-<frame name="chatacc" src="/adm/chatfetch?group=$group">
-<frame name="chatpost" src="/adm/chat?group=$group">
-<frame name="chatout" src="/adm/rat/empty.html">
+<frame name="chatacc" title="$lt{'cont'}" src="/adm/chatfetch?group=$group">
+<frame name="chatpost" title="$lt{'post'}" src="/adm/chat?group=$group">
+<frame name="chatout" title="$lt{'acti'}" src="/adm/rat/empty.html">
 $end_page
 END
     return OK;