[BACK]Return to course.initialization.helper CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / html / adm / helper

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

version 1.2, 2003/05/16 17:21:33 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>
     $helper->{DATA}->{DOM} = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $courseid = $env{'request.course.id'};
     $helper->{DATA}->{CRS} = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      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);
       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 15 Line 25
         if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) {          if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) {
             &Apache::lonnet::put('environment', {$name=>$val},               &Apache::lonnet::put('environment', {$name=>$val}, 
                                  $helper->{DATA}->{DOM},                                   $helper->{DATA}->{DOM},
                                  $helper->{DATA}->{CRS});                                    $helper->{DATA}->{CRS});
               # Try to fix bug 1757
               Apache::lonnet::coursedescription($env{'request.course.id'});
             return 1;              return 1;
         } else {          } else {
             return 0;              return 0;
Line 24 Line 36
   </exec>    </exec>
   
   <state name="START" title="Welcome to Your New LON-CAPA Course">    <state name="START" title="Welcome to Your New LON-CAPA Course">
     <message nextstate="FORBID_DISCUSSION">      <eval>
          This Helper will help you set up your new LON-CAPA course and choose        return $helper->{DATA}->{FIRST_RUN} ? 
          which LON-CAPA features will be active in your course. You can           'This Helper will set up your new LON-CAPA course and choose '.
          re-visit it later to change settings in your course.          'which features will be active. 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.'
       <p>If you have previous experience with coordinating LON-CAPA courses and          :
          prefer not to use the Helper,          &mt('This helper will set up your LON-CAPA course and choose which features will be active.');
          <a href="/adm/navmaps">click here</a> to leave this Helper.</p>        </eval>
       <message nextstate="COURSE_DESCRIPTION">
       <p>All settings which you can change with this Helper can also be changed while the        <p>All settings which you can change with this Helper can also be changed
          course is running by going to the PARM screen and clicking on the &quot;Set           by going to the PARM screen and clicking on the &quot;Set
          course environment&quot; button.</p>           course environment&quot; button.</p>
   
       <p>If you do not have experience coordinating LON-CAPA courses, or if you        <p>If you do not have experience coordinating LON-CAPA courses or if you
          prefer the Helper interface, please click <nobr><b>Next -&gt;</b></nobr>.</p>           prefer the Helper interface, please click <nobr><b>Next -&gt;</b></nobr>.</p>
       </message>        </message>
     </state>      </state>
   
     <state name="COURSE_DESCRIPTION" title="Course Description">
       <message nextstate="FORBID_CHAT">
         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 
         <nobr>&quot;<b>Next -&gt;</b>&quot;</nobr> to continue.<br />
         </message>
       <string variable='description' size='60' >
         <defaultvalue>
           return &{$helper->{DATA}->{GETVAL}}('description');
         </defaultvalue>
         <finalcode>
           if (&{$helper->{DATA}->{SETVAL}}('description', $element->getValue())) {
             return 'Course description changed to <b>' . $element->getValue() . 
                    '</b>.';
           }
           </finalcode>
         </string>
       </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,
          all users are allowed to participate in these discussions.           all users are allowed to participate in these discussions.
   
       <p>For more information about discussion and the abilities available        <p>If you do not wish certain types of users to be able to use the 
          to you as a course coordinator, such as banning abusive users or           discussion features, select those types below. Note your class
          hiding discussion postings, please see <b>link</b>.</p>  
   
       <p>If you do not wish certain classes of users to be able to use the   
          discussion features, select those classes below. Note your class  
          may not have all of these roles; you may safely ignore roles you           may not have all of these roles; you may safely ignore roles you
          do not intend to use. (For instance, &quot;Exam Proctor&quot; is           do not intend to use. (For instance, &quot;Exam Proctor&quot; is
          generally useful only for large courses.)</p>           generally useful only for large courses.)</p>
   
       <p><b>Question: Does inability to use discussion mean they simply can't        <p>Types of users not allowed to participate in discussion can
             post, or that they can't see the discussion at all?</b></p>           still view any discussion that other users post.</p>
   
       </message>        </message>
     <choices variable="BANNED_DISCUSSION_ROLES" multichoice="1" allowempty='1'>      <choices variable="BANNED_DISCUSSION_ROLES" multichoice="1" allowempty='1'>
       <choice computer="st"><b>Students</b> - students will not be able to participate in discussions</choice>        <choice computer="st"><b>Students</b> - students will not be able to participate in discussions</choice>
       <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able to participate in discussions</choice>        <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able to participate in discussions</choice>
       <choice computer="in"><b>Instructor</b> - instructors will not be able to participate in discussions</choice>        <choice computer="in"><b>Instructor</b> - instructors will not be able to participate in discussions</choice>
       <choice computer="ep"><b>Exam Proctor</b> - exam proctors will not be able to participate in discussions</choice>  
       <defaultvalue>        <defaultvalue>
         my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied');          my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied');
         $denied =~ s/,/\|\|\|/g;          $denied =~ s/,/\|\|\|/g;
