--- loncom/interface/loncreatecourse.pm	2004/01/31 02:07:53	1.48
+++ loncom/interface/loncreatecourse.pm	2004/03/30 20:46:24	1.53
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.48 2004/01/31 02:07:53 www Exp $
+# $Id: loncreatecourse.pm,v 1.53 2004/03/30 20:46:24 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -390,7 +390,7 @@ $lt{'asov'}.
 <h2>$lt{'assp'}</h2>
 <p>
 <b>$lt{'oaas'}: </b>
-<input type="checkbox" name="openall" checked>
+<input type="checkbox" name="openall" />
 </p>
 <h2>$lt{'mssg'}</h2>
 <p>
@@ -483,7 +483,16 @@ ENDENHEAD
     #
     # Check the veracity of the course coordinator
     if (&Apache::lonnet::homeserver($ccuname,$ccdomain) eq 'no_host') {
-        $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'</body></html>');
+	$r->print('<form action="/adm/createuser" method="post" name="crtuser">');
+        $r->print(&mt('No such user').' '.$ccuname.' '.&mt('at').' '.$ccdomain.'.<br />');
+	$r->print(&mt("Please click Back on your browser and select another user, or "));
+	$r->print('
+	    <input type="hidden" name="phase" value="get_user_info" />
+            <input type="hidden" name="ccuname" value="'.$ccuname.'" />
+            <input type="hidden" name="ccdomain" value="'.$ccdomain.'" />
+            <input name="userrole" type="submit" value="'.
+		  &mt('Create User').'" />
+	</form></body></html>');
 	return;
     }
     # Check the proposed home server for the course
@@ -564,6 +573,9 @@ ENDENHEAD
             }
         }
     }
+# do not hide course coordinator from staff listing, 
+# even if privileged
+    $cenv{'nothideprivileged'}=$ccuname.':'.$ccdomain;
     if ($ENV{'form.crsxlist'}) {
        $cenv{'internal.crosslistings'}=$ENV{'form.crsxlist'};
        my @xlists = ();
@@ -668,6 +680,12 @@ ENDENHEAD
     # Use new Randomseed
     #
     $cenv{'rndseed'}=&Apache::lonnet::latest_rnd_algorithm_id();;
+    $cenv{'receiptalg'}=&Apache::lonnet::latest_receipt_algorithm_id();;
+    #
+    # The encryption code and receipt prefix for this course
+    #
+    $cenv{'internal.encseed'}=$Apache::lonnet::perlvar{'lonReceipt'}.$$.time.int(rand(9999));
+    $cenv{'internal.encpref'}=100+int(9*rand(99));
     #
     # By default, use standard grading
     $cenv{'grading'} = 'standard';