--- loncom/interface/loncreatecourse.pm 2003/07/24 17:53:59 1.26 +++ loncom/interface/loncreatecourse.pm 2003/08/07 14:28:49 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.26 2003/07/24 17:53:59 matthew Exp $ +# $Id: loncreatecourse.pm,v 1.27 2003/08/07 14:28:49 bowersj2 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -208,6 +208,10 @@ ENDENHEAD $ENV{'form.course_home'}, $ENV{'form.nonstandard'}); + # Note: The testing routines depend on this being output; see + # Utils::Course. This needs to at least be output as a comment + # if anyone ever decides to not show this, and Utils::Course::new + # will need to be suitably modified. $r->print('New LON-CAPA Course ID: '.$courseid.'
'); # # Check if created correctly