Diff for /loncom/html/adm/helper/course.initialization.helper between versions 1.1 and 1.7

version 1.1, 2003/05/08 19:53:11 version 1.7, 2003/06/25 16:50:50
Line 1 Line 1
 <helper title="Course Initialization Helper">  <helper title="Course Initialization Helper" requiredpriv='opa'>
   
   <state name="START" title="Welcome to Your New LON-CAPA Course">    <exec>
     <message nextstate="FORBID_DISCUSSION">      my $courseid = $ENV{'request.course.id'};
       <p>This helper will help you set up your new LON-CAPA course and choose      my $crsdom = $ENV{'course.'.$courseid.'.domain'};
          which LON-CAPA features will be active in your course. You can       my $crsnum = $ENV{'course.'.$courseid.'.num'};
          re-visit it later to change settings in your course.</p>      $helper->{DATA}->{DOM} = $crsdom;
       $helper->{DATA}->{CRS} = $crsnum;
       <p><b>FIXME:</b> Figure out some way to detect whether this has been  
          run, and change that paragraph appropriatly.</p>      $helper->{DATA}->{FIRST_RUN} = $ENV{'course.'.$crsnum.
                                           '.course.intialization.not.run'};
       <p>If you have previous experience with coordinating LON-CAPA courses and      # Delete the 'course.initialization.not.run' course environment
          prefer to use the in-course interface to change these settings,       Apache::lonnet::put('environment', {'course.helper.not.run' => 0}, 
          <a href="/adm/navmaps">click here</a> to leave this helper.</p>                          $crsdom, $crsnum);
       Apache::lonnet::coursedescription($ENV{'request.course.id'});
   
       $helper->{DATA}->{GETVAL} = sub {
           my @resultlist = &Apache::lonnet::get('environment', [shift()], 
                                                 $helper->{DATA}->{DOM},
                                                 $helper->{DATA}->{CRS}); 
           return $resultlist[1]; };
       $helper->{DATA}->{SETVAL} = sub {
           my $name = shift;
           my $val = shift;
           if (&{$helper->{DATA}->{GETVAL}}($name) ne $val) {
               &Apache::lonnet::put('environment', {$name=>$val}, 
                                    $helper->{DATA}->{DOM},
                                    $helper->{DATA}->{CRS});
               # Try to fix bug 1757
               Apache::lonnet::coursedescription($ENV{'request.course.id'});
               return 1;
           } else {
               return 0;
           }
       }
     </exec>
   
       <p>All settings you can change with this helper can also be changed while the    <state name="START" title="Welcome to Your New LON-CAPA Course">
          course is running by going to the PARM screen and clicking on the &quot;Set      <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">
         <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>           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 <b>Next -&gt;</b>.</p>           prefer the Helper interface, please click <nobr><b>Next -&gt;</b></nobr>.</p>
         </message>
       </state>
   
     <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.<br />
       </message>        </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>
   
   <state name="FORBID_DISCUSSION" title="Discussion Participation">    <state name="FORBID_DISCUSSION" title="Discussion Participation">
     <message nextstate="DISCUSSION_HTML">      <message nextstate="DISCUSSION_HTML">
       <p>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.</p>           all users are allowed to participate in these discussions.
   
       <p>For more information about discussion and the abilities available        <p>For more information about discussion and the abilities available
          to you as a course coordinator, such as banning abusive users or           to you as a course coordinator, such as banning abusive users or
          hiding discussion postings, please see <b>link</b>.</p>           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         <p>If you do not wish certain classes of users to be able to use the 
          discussion features, select those classes below.</p>           discussion features, select those classes below. Note your class
            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
            generally useful only for large courses.)</p>
   
       <p><b>Question: Does inability to use discussion mean they simply can't        <p><b>Question: Does inability to use discussion mean they simply can't
             post, or that they can't see the discussion at all?</b></p>              post, or that they can't see the discussion at all?</b></p>
       </message>        </message>
     <choices variable="BANNED_DISCUSSION_ROLES" multichoice="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>
           my $denied = &{$helper->{DATA}->{GETVAL}}('pch.roles.denied');
           $denied =~ s/,/\|\|\|/g;
           return $denied;
         </defaultvalue>
         <finalcode>
           my $denied = $element->getValue();
           $denied =~ s/\|\|\|/,/g;
           if (&{$helper->{DATA}->{SETVAL}}('pch.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>        </choices>
     </state>      </state>
   
Line 51 Line 141
     <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>
         <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">
         People in the course can provide feedback about the resources used in
         the course by using the <b>FDBK</b> button while viewing a resource. If
         the user labels the feedback as a &quot;question about course content&quot;,
         it is sent to the course coordinator of that course.
   
         <p>If you'd like that feedback to be sent to someone else, such as a
         different instructor, 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 '<p>Your current LON-CAPA domain is &quot;<b>' 
                    . $helper->{DATA}->{DOM} .
                    '</b>&quot;.</p>';
         </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 Functionality</b>: If you'd like to redirect different 
            section's feedback to different people, you can enter it as follows:</p>
   
         <ul><li>Seperate each entry with a comma.</li>
             <li>To send feedback to a certain address for different sections,
                 append the section name or names (seperated 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">
       <message>Your course is now set up. Please select the <b>Finish Course 
         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>
       <final restartCourse='1' />
       </state>
   </helper>    </helper>

Removed from v.1.1  
changed lines
  Added in v.1.7


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