[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.1 and 1.2

version 1.1, 2003/05/08 19:53:11 version 1.2, 2003/05/16 17:21:33
Line 1 Line 1
 <helper title="Course Initialization Helper">  <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'};
   
       $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}); 
               return 1;
           } else {
               return 0;
           }
       }
     </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">      <message nextstate="FORBID_DISCUSSION">
       <p>This helper will help you set up your new LON-CAPA course and choose           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            which LON-CAPA features will be active in your course. You can 
          re-visit it later to change settings in your course.</p>           re-visit it later to change settings in your course.
   
       <p><b>FIXME:</b> Figure out some way to detect whether this has been        <p><b>FIXME:</b> Figure out some way to detect whether this has been
          run, and change that paragraph appropriatly.</p>           run, and change that paragraph appropriatly.</p>
   
       <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 to use the in-course interface to change these settings,            prefer not to use the Helper,
          <a href="/adm/navmaps">click here</a> to leave this helper.</p>           <a href="/adm/navmaps">click here</a> to leave this Helper.</p>
   
       <p>All settings 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 while the
          course is running by going to the PARM screen and clicking on the &quot;Set           course is running 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>        </message>
     </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>
   
   <state name="DISCUSSION_HTML" title="HTML in Discussions">    <state name="DISCUSSION_HTML" title="HTML in Discussions">
     <message nextstate="FEEDBACK_ADDRESSES">      <message nextstate="FINAL">
       <p>If you like, limited HTML can be allowed in the course discussions.</p>        <p>If you like, limited HTML can be allowed in the course discussions.</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>
       </choices>        </choices>
     </state>      </state>
   
     
   
     <state name="FINAL" title="Completed">
       <message>Your course is now set up.</message>
       <final />
       </state>
   </helper>    </helper>
Removed from v.1.1  
changed lines
  Added in v.1.2

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