[LON-CAPA-cvs] cvs: loncom /html/adm/helper course.initialization.helper

[bowersj2]

bowersj2		Thu Jun  5 09:01:32 2003 EDT

  Modified files:              
    /loncom/html/adm/helper	course.initialization.helper 
  Log:
  When they run the course.initialization helper the first time, don't run
  it again. What an idea!
  
  
  
Index: loncom/html/adm/helper/course.initialization.helper
diff -u loncom/html/adm/helper/course.initialization.helper:1.4 loncom/html/adm/helper/course.initialization.helper:1.5
--- loncom/html/adm/helper/course.initialization.helper:1.4	Fri May 30 10:00:21 2003
+++ loncom/html/adm/helper/course.initialization.helper	Thu Jun  5 09:01:32 2003
@@ -1,8 +1,17 @@
 <helper title="Course Initialization Helper" requiredpriv='opa'>
 
   <exec>
-    $helper->{DATA}->{DOM} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
-    $helper->{DATA}->{CRS} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
+    my $courseid = $ENV{'request.course.id'};
+    my $crsdom = $ENV{'course.'.$courseid.'.domain'};
+    my $crsnum = $ENV{'course.'.$courseid.'.num'};
+    $helper->{DATA}->{DOM} = $crsdom;
+    $helper->{DATA}->{CRS} = $crsnum;
+
+    $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.
+                                        '.course.intialization.not.run'};
+    # Delete the 'course.initialization.not.run' course environment
+    Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, 
+                        $crsdom, $crsnum);
 
     $helper->{DATA}->{GETVAL} = sub {
         my @resultlist = &Apache::lonnet::get('environment', [shift()], 
@@ -24,20 +33,22 @@
   </exec>
 
   <state name="START" title="Welcome to Your New LON-CAPA Course">
+    <eval>
+      return $helper->{DATA}->{FIRST_RUN} ?
+        'This Helper will help you set up your new LON-CAPA course and choose '.
+        'which LON-CAPA features will be active in your new course. You can '.
+        're-visit it later to change settings in your course.' .
+
+        '<p>If you have previous experience with coordinating LON-CAPA courses and '.
+        'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave '.
+        'this helper.' 
+        :
+        'This helper will help you set up your LON-CAPA course and choose ' .
+        'which LON-CAPA features will be active in your course.';
+      </eval>
     <message nextstate="COURSE_DESCRIPTION">
-         This Helper will help you set up your new LON-CAPA course and choose
-         which LON-CAPA features will be active in your course. You can 
-         re-visit it later to change settings in your course.
-
-      <p><b>FIXME:</b> Figure out some way to detect whether this has been
-         run, and change that paragraph appropriatly.</p>
-
-      <p>If you have previous experience with coordinating LON-CAPA courses and
-         prefer not to use the Helper,
-         <a href="/adm/menu">click here</a> to leave this Helper.</p>
-
-      <p>All settings which you can change with this Helper can also be changed while the
-         course is running by going to the PARM screen and clicking on the &quot;Set
+      <p>All settings which you can change with this Helper can also be changed
+         by going to the PARM screen and clicking on the &quot;Set
          course environment&quot; button.</p>
 
       <p>If you do not have experience coordinating LON-CAPA courses, or if you
@@ -45,12 +56,12 @@
       </message>
     </state>
 
-  <state name="COURSE_DESCRIPTION">
+  <state name="COURSE_DESCRIPTION" title="Course Description">
     <message nextstate="FORBID_DISCUSSION">
       The &quot;Course Description&quot; is the name of the course that will be
       seen by the students. This should have been set up correctly when the
       course was created, but please confirm that it is correct, or change it
-      if neccessary. Hit a <nobr>&quot;<b>Next -&gt</b>;&quot;</nobr> to continue.
+      if neccessary. Hit a <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />
       </message>
     <string variable='description' size='60' >
       <defaultvalue>