--- loncom/interface/lonpreferences.pm	2004/06/08 01:32:02	1.44
+++ loncom/interface/lonpreferences.pm	2005/07/05 15:25:34	1.66
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.44 2004/06/08 01:32:02 www Exp $
+# $Id: lonpreferences.pm,v 1.66 2005/07/05 15:25:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,6 +40,7 @@ use DynaLoader; # for Crypt::DES version
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::lonlocal;
+use Apache::lonnet;
 
 #
 # Write lonnet::passwd to do the call below.
@@ -109,8 +110,8 @@ sub wysiwygchanger {
 <form name="server" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="set_wysiwyg" />
 <br />
-<input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff<br />
-<input type="radio" name="wysiwyg" value="on" $offselect /> $switchon
+<label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
+<label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
 ENDLSCREEN
     $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
 }
@@ -118,7 +119,7 @@ ENDLSCREEN
 
 sub verify_and_change_wysiwyg {
     my $r = shift;
-    my $newsetting=$ENV{'form.wysiwyg'};
+    my $newsetting=$env{'form.wysiwyg'};
     &Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting});
     &Apache::lonnet::appenv('environment.wysiwygeditor' => $newsetting);
     $r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>');
@@ -129,8 +130,8 @@ sub verify_and_change_wysiwyg {
 ################################################################
 sub languagechanger {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get
         ('environment',['languages']);
     my $language=$userenv{'languages'};
@@ -156,10 +157,10 @@ ENDLSCREEN
 
 sub verify_and_change_languages {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
 # Screenname
-    my $newlanguage  = $ENV{'form.language'};
+    my $newlanguage  = $env{'form.language'};
     $newlanguage=~s/[^\-\w]//g;
     my $message='';
     if ($newlanguage) {
@@ -172,19 +173,189 @@ sub verify_and_change_languages {
         $message='Reset preferred language';
     }
     $r->print(<<ENDVCSCREEN);
-</p>
 $message
 ENDVCSCREEN
 }
 
+################################################################
+#         Tex Engine Change Subroutines                        #
+################################################################
+sub texenginechanger {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my %userenv = &Apache::lonnet::get('environment',['texengine']);
+    my $texengine=$userenv{'texengine'};
+
+    my $pref=&mt('Preferred method to display Math');
+    my %mathchoices=('' => 'No Preference',
+		     'tth' => 'TeX to HTML',
+		     #'ttm' => 'TeX to MathML',
+		     'jsMath' => 'jsMath',
+		     'mimetex' => 'Convert to Images'
+                     );
+    my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',
+						     %mathchoices);
+    my $mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$';
+    my $jsMath_example=&Apache::lontexconvert::jsMath_converted(\$mathexample);
+    $mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$';
+    my $tth_example=&Apache::lontexconvert::tth_converted(\$mathexample);
+    $mathexample='$$\int\left(\frac{a+b}{c^6*d}\right)$$';
+    my $mimetex_example=&Apache::lontexconvert::mimetex_converted(\$mathexample);
+    my $change=&mt('Change');
+    $r->print(<<ENDLSCREEN);
+<form name="server" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_texengine" />
+<p>$pref: $selectionbox</p>
+<p><input type="submit" value="$change" /></p>
+</form>
+Examples:
+<p> TeX to HTML <br /> $tth_example</p>
+<script type="text/javascript">function NoFontMessage () { }</script>
+<script src="/adm/jsMath/jsMath.js"></script>
+<p>jsMath <br /> 
+
+<script type="text/javascript">
+if (jsMath.nofonts == 1) {
+    document.writeln
+        ('<center><div style="padding: 10; border-style: solid; border-width:3;'
+	 +' border-color: #DD0000; background-color: #FFF8F8; width: 75%; text-align: left">'
+	 +'<small><font color="#AA0000"><b>Warning:</b> '
+	 +'It looks like you don\\\'t have the TeX math fonts installed. '
+	 +'The jsMath example on this page may not look right without them. '
+	 +'The <a href="http://www.math.union.edu/locate/jsMath/" target="_blank"> '
+	 +'jsMath Home Page</a> has information on how to download the '
+	 +'needed fonts.  In the meantime, jsMath will do the best it can '
+	 +'with the fonts you have, but it may not be pretty and some equations '
+	 +'may not be rendered correctly. '
+	 +'</font></small></div></center>');
+}
+</script>
+
+$jsMath_example</p>
+<p> Convert to Images <br /> $mimetex_example</p>
+ENDLSCREEN
+    if ($env{'environment.texengine'} ne 'jsMath') {
+	$r->print('<script type="text/javascript">jsMath.Process()</script>');
+    }
+}
+
+
+sub verify_and_change_texengine {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+# Screenname
+    my $newtexengine  = $env{'form.texengine'};
+    $newtexengine=~s/[^\-\w]//g;
+    if ($newtexengine eq 'ttm') {
+	&Apache::lonnet::appenv('browser.mathml' => 1);
+    } else {
+	if ($env{'environment.texengine'} eq 'ttm') {
+	    &Apache::lonnet::appenv('browser.mathml' => 0);
+	}
+    }
+    my $message='';
+    if ($newtexengine) {
+        &Apache::lonnet::put('environment',{'texengine' => $newtexengine});
+        &Apache::lonnet::appenv('environment.texengine' => $newtexengine);
+        $message='Set new preferred math display to '.$newtexengine;
+    } else {
+        &Apache::lonnet::del('environment',['texengine']);
+        &Apache::lonnet::delenv('environment\.texengine');
+        $message='Reset preferred math display.';
+    }
+
+
+    $r->print(<<ENDVCSCREEN);
+$message
+ENDVCSCREEN
+}
+
+################################################################
+#         Roles Page Preference Change Subroutines         #
+################################################################
+sub rolesprefchanger {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my %userenv = &Apache::lonnet::get
+        ('environment',['recentroles','recentrolesn']);
+    my $hotlist_flag=$userenv{'recentroles'};
+    my $hotlist_n=$userenv{'recentrolesn'};
+    my $checked;
+    if ($hotlist_flag) {
+	$checked = 'checked="checked"';
+    }
+    
+    if (!$hotlist_n) { $hotlist_n=3; }
+    my $options;
+    for (my $i=1; $i<10; $i++) {
+	my $select;
+	if ($hotlist_n == $i) { $select = 'selected="selected"'; }
+	$options .= "<option $select>$i</option>\n";
+    }
+
+    $r->print(<<ENDSCREEN);
+<p>Some LON-CAPA users have a long list of roles. The Recent Roles Hotlist
+feature keeps track of the last N roles which have been
+visited and places a table of these at the top of the roles page.
+People with very few roles should leave this feature disabled.
+</p>
+
+<form name="server" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_rolespref" />
+<br />Enable Recent Roles Hotlist:
+<input type="checkbox" $checked name="recentroles" value="true" />
+<br />Number of roles in Hotlist:
+<select name="recentrolesn" size="1">
+$options
+</select>
+<br />
+<input type="submit" value="Change" />
+</form>
+ENDSCREEN
+}
+
+sub verify_and_change_rolespref {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+# Recent Roles Hotlist Flag
+    my $hotlist_flag  = $env{'form.recentroles'};
+    my $hotlist_n  = $env{'form.recentrolesn'};
+    my $message='';
+    if ($hotlist_flag) {
+        &Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag});
+        &Apache::lonnet::appenv('environment.recentroles' => $hotlist_flag);
+        $message='Recent Roles Hotlist is Enabled';
+    } else {
+        &Apache::lonnet::del('environment',['recentroles']);
+        &Apache::lonnet::delenv('environment\.recentroles');
+        $message='Recent Roles Hotlist is Disabled';
+    }
+    if ($hotlist_n) {
+        &Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n});
+        &Apache::lonnet::appenv('environment.recentrolesn' => $hotlist_n);
+        if ($hotlist_flag) {
+            $message.="<br />Display $hotlist_n Most Recent Roles\n";
+        }
+    }
+
+    $r->print(<<ENDRPSCREEN);
+$message
+ENDRPSCREEN
+}
+
+
 
 ################################################################
 #         Anonymous Discussion Name Change Subroutines         #
 ################################################################
 sub screennamechanger {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get
         ('environment',['screenname','nickname']);
     my $screenname=$userenv{'screenname'};
@@ -203,10 +374,10 @@ ENDSCREEN
 
 sub verify_and_change_screenname {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
 # Screenname
-    my $newscreen  = $ENV{'form.screenname'};
+    my $newscreen  = $env{'form.screenname'};
     $newscreen=~s/[^ \w]//g;
     my $message='';
     if ($newscreen) {
@@ -220,7 +391,7 @@ sub verify_and_change_screenname {
     }
 # Nickname
     $message.='<br />';
-    $newscreen  = $ENV{'form.nickname'};
+    $newscreen  = $env{'form.nickname'};
     $newscreen=~s/[^ \w]//g;
     if ($newscreen) {
         &Apache::lonnet::put('environment',{'nickname' => $newscreen});
@@ -233,7 +404,6 @@ sub verify_and_change_screenname {
     }
 
     $r->print(<<ENDVCSCREEN);
-</p>
 $message
 ENDVCSCREEN
 }
@@ -244,8 +414,8 @@ ENDVCSCREEN
 
 sub msgforwardchanger {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
     my $msgforward=$userenv{'msgforward'};
     my $notification=$userenv{'notification'};
@@ -274,11 +444,11 @@ ENDMSG
 
 sub verify_and_change_msgforward {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
     my $newscreen  = '';
     my $message='';
-    foreach (split(/\,/,$ENV{'form.msgforward'})) {
+    foreach (split(/\,/,$env{'form.msgforward'})) {
 	my ($msuser,$msdomain)=split(/[\@\:]/,$_);
         $msuser=~s/\W//g;
         $msdomain=~s/\W//g;
@@ -300,7 +470,7 @@ sub verify_and_change_msgforward {
         &Apache::lonnet::delenv('environment\.msgforward');
         $message.='Reset message forwarding<br />';
     }
-    my $notification=$ENV{'form.notification'};
+    my $notification=$env{'form.notification'};
     $notification=~s/\s//gs;
     if ($notification) {
         &Apache::lonnet::put('environment',{'notification' => $notification});
@@ -311,7 +481,7 @@ sub verify_and_change_msgforward {
         &Apache::lonnet::delenv('environment\.notification');
         $message.='Reset message notification<br />';
     }
-    my $critnotification=$ENV{'form.critnotification'};
+    my $critnotification=$env{'form.critnotification'};
     $critnotification=~s/\s//gs;
     if ($critnotification) {
         &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
@@ -323,7 +493,6 @@ sub verify_and_change_msgforward {
         $message.='Reset critical message notification<br />';
     }
     $r->print(<<ENDVCMSG);
-</p>
 $message
 ENDVCMSG
 }
@@ -336,13 +505,13 @@ sub colorschanger {
     my $r = shift;
 # figure out colors
     my $function='student';
-    if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
+    if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
 	$function='coordinator';
     }
-    if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
+    if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
 	$function='admin';
     }
-    if (($ENV{'request.role'}=~/^(au|ca)/) ||
+    if (($env{'request.role'}=~/^(au|ca)/) ||
 	($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
 	$function='author';
     }
@@ -412,13 +581,13 @@ sub verify_and_change_colors {
     my $r = shift;
 # figure out colors
     my $function='student';
-    if ($ENV{'request.role'}=~/^(cc|in|ta|ep)/) {
+    if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
 	$function='coordinator';
     }
-    if ($ENV{'request.role'}=~/^(su|dc|ad|li)/) {
+    if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
 	$function='admin';
     }
-    if (($ENV{'request.role'}=~/^(au|ca)/) ||
+    if (($env{'request.role'}=~/^(au|ca)/) ||
 	($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
 	$function='author';
     }
@@ -433,9 +602,9 @@ sub verify_and_change_colors {
 
     my $message='';
     foreach my $item (keys %colortypes) {
-        my $color=$ENV{'form.'.$item};
+        my $color=$env{'form.'.$item};
         my $entry='color.'.$function.'.'.$item;
-	if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$ENV{'form.resetall'})) {
+	if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) {
 	    &Apache::lonnet::put('environment',{$entry => $color});
 	    &Apache::lonnet::appenv('environment.'.$entry => $color);
 	    $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';
@@ -446,7 +615,6 @@ sub verify_and_change_colors {
 	}
     }
     $r->print(<<ENDVCCOL);
-</p>
 $message
 <form name="client" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="changecolors" />
@@ -463,9 +631,9 @@ sub passwordchanger {
     my $r = shift;
     my $errormessage = shift;
     $errormessage = ($errormessage || '');
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
-    my $homeserver = $ENV{'user.home'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my $homeserver = $env{'user.home'};
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);
@@ -490,7 +658,8 @@ sub passwordchanger {
     $lkey_npass2= hex($lkey_npass2);
     # Output javascript to deal with passwords
     # Output DES javascript
-    $r->print("<html><head>");
+    my $html=&Apache::lonxml::xmlbegin();
+    $r->print($html."<head>");
     {
 	my $include = $r->dir_config('lonIncludes');
 	my $jsh=Apache::File->new($include."/londes.js");
@@ -504,22 +673,22 @@ sub passwordchanger {
         lextkey=this.document.client.elements.lkey_cpass.value;
         initkeys();
 
-        this.document.server.elements.currentpass.value
+        this.document.pserver.elements.currentpass.value
             =crypted(this.document.client.elements.currentpass.value);
 
         uextkey=this.document.client.elements.ukey_npass1.value;
         lextkey=this.document.client.elements.lkey_npass1.value;
         initkeys();
-        this.document.server.elements.newpass_1.value
+        this.document.pserver.elements.newpass_1.value
             =crypted(this.document.client.elements.newpass_1.value);
 
         uextkey=this.document.client.elements.ukey_npass2.value;
         lextkey=this.document.client.elements.lkey_npass2.value;
         initkeys();
-        this.document.server.elements.newpass_2.value
+        this.document.pserver.elements.newpass_2.value
             =crypted(this.document.client.elements.newpass_2.value);
 
-        this.document.server.submit();
+        this.document.pserver.submit();
     }
 
 </script>
@@ -530,7 +699,7 @@ $errormessage
      ensure that unencrypted passwords will not be sent out by a
      crappy browser -->
 
-<form name="server" action="/adm/preferences" method="post">
+<form name="pserver" action="/adm/preferences" method="post">
 <input type="hidden" name="logtoken"    value="$logtoken" />
 <input type="hidden" name="action"      value="verify_and_change_pass" />
 <input type="hidden" name="currentpass" value="" />
@@ -564,24 +733,25 @@ ENDFORM
 
 sub verify_and_change_password {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
-    my $homeserver = $ENV{'user.home'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my $homeserver = $env{'user.home'};
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);
     #
+    my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);
-<html>
+$html
 <head>
 <title>LON-CAPA Preferences:  Change password for $user</title>
 </head>
 ENDHEADER
     #
-    my $currentpass = $ENV{'form.currentpass'}; 
-    my $newpass1    = $ENV{'form.newpass_1'}; 
-    my $newpass2    = $ENV{'form.newpass_2'};
-    my $logtoken    = $ENV{'form.logtoken'};
+    my $currentpass = $env{'form.currentpass'}; 
+    my $newpass1    = $env{'form.newpass_1'}; 
+    my $newpass2    = $env{'form.newpass_2'};
+    my $logtoken    = $env{'form.logtoken'};
     # Check for empty data 
     unless (defined($currentpass) && 
 	    defined($newpass1)    && 
@@ -666,8 +836,8 @@ ENDERROR
 ################################################################
 sub discussionchanger {
     my $r = shift;
-    my $user       = $ENV{'user.name'};
-    my $domain     = $ENV{'user.domain'};
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get
         ('environment',['discdisplay','discmarkread']);
     my $discdisp = 'allposts';
@@ -689,7 +859,7 @@ sub discussionchanger {
 
     my $function = &Apache::loncommon::get_users_function();
     my $color = &Apache::loncommon::designparm($function.'.tabbg',
-                                                    $ENV{'user.domain'});
+                                                    $env{'user.domain'});
     my %lt = &Apache::lonlocal::texthash(
         'pref' => 'Display Preference',
         'curr' => 'Current setting ',
@@ -771,11 +941,11 @@ END
                                                                                                                 
 sub verify_and_change_discussion {
     my $r = shift;
-    my $user     = $ENV{'user.name'};
-    my $domain   = $ENV{'user.domain'};
+    my $user     = $env{'user.name'};
+    my $domain   = $env{'user.domain'};
     my $message='';
-    if (defined($ENV{'form.discdisp'}) ) {
-        my $newdisp  = $ENV{'form.newdisp'};
+    if (defined($env{'form.discdisp'}) ) {
+        my $newdisp  = $env{'form.newdisp'};
         if ($newdisp eq 'unread') {
             $message .='In discussions: only new posts will be displayed.<br/>';
             &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
@@ -786,8 +956,8 @@ sub verify_and_change_discussion {
             &Apache::lonnet::delenv('environment\.discdisplay');
         }
     }
-    if (defined($ENV{'form.discmark'}) ) {
-        my $newmark = $ENV{'form.newmark'};
+    if (defined($env{'form.discmark'}) ) {
+        my $newmark = $env{'form.newmark'};
         if ($newmark eq 'ondisp') {
            $message.='In discussions: new posts will be cease to be identified as "new" after display.<br/>';
             &Apache::lonnet::put('environment',{'discmarkread' => $newmark});
@@ -799,11 +969,77 @@ sub verify_and_change_discussion {
         }
     }
     $r->print(<<ENDVCSCREEN);
-</p>
 $message
 ENDVCSCREEN
 }
 
+################################################################
+# Subroutines for page display on course access (Course Coordinators)
+################################################################
+sub coursedisplaychanger {
+    my $r = shift;
+    my $user       = $env{'user.name'};
+    my $domain     = $env{'user.domain'};
+    my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
+
+    my $firstselect='checked="checked"';
+    my $whatsnewselect='';
+    if ($userenv{'course_init_display'} ne 'firstres') {
+        $firstselect='';
+        $whatsnewselect='checked="checked"';
+    }
+    my $whatsnew_off=&mt('Display the first resource in the course.');
+    my $whatsnew_on=&mt('Display a summary of items in the course which require action from the course coordinator.');
+
+    $r->print('<br /><b>'.&mt('Set the page to be displayed when you select the role of Course Coordinator').':</b>');
+    $r->print(<<ENDLSCREEN);
+<form name="server" action="/adm/preferences" method="post">
+<input type="hidden" name="action" value="verify_and_change_coursepage" />
+<label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
+<label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label>
+ENDLSCREEN
+    $r->print('<br /><input type="submit" value="'.&mt('Change').'" />
+</form>');
+}
+
+sub verify_and_change_coursepage {
+    my $r = shift;
+    my $message='';
+    my %lt = &Apache::lonlocal::texthash(
+        'when' => 'Whenever you select the Course Coordinator role from the roles screen',
+        'ywbt' => 'you will be taken to the start of the course.',
+        'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
+        'gtts' => 'Go to the start of the course',
+        'dasp' => 'Display a summary page listing course action items', 
+    );
+    my $newdisp  = $env{'form.newdisp'};
+    if ($newdisp eq 'firstres') {
+        $message .= $lt{'when'}.', '.$lt{'ywbt'}.'<br/>';
+        &Apache::lonnet::put('environment',{'course_init_display' => $newdisp});
+        &Apache::lonnet::appenv('environment.course_init_display' => $newdisp);
+    } else {
+        $message .= $lt{'when'}.', '.$lt{'apwb'}.'<br/>';
+        &Apache::lonnet::del('environment',['course_init_display']);
+        &Apache::lonnet::delenv('environment\.course_init_display');
+    }
+    if (($env{'request.course.fn'}) && ($env{'request.course.id'})) {
+        if ($newdisp eq 'firstres') {
+            my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+            my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; 
+            my ($furl,$ferr)=
+                &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
+            $message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>';
+        } else {
+            $message .= '<br /><font size="+1"><a href="/adm/whatsnew">'.$lt{'dasp'}.'</a></font>';
+        }
+    }
+    $r->print(<<ENDVCSCREEN);
+$message
+<br /><br />
+ENDVCSCREEN
+}
+
+
 ######################################################
 #            other handler subroutines               #
 ######################################################
@@ -813,8 +1049,8 @@ ENDVCSCREEN
 ################################################################
 sub handler {
     my $r = shift;
-    my $user = $ENV{'user.name'};
-    my $domain = $ENV{'user.domain'};
+    my $user = $env{'user.name'};
+    my $domain = $env{'user.domain'};
     &Apache::loncommon::content_type($r,'text/html');
     # Some pages contain DES keys and should not be cached.
     &Apache::loncommon::no_cache($r);
@@ -868,8 +1104,7 @@ sub handler {
                       }));
 
     push (@Options,({ action   => 'changemsgforward',
-                      linktext => 'Change Message Forwarding',
-                      text     => 'and Notification Addresses',
+                      linktext => 'Change Message Forwarding and Notification Addresses',
                       href     => '/adm/preferences',
                       help     => 'Prefs_Forwarding',
                       breadcrumb => 
@@ -884,10 +1119,11 @@ sub handler {
                       printmenu => 'yes',
                       subroutine => \&verify_and_change_msgforward }));
     my $aboutmeaction=
-        '/adm/'.$ENV{'user.domain'}.'/'.$ENV{'user.name'}.'/aboutme';
+        '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
     push (@Options,{ action => 'none', 
                      linktext =>
                          q{Edit the 'About Me' Personal Information Screen},
+		     help => 'Prefs_About_Me',
                      href => $aboutmeaction});
     push (@Options,({ action => 'changecolors',
                       linktext => 'Change Color Scheme',
@@ -908,6 +1144,7 @@ sub handler {
     push (@Options,({ action => 'changelanguages',
                       linktext => 'Change Language Preferences',
                       href => '/adm/preferences',
+		      help => 'Prefs_Language',
                       breadcrumb=>
                           { href => '/adm/preferences?action=changelanguages',
                             text => 'Change Language'},
@@ -938,6 +1175,7 @@ sub handler {
     push (@Options,({ action => 'changediscussions',
                       linktext => 'Change Discussion Display Preferences',
                       href => '/adm/preferences',
+                      help => 'Change_Discussion_Display',
                       breadcrumb => 
                             { href => '/adm/preferences?action=changediscussions',
                               text => 'Change Discussion Preferences'},
@@ -951,45 +1189,96 @@ sub handler {
                       subroutine => \&verify_and_change_discussion, }
                     ));
                        
-    if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {
+    push (@Options,({ action   => 'changerolespref',
+                      linktext => 'Change Roles Page Preferences',
+                      href     => '/adm/preferences',
+                      subroutine => \&rolesprefchanger,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changerolespref',
+                            text => 'Change Roles Pref'},
+                      },
+                    { action   => 'verify_and_change_rolespref',
+                      subroutine => \&verify_and_change_rolespref,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changerolespref',
+                            text => 'Change Roles Preferences'},
+                      printmenu => 'yes',
+                      }));
+
+    push (@Options,({ action   => 'changetexenginepref',
+                      linktext => 'Change How Math Equations Are Displayed',
+                      href     => '/adm/preferences',
+                      subroutine => \&texenginechanger,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changetexenginepref',
+                            text => 'Change Math Pref'},
+                      },
+                    { action   => 'verify_and_change_texengine',
+                      subroutine => \&verify_and_change_texengine,
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changetexenginepref',
+                            text => 'Change Math Preferences'},
+                      printmenu => 'yes',
+                      }));
+    if($env{'request.role'} =~ /^cc\.\//) {
+        push (@Options,({ action => 'changecourseinit',
+                          linktext => 'Change Course Initialization Preference',
+                          href => '/adm/preferences',
+                          subroutine => \&coursedisplaychanger,
+                          breadcrumb =>
+                              { href => '/adm/preferences?action=changecourseinit',
+                                text => 'Change Course Init. Pref.'},
+                          },
+                        { action => 'verify_and_change_coursepage',
+                          breadcrumb =>
+                          { href => '/adm/preferences?action=changecourseinit',                               text => 'Change Course Initialization Preference'},
+                        printmenu => 'yes',
+                        subroutine => \&verify_and_change_coursepage,
+                       }));
+    }
+
+    if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) {
         push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',
                           subroutine => \&toggle_debug,
                           }));
     }
+    my $html=&Apache::lonxml::xmlbegin();
     $r->print(<<ENDHEADER);
-<html>
+$html
 <head>
 <title>LON-CAPA Preferences</title>
 </head>
 ENDHEADER
     my $call = undef;
+    my $help = undef;
     my $printmenu = 'yes';
     foreach my $option (@Options) {
-        if ($option->{'action'} eq $ENV{'form.action'}) {
+        if ($option->{'action'} eq $env{'form.action'}) {
             $call = $option->{'subroutine'};
             $printmenu = $option->{'printmenu'};
             if (exists($option->{'breadcrumb'})) {
                 &Apache::lonhtmlcommon::add_breadcrumb
                     ($option->{'breadcrumb'});
             }
+	    $help=$option->{'help'};
         }
     }
     $r->print(&Apache::loncommon::bodytag('Change Preferences'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs
-              (undef,'Change Preferences'));
+              (undef,'Change Preferences',$help));
     if (defined($call)) {
         $call->($r);
     }
-    if (($printmenu eq 'yes') && (!$ENV{'form.returnurl'})) {
+    if (($printmenu eq 'yes') && (!$env{'form.returnurl'})) {
         my $optionlist = '<table cellpadding="5">';
-        if ($ENV{'user.name'} =~ 
-                         /^(albertel|kortemey|korte|hallmat3|turtle)$/
+        if ($env{'user.name'} =~ 
+                         /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/
             ) {
             push (@Options,({ action => 'debugtoggle',
                               linktext => 'Toggle Debug Messages',
                               text => 'Current Debug status is -'.
-                                  $ENV{'user.debug'}.'-.',
+                                  $env{'user.debug'}.'-.',
                               href => '/adm/preferences',
                               printmenu => 'yes',
                               subroutine => \&toggle_debug,
@@ -1001,10 +1290,10 @@ ENDHEADER
                 $optiontext .= 
                     '<a href="'.$option->{'href'}.
                     '?action='.$option->{'action'}.'">'.
-                    $option->{'linktext'}.'</a>';
+                    &mt($option->{'linktext'}).'</a>';
             }
             if (exists($option->{'text'})) {
-                $optiontext .= ' '.$option->{'text'};
+                $optiontext .= ' '.&mt($option->{'text'});
             }
             if ($optiontext ne '') {
                 $optiontext = '<font size="+1">'.$optiontext.'</font>'; 
@@ -1021,19 +1310,16 @@ ENDHEADER
         }
         $optionlist .= '</table>';
         $r->print($optionlist);
-    } elsif ($ENV{'form.returnurl'}) {
-	$r->print('<br /><a href="'.$ENV{'form.returnurl'}.'"><font size="+1">'.
+    } elsif ($env{'form.returnurl'}) {
+	$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.
 		  &mt('Return').'</font></a>');
     }
-    $r->print(<<ENDFOOTER);
-</body>
-</html>
-ENDFOOTER
+    $r->print(&Apache::loncommon::endbodytag().'</html>');
     return OK;
 }
 
 sub toggle_debug {
-    if ($ENV{'user.debug'}) {
+    if ($env{'user.debug'}) {
         &Apache::lonnet::delenv('user\.debug');
     } else {
         &Apache::lonnet::appenv('user.debug' => 1);