--- loncom/auth/lonroles.pm	2003/06/04 22:13:28	1.59
+++ loncom/auth/lonroles.pm	2003/06/18 15:05:32	1.61
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # User Roles Screen
 #
-# $Id: lonroles.pm,v 1.59 2003/06/04 22:13:28 albertel Exp $
+# $Id: lonroles.pm,v 1.61 2003/06/18 15:05:32 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -152,9 +152,9 @@ ENDENTERKEY
 			    unless ($ENV{'request.course.id'}) {
 				&Apache::lonnet::appenv(
 				      "request.course.id"  => $cdom.'_'.$cnum);
-				$furl='/adm/notfound.html';
+				$furl='/adm/roles?tryagain=1';
 				$msg=
-	 '<h1><font color=red>Could not initialize top-level map.</font></h1>';
+	 '<h1><font color=red>Could not initialize course at this time.</font></h1><h3>Please try again.</h3>';
 			    }
 
 			    # Check to see if the user is a CC entering a course 
@@ -228,15 +228,11 @@ ENDHEADER
    "$msg for $ENV{'user.name'} domain $ENV{'user.domain'} access $priv",$fn);
     }
 
-# ---------------------------------------------------------------- Who is this?
+# ------------------------------------------------- Can this user re-init, etc?
 
-    my $advanced=0;
-    foreach $envkey (keys %ENV) {
-        if ($envkey=~/^user\.role\./) {
-	    my (undef,undef,$role,@pwhere)=split(/\./,$envkey);
-            if ($role ne 'st') { $advanced=1; }
-        }
-    }
+    my $advanced=$ENV{'user.adv'};
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['tryagain']);
+    my $tryagain=$ENV{'form.tryagain'};
 
 # -------------------------------------------------------- Generate Page Output
 # --------------------------------------------------------------- Error Header?
@@ -443,7 +439,11 @@ ENDHEADER
                     } elsif ($tstatus eq 'is') {
                         $r->print('<td><input type=submit value=Select name="'.
                                   $trolecode.'"></td>');
-                    } elsif ($ENV{'user.adv'}) {
+                    } elsif ($tryagain) {
+                        $r->print
+                        ('<td><input type=submit value="Try Selecting Again"'.
+                             ' name="'.$trolecode.'"></td>');
+                    } elsif ($advanced) {
                         $r->print
                             ('<td><input type=submit value="Re-Initialize"'.
                              ' name="'.$trolecode.'"></td>');