--- loncom/interface/lonpreferences.pm	2004/05/25 22:00:21	1.43
+++ loncom/interface/lonpreferences.pm	2004/11/19 20:17:52	1.50
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Preferences
 #
-# $Id: lonpreferences.pm,v 1.43 2004/05/25 22:00:21 raeburn Exp $
+# $Id: lonpreferences.pm,v 1.50 2004/11/19 20:17:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -92,6 +92,41 @@ sub des_decrypt {
 ################################################################
 #         Language Change Subroutines                          #
 ################################################################
+
+sub wysiwygchanger {
+    my $r = shift;
+    my %userenv = &Apache::lonnet::get
+        ('environment',['wysiwygeditor']);
+    my $offselect='';
+    my $onselect='checked="1"';
+    if ($userenv{'wysiwygeditor'}) {
+	$onselect='';
+	$offselect='checked="1"';
+    }
+    my $switchoff=&mt('Disable WYSIWYG editor');
+    my $switchon=&mt('Enable WYSIWYG editor');
+    $r->print(<<ENDLSCREEN);
+<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
+ENDLSCREEN
+    $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
+}
+
+
+sub verify_and_change_wysiwyg {
+    my $r = shift;
+    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>');
+}
+
+################################################################
+#         Language Change Subroutines                          #
+################################################################
 sub languagechanger {
     my $r = shift;
     my $user       = $ENV{'user.name'};
@@ -142,6 +177,83 @@ $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);
+</p>
+$message
+ENDRPSCREEN
+}
+
+
 
 ################################################################
 #         Anonymous Discussion Name Change Subroutines         #
@@ -787,7 +899,7 @@ sub handler {
     return OK if $r->header_only;
     #
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-                                            ['action']);
+                                            ['action','wysiwyg','returnurl']);
     #
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb
@@ -833,8 +945,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 => 
@@ -853,6 +964,7 @@ sub handler {
     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',
@@ -873,6 +985,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'},
@@ -885,9 +998,25 @@ sub handler {
                       printmenu => 'yes',
                       subroutine=>\&verify_and_change_languages, }
                     ));
+    push (@Options,({ action => 'changewysiwyg',
+                      linktext => 'Change WYSIWYG Editor Preferences',
+                      href => '/adm/preferences',
+                      breadcrumb => 
+                            { href => '/adm/preferences?action=changewysiwyg',
+                              text => 'Change WYSIWYG Preferences'},
+                      subroutine => \&wysiwygchanger,
+                  },
+                    { action => 'set_wysiwyg',
+                      breadcrumb =>
+                          { href => '/adm/preferences?action=changewysiwyg',
+                            text => 'Change WYSIWYG Preferences'},
+                      printmenu => 'yes',
+                      subroutine => \&verify_and_change_wysiwyg, }
+                    ));
     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'},
@@ -901,6 +1030,23 @@ sub handler {
                       subroutine => \&verify_and_change_discussion, }
                     ));
                        
+    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',
+                      }));
+
+
     if ($ENV{'user.name'} =~ /^(albertel|koretemey|korte|hallmat3|turtle)$/) {
         push (@Options,({ action => 'debugtoggle',
                           printmenu => 'yes',
@@ -914,6 +1060,7 @@ sub handler {
 </head>
 ENDHEADER
     my $call = undef;
+    my $help = undef;
     my $printmenu = 'yes';
     foreach my $option (@Options) {
         if ($option->{'action'} eq $ENV{'form.action'}) {
@@ -923,15 +1070,16 @@ ENDHEADER
                 &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') {
+    if (($printmenu eq 'yes') && (!$ENV{'form.returnurl'})) {
         my $optionlist = '<table cellpadding="5">';
         if ($ENV{'user.name'} =~ 
                          /^(albertel|kortemey|korte|hallmat3|turtle)$/
@@ -951,10 +1099,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>'; 
@@ -971,6 +1119,9 @@ ENDHEADER
         }
         $optionlist .= '</table>';
         $r->print($optionlist);
+    } elsif ($ENV{'form.returnurl'}) {
+	$r->print('<br /><a href="'.$ENV{'form.returnurl'}.'"><font size="+1">'.
+		  &mt('Return').'</font></a>');
     }
     $r->print(<<ENDFOOTER);
 </body>