--- loncom/interface/lonpreferences.pm 2009/05/21 16:00:49 1.125.4.2 +++ loncom/interface/lonpreferences.pm 2009/09/10 16:24:47 1.125.4.4 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.125.4.2 2009/05/21 16:00:49 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.125.4.4 2009/09/10 16:24:47 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -204,7 +204,8 @@ sub texenginechanger { 'tth' => 'tth (TeX to HTML)', #'ttm' => 'TeX to MathML', 'jsMath' => 'jsMath', - 'mimetex' => 'mimetex (Convert to Images)' + 'mimetex' => 'mimetex (Convert to Images)', + 'raw' => 'Raw (Screen Reader)' ); my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine', %mathchoices); @@ -1308,41 +1309,39 @@ sub client_form { 'newpass' => 'New Password', 'confirmpass' => 'Confirm Password', 'changepass' => 'Save'); - - my $output = qq| -
-ENDFORM +|; return $output; } @@ -1555,7 +1554,7 @@ sub discussionchanger { } } if (defined($userenv{'discmarkread'})) { - unless ($userenv{'discdisplay'} eq '') { + unless ($userenv{'discmarkread'} eq '') { $discmark = $userenv{'discmarkread'}; } } @@ -1645,11 +1644,11 @@ sub verify_and_change_discussion { if (defined($env{'form.discdisp'}) ) { my $newdisp = $env{'form.newdisp'}; if ($newdisp eq 'unread') { - $message .=&mt('In discussions: only new posts will be displayed.').'