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

Diff for /loncom/html/adm/helper/newslot.helper between versions 1.22 and 1.28

version 1.22, 2006/12/18 21:49:32 version 1.28, 2011/12/18 17:15:08
Line 76 Line 76
       <br />Type:        <br />Type:
     </message>      </message>
     <choices variable="type">      <choices variable="type">
       <choice computer='preassigned'>Instructor asssignable.</choice>        <choice computer='preassigned'>Instructor assignable.</choice>
       <choice computer='schedulable_student'>Student selectable.</choice>        <choice computer='schedulable_student'>Student selectable.</choice>
       <defaultvalue>        <defaultvalue>
         return &{$helper->{DATA}{origslot}}('type','preassigned');          return &{$helper->{DATA}{origslot}}('type','preassigned');
Line 112 Line 112
         </validator>          </validator>
       </date>        </date>
       <message>        <message>
          </p><p>Maxium number of students allowed in this slot:<br />&nbsp;&nbsp;&nbsp;          </p><p>Time students can no longer reserve:<br />&nbsp;&nbsp;&nbsp;
         </message>
         <date variable="endreserve" hoursminutes="1" anytime="1">
           <defaultvalue>
             return &{$helper->{DATA}{origslot}}('endreserve','anytime');
           </defaultvalue>
           <validator>
              if (defined($val) && $val > $helper->{'VARS'}{'starttime'}) {
                  return 'Reservation end time must come before the slot has started.';
              }
              return undef;
           </validator>
         </date>
         <message>
            </p><p>Maximum number of students allowed in this slot:<br />&nbsp;&nbsp;&nbsp;
       </message>        </message>
       <string variable="maxspace" size="4">        <string variable="maxspace" size="4">
         <validator>          <validator>
Line 124 Line 138
         </defaultvalue>          </defaultvalue>
       </string>        </string>
       <message>        <message>
          </p><p>Period of time in which this slot is can only be uniquely chosen:<br />&nbsp;&nbsp;&nbsp;Start:           </p><p>Period of time when this slot can only be uniquely chosen:<br />&nbsp;&nbsp;&nbsp;Start:
       </message>        </message>
       <date variable="startunique" hoursminutes="1" anytime="1">        <date variable="startunique" hoursminutes="1" anytime="1">
         <defaultvalue>          <defaultvalue>
Line 149 Line 163
    return undef;     return undef;
         </validator>          </validator>
       </date>        </date>
         <message>
           </p><p>Message(s) triggered by reservation change by student 
         </message>
       <choices variable="reservationmsg">
         <choice computer='only_student'>Sent to student</choice>
         <choice computer='student_and_user_notes_screen'>Sent to student and added to user notes</choice>
         <choice computer='none'>None sent and no record in user notes</choice>
         <defaultvalue>
           my $default=&{$helper->{DATA}{origslot}}('reservationmsg');
           if ($default eq 'only_student') { return $default; }
           if ($default eq 'student_and_user_notes_screen') { return $default; }
           return 'none';
         </defaultvalue>
       </choices>
     </condition>      </condition>
     <condition>      <condition>
       <clause>$helper->{'VARS'}{'type'} eq 'preassigned'</clause>        <clause>$helper->{'VARS'}{'type'} eq 'preassigned'</clause>
       <exec>        <exec>
         delete($helper->{'VARS'}{'startreserve'});          delete($helper->{'VARS'}{'startreserve'});
           delete($helper->{'VARS'}{'endreserve'});
         delete($helper->{'VARS'}{'maxspace'});          delete($helper->{'VARS'}{'maxspace'});
         delete($helper->{'VARS'}{'startunique'});          delete($helper->{'VARS'}{'startunique'});
         delete($helper->{'VARS'}{'endunique'});          delete($helper->{'VARS'}{'endunique'});
Line 239 Line 268
     <nextstate>RESTRICTUSER</nextstate>      <nextstate>RESTRICTUSER</nextstate>
   
     <student variable="proctor" multichoice="1" coursepersonnel="1"      <student variable="proctor" multichoice="1" coursepersonnel="1"
              activeonly="1" emptyallowed="1">               activeonly="1" emptyallowed="0">
       <defaultvalue>        <defaultvalue>
         my @defaults;          my @defaults;
         my $default=&{$helper->{DATA}{origslot}}('proctor');          my $default=&{$helper->{DATA}{origslot}}('proctor');
Line 303 Line 332
     }      }
  }   }
   
           if ($helper->{'VARS'}{'type'} eq 'schedulable_student') {
               if (($helper->{'VARS'}{'reservationmsg'} eq 'only_student') ||
                  ($helper->{'VARS'}{'reservationmsg'} eq 'student_and_user_notes_screen')) {
                   $slot{'reservationmsg'} = $helper->{'VARS'}{'reservationmsg'}; 
               } else {
                   $slot{'reservationmsg'} = 'none';
               }
           }
   
  if ( $helper->{'VARS'}{'startreserve'} > 0) {   if ( $helper->{'VARS'}{'startreserve'} > 0) {
  $slot{'startreserve'} = $helper->{'VARS'}{'startreserve'};   $slot{'startreserve'} = $helper->{'VARS'}{'startreserve'};
  }   }
   
           if ( $helper->{'VARS'}{'endreserve'} > 0) {
               $slot{'endreserve'} = $helper->{'VARS'}{'endreserve'};
           }
   
  if ( $helper->{'VARS'}{'startunique'} > 0 &&   if ( $helper->{'VARS'}{'startunique'} > 0 &&
      $helper->{'VARS'}{'endunique'} > 0 ) {       $helper->{'VARS'}{'endunique'} > 0 ) {
     $slot{'uniqueperiod'} = [$helper->{'VARS'}{'startunique'},      $slot{'uniqueperiod'} = [$helper->{'VARS'}{'startunique'},
Line 371 Line 413
     $result.="\n".'<li> '.$labels{'startreserve'}.': '.      $result.="\n".'<li> '.$labels{'startreserve'}.': '.
     &Apache::lonlocal::locallocaltime($slot{'startreserve'}).'</li>';      &Apache::lonlocal::locallocaltime($slot{'startreserve'}).'</li>';
  }   }
   
           if (exists($slot{'endreserve'})) {
               $result.="\n".'<li> '.$labels{'endreserve'}.': '.
                       &Apache::lonlocal::locallocaltime($slot{'endreserve'}).'</li>';
           }
   
           if (exists($slot{'reservationmsg'})) {
               my %options = &Apache::slotrequest::slot_reservationmsg_options();
               $result.="\n".'<li> '.$labels{'reservationmsg'}.': '.
                             $options{$slot{'reservationmsg'}}.'</li>';
           }
   
         if (exists($slot{'proctor'})) {          if (exists($slot{'proctor'})) {
     my $proctors = $slot{'proctor'};      my $proctors = $slot{'proctor'};
     $proctors =~ s/,/, /g;      $proctors =~ s/,/, /g;
Removed from v.1.22  
changed lines
  Added in v.1.28

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