--- loncom/auth/lonroles.pm	2000/09/30 19:19:34	1.8
+++ loncom/auth/lonroles.pm	2000/10/02 21:34:58	1.9
@@ -5,7 +5,7 @@
 # 5/21/99,5/22,5/25,5/26,5/31,6/2,6/10,7/12,7/14 Gerd Kortemeyer)
 # 11/23 Gerd Kortemeyer)
 # 1/14,03/06,06/01,07/22,07/24,07/25,
-# 09/04,09/06,09/28,09/29,09/30 Gerd Kortemeyer
+# 09/04,09/06,09/28,09/29,09/30,10/2 Gerd Kortemeyer
 #
 package Apache::lonroles;
 
@@ -26,9 +26,12 @@ sub handler {
 <html>
 <head>
 <title>LON-CAPA User Roles</title>
-</head>
-<body bgcolor="#FFFFFF">
 ENDHEADER
+    if ($ENV{'form.orgurl'}) {
+       $r->print('<meta HTTP-EQUIV="Refresh" CONTENT="1; url='.
+                $ENV{'form.orgurl'}.'">');
+    }
+    $r->print('</head><body bgcolor="#FFFFFF">');
 
     my $now=time;
     my $then=$ENV{'user.login.time'};
@@ -58,7 +61,9 @@ ENDHEADER
                    &Apache::lonnet::appenv('request.role' => $trolecode);
                    my ($cdom,$cnum)=split(/\//,$where);
                    if ($cnum) {
-		      $r->print( &Apache::lonuserstate::readmap($where) );
+		      &Apache::lonuserstate::readmap($where);
+                      $r->print('<h1>Role initialized</h1></body></html>');
+                      return OK;
                    }
                }
             } 
