--- loncom/auth/lonroles.pm	2001/07/06 15:11:19	1.27
+++ loncom/auth/lonroles.pm	2001/10/31 17:47:55	1.30
@@ -9,7 +9,7 @@
 # 12/08,12/28,
 # 01/15/01 Gerd Kortemeyer
 # 02/27/01 Scott Harrison
-# 03/02,05/03,05/25,05/30,06/01,07/06 Gerd Kortemeyer
+# 03/02,05/03,05/25,05/30,06/01,07/06,08/06 Gerd Kortemeyer
 
 package Apache::lonroles;
 
@@ -19,6 +19,7 @@ use Apache::lonuserstate();
 use Apache::Constants qw(:common);
 use Apache::File();
 use Apache::lonmenu;
+use Apache::loncommon;
 
 sub handler {
 
@@ -76,6 +77,7 @@ sub handler {
 	 '<h1><font color=red>Could not initialize top-level map.</font></h1>';
                           }
 	                 $r->content_type('text/html');
+                         &Apache::loncommon::no_cache($r);
                          $r->send_http_header;
                          my $swinfo=&Apache::lonmenu::rawconfig;
                          print (<<ENDREDIR);
@@ -104,11 +106,11 @@ ENDREDIR
 # =============================================================== No Roles Init
 
     $r->content_type('text/html');
+    &Apache::loncommon::no_cache($r);
     $r->send_http_header;
     return OK if $r->header_only;
 
     my $swinfo=&Apache::lonmenu::rawconfig;
-
     $r->print(<<ENDHEADER);
 <html>
 <head>
@@ -285,6 +287,10 @@ ENDHEADER
 		if ($tstatus eq 'is') {
                     $r->print('<td><input type=submit value=Select name="'.
                               $trolecode.'"></td>');
+                } elsif ($ENV{'user.adv'}) {
+                    $r->print(
+                        '<td><input type=submit value="Re-Initialize" name="'.
+                              $trolecode.'"></td>');
                 } else {
                     $r->print('<td>&nbsp;</td>');
                 }
