--- loncom/interface/lonpreferences.pm	2004/06/08 01:32:02	1.44
+++ 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.44 2004/06/08 01:32:02 www Exp $
+# $Id: lonpreferences.pm,v 1.50 2004/11/19 20:17:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -177,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         #
@@ -868,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 => 
@@ -888,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',
@@ -908,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'},
@@ -938,6 +1016,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,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',
@@ -964,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'}) {
@@ -973,11 +1070,12 @@ 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);
     }
@@ -1001,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>';