Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.11 and 1.16

version 1.11, 2003/07/21 14:08:30 version 1.16, 2005/08/01 18:04:09
Line 1 Line 1
 <helper title="Course Initialization Helper" requiredpriv='opa'>  <helper title="Course Initialization Helper" requiredpriv='opa'>
   
   <exec>    <exec>
     my $courseid = $ENV{'request.course.id'};      my $courseid = $env{'request.course.id'};
     my $crsdom = $ENV{'course.'.$courseid.'.domain'};      my $crsdom = $env{'course.'.$courseid.'.domain'};
     my $crsnum = $ENV{'course.'.$courseid.'.num'};      my $crsnum = $env{'course.'.$courseid.'.num'};
     $helper->{DATA}->{DOM} = $crsdom;      $helper->{DATA}->{DOM} = $crsdom;
     $helper->{DATA}->{CRS} = $crsnum;      $helper->{DATA}->{CRS} = $crsnum;
   
     $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.      $helper->{DATA}->{FIRST_RUN} = $env{'course.'.$crsnum.
                                         '.course.intialization.not.run'};                                          '.course.intialization.not.run'};
     # Delete the 'course.initialization.not.run' course environment      # Delete the 'course.initialization.not.run' course environment
     Apache::lonnet::put('environment', {'course.helper.not.run' => 0},       Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, 
                         $crsdom, $crsnum);                          $crsdom, $crsnum);
     Apache::lonnet::coursedescription($ENV{'request.course.id'});      Apache::lonnet::coursedescription($env{'request.course.id'});
   
     $helper->{DATA}->{GETVAL} = sub {      $helper->{DATA}->{GETVAL} = sub {
         my @resultlist = &Apache::lonnet::get('environment', [shift()],           my @resultlist = &Apache::lonnet::get('environment', [shift()], 
Line 27 Line 27
                                  $helper->{DATA}->{DOM},                                   $helper->{DATA}->{DOM},
                                  $helper->{DATA}->{CRS});                                   $helper->{DATA}->{CRS});
             # Try to fix bug 1757              # Try to fix bug 1757
             Apache::lonnet::coursedescription($ENV{'request.course.id'});              Apache::lonnet::coursedescription($env{'request.course.id'});
             return 1;              return 1;
         } else {          } else {
             return 0;              return 0;
Line 37 Line 37
   
   <state name="START" title="Welcome to Your New LON-CAPA Course">    <state name="START" title="Welcome to Your New LON-CAPA Course">
     <eval>      <eval>
       return $helper->{DATA}->{FIRST_RUN} ?        return $helper->{DATA}->{FIRST_RUN} ? 
         'This Helper will set up your new LON-CAPA course and choose '.          'This Helper will set up your new LON-CAPA course and choose '.
         'which features will be active. You can '.          'which features will be active. You can '.
         're-visit it later to change settings in your course.' .          're-visit it later to change settings in your course.' .
Line 45 Line 45
         '<p>If you have previous experience with coordinating LON-CAPA courses and '.          '<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.'          'prefer not to use the helper, <a href="/adm/menu">click here</a> to leave.'
         :          :
         'This helper will set up your LON-CAPA course and choose ' .          &mt('This helper will set up your LON-CAPA course and choose which features will be active.');
         'which features will be active.';  
       </eval>        </eval>
     <message nextstate="COURSE_DESCRIPTION">      <message nextstate="COURSE_DESCRIPTION">
       <p>All settings which you can change with this Helper can also be changed        <p>All settings which you can change with this Helper can also be changed
Line 59 Line 58
     </state>      </state>
   
   <state name="COURSE_DESCRIPTION" title="Course Description">    <state name="COURSE_DESCRIPTION" title="Course Description">
     <message nextstate="FORBID_DISCUSSION">      <message nextstate="FORBID_CHAT">
       The &quot;Course Description&quot; is the name of the course that will be        The &quot;Course Description&quot; is the name of the course that will be
       seen by the students.  You may now modify the description and hit         seen by the students.  You may now modify the description and hit 
       <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />        <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />
Line 77 Line 76
       </string>        </string>
     </state>      </state>
   
     <state name="FORBID_CHAT" title="Chat Participation">
       <message nextstate="FORBID_DISCUSSION">
         <p>LON-CAPA has live chat functionality.  This course will receive
            its own chat room.  You may deny students, TAs, or instructors
            the right to access the chat room.</p>
         </message>
       <choices variable="BANNED_CHAT_ROLES" multichoice="1" allowempty='1'>
         <choice computer="st"><b>Students</b> - students will not be able to use or view the chat room.</choice>
         <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able use or view the chat room</choice>
         <choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice>
         <defaultvalue>
           my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied');
           $denied =~ s/,/\|\|\|/g;
           return $denied;
         </defaultvalue>
         <finalcode>
           my $denied = $element->getValue();
           $denied =~ s/\|\|\|/,/g;
           if (&{$helper->{DATA}->{SETVAL}}('plc.roles.denied', $denied)) {
               $denied =~ s/st/ students/;
               $denied =~ s/in/ instructors/;
               $denied =~ s/ta/ teaching assistants/;
               $denied =~ s/ep/ exam proctors/;
               if ($denied =~ /^[^,]*,[^,]*$/) { # only one comma
                   $denied =~ s/,/ and/g;
               } else { # add "and" to last comma
                   $denied =~ s/,([^,]*)$/, and\1/;
               }
               if ($denied) {
                   $denied = substr($denied, 1) . ' not allowed to participate in discussion.';
                   $denied = ucfirst($denied);
               } else {
                   $denied = 'Everyone can participate in discussion.';
               }
               return $denied;
           } else {
               return '';
           }
         </finalcode>
         </choices>
       </state>
   
   <state name="FORBID_DISCUSSION" title="Discussion Participation">    <state name="FORBID_DISCUSSION" title="Discussion Participation">
     <message nextstate="DISCUSSION_HTML">      <message nextstate="DISCUSSION_HTML">
          LON-CAPA hosts discussions on all resources in a course. By default,           LON-CAPA hosts discussions on all resources in a course. By default,
Line 159 Line 200
       are both the LON-CAPA username and LON-CAPA domain, not an email        are both the LON-CAPA username and LON-CAPA domain, not an email
       address.</p>         address.</p> 
       </message>        </message>
     <eval>return '<p>Your current LON-CAPA domain is &quot;<b>'       <eval>return &mt('<p>Your current LON-CAPA domain is &quot;<b>[_1]</b>&quot;.</p>',"$helper->{DATA}->{DOM}"); 
                  . $helper->{DATA}->{DOM} .  
                  '</b>&quot;.</p>';  
       </eval>        </eval>
     <string variable='feedback_addresses' size='60' >      <string variable='feedback_addresses' size='60' >
       <defaultvalue>        <defaultvalue>
Line 202 Line 241
       <p>Remember that all of these settings can be modified in the <b>PARMS</b>        <p>Remember that all of these settings can be modified in the <b>PARMS</b>
          screen, by pushing the <b>Course Environment</b> button.</p>           screen, by pushing the <b>Course Environment</b> button.</p>
       </message>        </message>
       <condition>
         <clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>
         <message>After you select <b>Finish Course Initialization</b>,
                  you will be taken to the Parameter Overview screen to
                  update the dates for this cloned course.</message>
       </condition>
     <final restartCourse='1' />      <final restartCourse='1' />
     </state>      </state>
   </helper>    </helper>

Removed from v.1.11  
changed lines
  Added in v.1.16


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>