--- loncom/auth/lonlogin.pm 2008/01/16 20:42:44 1.98 +++ loncom/auth/lonlogin.pm 2008/01/24 14:30:28 1.99 @@ -1,7 +1,7 @@ # The LearningOnline Network # Login Screen # -# $Id: lonlogin.pm,v 1.98 2008/01/16 20:42:44 raeburn Exp $ +# $Id: lonlogin.pm,v 1.99 2008/01/24 14:30:28 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -349,7 +349,14 @@ my %lt=&Apache::lonlocal::texthash( 'serv' => 'Server', 'servadm' => 'Server Administration', 'helpdesk' => 'Contact Helpdesk', - 'forgotpw' => 'Forgot password?'); + 'forgotpw' => 'Forgot password?', + 'options_headline' => 'Select Accessibility Options', + 'sprs_img' => 'Suppress rendering of images', + 'sprs_applet' => 'Suppress Java applets', + 'sprs_embed' => 'Suppress rendering of embedded multimedia', + 'sprs_font' => 'Increase font size', + 'sprs_blackwhite' => 'Switch to black and white mode', + 'remember' => 'Remember these settings for next login'); # -------------------------------------------------- Change password field name my $forgotpw = &forgotpwdisplay(%lt); my $loginhelp = &loginhelpdisplay(%lt); @@ -454,18 +461,21 @@ ENDSERVERFORM ENDTOP } else { - $r->print('

The LearningOnline Network with CAPA

Text-based Interface Login

'.$announcements); + $r->print('

The LearningOnline Network with CAPA

' + .'

'.&mt('Text-based Interface Login').'

' + .$announcements); } $r->print('
'); unless ($fullgraph) { $r->print(<Select Accessibility Options -
-
-
-
-
- Remember these settings for next login
+

$lt{'options_headline'}

+
+
+
+
+
+
+ $lt{'remember'}
ENDACCESSOPTIONS } else { $r->print(<