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

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 10 Nov 2003 20:19:37 -0000


matthew		Mon Nov 10 15:19:37 2003 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Added 'alt' attribute to header image tags.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.149 loncom/interface/loncommon.pm:1.150
--- loncom/interface/loncommon.pm:1.149	Mon Nov 10 11:33:57 2003
+++ loncom/interface/loncommon.pm	Mon Nov 10 15:19:37 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.149 2003/11/10 16:33:57 albertel Exp $
+# $Id: loncommon.pm,v 1.150 2003/11/10 20:19:37 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2007,7 +2007,7 @@
 	my $lonhttpdPort=$Apache::lonnet::perlvar{'lonhttpdPort'};
 	if (!defined($lonhttpdPort)) { $lonhttpdPort='8080'; }
         return '<img src="http://'.$ENV{'HTTP_HOST'}.':'.$lonhttpdPort.
-	    '/adm/lonDomLogos/'.$domain.'.gif" />';
+	    '/adm/lonDomLogos/'.$domain.'.gif" alt="'.$domain.'" />';
     } elsif(exists($Apache::lonnet::domaindescription{$domain})) {
         return $Apache::lonnet::domaindescription{$domain};
     } else {
@@ -2147,7 +2147,7 @@
 style="border-color: $tabbg; border-width: 4px; border-style: solid; padding: 4px;$addstyle" $addentries>
 END
     my $upperleft='<img src="http://'.$ENV{'HTTP_HOST'}.':'.
-                   $lonhttpdPort.$img.'" />';
+                   $lonhttpdPort.$img.'" alt="'.$function.'" />';
     if ($bodyonly) {
         return $bodytag;
     } elsif ($ENV{'browser.interface'} eq 'textual') {