Line 101 Line 170
     </state>      </state>
   
   <state name="DISCUSSION_HTML" title="HTML in Discussions">    <state name="DISCUSSION_HTML" title="HTML in Discussions">
     <message nextstate="FINAL">      <message nextstate="FEEDBACK_ADDRESSES">
       <p>If you like, limited HTML can be allowed in the course discussions.</p>        <p>HTML can be allowed or banned inside of course discussion.</p>
       </message>        </message>
     <choices variable="HTML_ALLOWED">      <choices variable="HTML_ALLOWED">
       <choice computer=""><b>HTML banned</b>: HTML will not be allowed in discussion postings.</choice>        <choice computer=""><b>HTML banned</b>: HTML will not be allowed in discussion postings.</choice>
       <choice computer="yes"><b>HTML allowed</b>: Discussion participants can use limited HTML in their postings.</choice>        <choice computer="yes"><b>HTML allowed</b>: Discussion participants can use limited HTML in their postings.</choice>
       <finalcode>return 'Choices finalcode.';</finalcode>        <defaultvalue>
           return &{$helper->{DATA}->{GETVAL}}('allow_limited_html_in_feedback');
         </defaultvalue>
         <finalcode>
           if (&{$helper->{DATA}->{SETVAL}}('allow_limited_html_in_feedback', $element->getValue())) {
             if ($element->getValue() eq 'yes') {
               return 'Limited HTML allowed in feedback.';
             } else {
               return 'HTML not allowed in feedback.';
             }
           }
           </finalcode>
       </choices>        </choices>
     </state>      </state>
   
       <state name="FEEDBACK_ADDRESSES" title="Feedback Addresses for Course Content">
       <message nextstate="FINAL">
         Course members can provide feedback about the course. You can choose
         who will receive the feedback, such as a different instructor or a
         TA. Please enter their LON-CAPA address below, in the
         form <b>user:domain</b>, where &quot;user&quot; and &quot;domain&quot;
         are both the LON-CAPA username and LON-CAPA domain, not an email
         address.</p> 
         </message>
       <eval>return &mt('<p>Your current LON-CAPA domain is &quot;<b>[_1]</b>&quot;.</p>',"$helper->{DATA}->{DOM}"); 
         </eval>
       <string variable='feedback_addresses' size='60' >
         <defaultvalue>
           return &{$helper->{DATA}->{GETVAL}}('comment.email');
         </defaultvalue>
         <finalcode>
           if (&{$helper->{DATA}->{SETVAL}}('comment.email', $element->getValue())) {
             return 'Comment address(es) updated to <b>' . $element->getValue() . 
                    '</b>.';
           }
           </finalcode>
         </string>
       <message>
         <p><b>Advanced</b>: You can send the feedback from different sections
            to different people, by doing the following:</p>
   
         <ul><li>Separate each entry with a comma.</li>
             <li>To send feedback to a certain address for different sections,
                 append the section name or names (separated by semi-colons)
                 in a parenthesized list after the <b>user:domain</b>.</li></ul>
   
         <p>For example,</p>
   
         <p><b>john102:msu(001;002;003),bob293:msu(004;005;006),madeupname:here(007;008;009)</b></p>
   
         <p>will route course feedback to &quot;john102&quot; for sections 1, 2, and 3, to
            &quot;bob293&quot; for 4, 5, and 6, and to &quot;madeupname:here&quot; for
            7, 8, and 9. Note there is no requirement that the addresses be in any
            particular domain.</p>
         </message>
       </state>
   
   <state name="FINAL" title="Completed">    <state name="FINAL" title="Completed">
     <message>Your course is now set up.</message>      <message>Your course is now set up. Please select the <b>Finish Course 
     <final />        Initialization</b> button to re-intialize the course with your chosen
         settings.
   
         <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>
         </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' />
     </state>      </state>
   </helper>    </helper>
Removed from v.1.2  
changed lines
  Added in v.1.16

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