[LON-CAPA-cvs] cvs: loncom /interface loncreatecourse.pm /localize/localize newphrases.txt

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 27 Feb 2004 17:53:05 -0000


albertel		Fri Feb 27 12:53:05 2004 EDT

  Modified files:              
    /loncom/localize/localize	newphrases.txt 
    /loncom/interface	loncreatecourse.pm 
  Log:
  - BUG#2455, nicer about creating a course with an invalid CC, offers to create the user for you
  
  
Index: loncom/localize/localize/newphrases.txt
diff -u loncom/localize/localize/newphrases.txt:1.37 loncom/localize/localize/newphrases.txt:1.38
--- loncom/localize/localize/newphrases.txt:1.37	Fri Feb 27 12:18:32 2004
+++ loncom/localize/localize/newphrases.txt	Fri Feb 27 12:53:05 2004
@@ -61,3 +61,5 @@
 Student Status: [_1]
 Found a <*response> outside of a <part> in a <part>ed problem
 <*response>s are both inside of <part> and outside of <part>, this is not a valid problem, errors in grading may occur.
+Please click Back on your browser and select another user, or 
+Create User
\ No newline at end of file
Index: loncom/interface/loncreatecourse.pm
diff -u loncom/interface/loncreatecourse.pm:1.51 loncom/interface/loncreatecourse.pm:1.52
--- loncom/interface/loncreatecourse.pm:1.51	Tue Feb 24 18:22:27 2004
+++ loncom/interface/loncreatecourse.pm	Fri Feb 27 12:53:05 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Create a course
 #
-# $Id: loncreatecourse.pm,v 1.51 2004/02/24 23:22:27 albertel Exp $
+# $Id: loncreatecourse.pm,v 1.52 2004/02/27 17:53:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -483,7 +483,16 @@
     #
     # 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