[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.14 and 1.17

version 1.14, 2004/06/02 17:31:03 version 1.17, 2006/10/17 15:04:59
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 87 Line 87
       <choice computer="ta"><b>Teaching Assistants</b> - teaching assistants will not be able 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>        <choice computer="in"><b>Instructor</b> - instructors will not be able to use or view the chat room</choice>
       <defaultvalue>        <defaultvalue>
         my $denied = &{$helper->{DATA}->{GETVAL}}('plch.roles.denied');          my $denied = &{$helper->{DATA}->{GETVAL}}('plc.roles.denied');
         $denied =~ s/,/\|\|\|/g;          $denied =~ s/,/\|\|\|/g;
         return $denied;          return $denied;
       </defaultvalue>        </defaultvalue>
Line 105 Line 105
                 $denied =~ s/,([^,]*)$/, and\1/;                  $denied =~ s/,([^,]*)$/, and\1/;
             }              }
             if ($denied) {              if ($denied) {
                 $denied = substr($denied, 1) . ' not allowed to participate in discussion.';                  $denied = substr($denied, 1) . ' not allowed to participate in live chatroom.';
                 $denied = ucfirst($denied);                  $denied = ucfirst($denied);
             } else {              } else {
                 $denied = 'Everyone can participate in discussion.';                  $denied = 'Everyone can participate in live chatroom.';
             }              }
             return $denied;              return $denied;
         } else {          } else {
Line 242 Line 242
          screen, by pushing the <b>Course Environment</b> button.</p>           screen, by pushing the <b>Course Environment</b> button.</p>
       </message>        </message>
     <condition>      <condition>
       <clause>$ENV{'course.'.$ENV{'request.course.id'}.'.clonedfrom'}</clause>        <clause>$env{'course.'.$env{'request.course.id'}.'.clonedfrom'}</clause>
       <message>After you select <b>Finish Course Initialization</b>,        <message>After you select <b>Finish Course Initialization</b>,
                you will be taken to the Parameter Overview screen to                 you will be taken to the Parameter Overview screen to
                update the dates for this cloned course.</message>                 update the dates for this cloned course.</message>
Removed from v.1.14  
changed lines
  Added in v.1.17

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