--- loncom/html/adm/helper/newslot.helper	2006/02/03 22:40:46	1.12
+++ loncom/html/adm/helper/newslot.helper	2006/12/18 21:49:32	1.22
@@ -1,5 +1,9 @@
 <helper title="Slot Creation" requiredpriv="mgq">
-  <state name="START" title="Specify Required Attributes">
+  <state name="START" title="Specify Required Attributes"
+         help="Slot_RequiredAttributes">
+
+    <nextstate>OPTIONAL</nextstate>
+
     <exec>
       if (!exists($helper->{'VARS'}{'name'}) ||
 	  $helper->{'VARS'}{'name'} !~ /\S/) {
@@ -26,8 +30,8 @@
 	  return $slot{$name}{$which};
       }
     </exec>
-    <message nextstate="OPTIONAL">
-        Name: <br />&nbsp;&nbsp;&nbsp;
+    <message>
+        <br />Name: <br />&nbsp;&nbsp;&nbsp;
     </message>
     <string variable="name" size="30">
       <validator>
@@ -42,7 +46,7 @@
     </string>
     <condition>
       <clause>$helper->{DATA}{copy}</clause>
-      <message nextstate="OPTIONAL">
+      <message>
 	<p>Changing the Name will create a new slot with the new name, and not rename the existing slot.</p>
       </message>
     </condition>
@@ -61,6 +65,12 @@
       <defaultvalue>
         return &{$helper->{DATA}{origslot}}('endtime');
       </defaultvalue>
+      <validator>
+         if ($val < $helper->{'VARS'}{'starttime'}) {
+	     return 'End time must be later than the start time.';
+         }
+	 return undef;
+      </validator>
     </date>
     <message>
       <br />Type:
@@ -74,7 +84,9 @@
     </choices>
   </state>
 
-  <state name="OPTIONAL" title="Specify Optional Attributes">
+
+  <state name="OPTIONAL" title="Specify Optional Attributes"
+	 help="Slot_OptionalAttributes">
     <message>
         <p>Description:<br />&nbsp;&nbsp;&nbsp;
     </message>
@@ -92,6 +104,12 @@
         <defaultvalue>
           return &{$helper->{DATA}{origslot}}('startreserve','anytime');
         </defaultvalue>
+        <validator>
+           if (defined($val) && $val > $helper->{'VARS'}{'starttime'}) {
+	       return 'Reservation time must come before the slot has started.';
+           }
+	   return undef;
+        </validator>
       </date>
       <message>
          </p><p>Maxium number of students allowed in this slot:<br />&nbsp;&nbsp;&nbsp;
@@ -124,6 +142,12 @@
           if (ref($default)) { return $default->[1]; }
           return 'anytime';
         </defaultvalue>
+        <validator>
+           if (defined($val) && $val < $helper->{'VARS'}{'startunique'}) {
+	       return 'End time must be later than the start time.';
+           }
+	   return undef;
+        </validator>
       </date>
     </condition>
     <condition>
@@ -135,6 +159,20 @@
         delete($helper->{'VARS'}{'endunique'});
       </exec>
     </condition>
+
+    <message>
+      </p><p>Proctored access:
+    </message>
+    <choices variable="useproctor">
+      <choice computer='no'>No proctor checkin required for access.</choice>
+      <choice computer='yes'>Require proctored checkin for access.</choice>
+      <defaultvalue>
+        my $default=&{$helper->{DATA}{origslot}}('proctor');
+        if ($default) { return 'yes'; }
+        return 'no';
+      </defaultvalue>
+    </choices>
+
     <message>
       </p><p>Secret word proctors use to checkin users:<br />&nbsp;&nbsp;&nbsp;
     </message>
@@ -149,6 +187,8 @@
     <message>
       </p><p>Slot is:
     </message>
+    <helpicon file="Slot_ChoosingResources" />
+
     <choices variable="restricttosymb">
       <choice nextstate="PROCTOR" computer='any'>usable for any resource.</choice>
       <choice nextstate="RESOURCESELECT" computer='resource'>restricted to a specific resource.</choice>
@@ -158,10 +198,9 @@
         return 'any';
       </defaultvalue>
     </choices>
+    
     <message>
-       
-	</p><p>IP restrictions:<br />&nbsp;&nbsp;&nbsp;
-      
+	</p><p>IP restrictions:<br />&nbsp;&nbsp;&nbsp;      
     </message>
     <string variable="ip" size="30">
       <validator>
@@ -173,30 +212,79 @@
     </string>
     <message>  </p>  </message>
   </state>
+
+
   <state name="RESOURCESELECT" title="Specify Optional Attributes">
+
+    <nextstate>PROCTOR</nextstate>
+
     <resource variable="symb">
       <filterfunc>return $res->is_problem()</filterfunc>
       <valuefunc>return $res->symb()</valuefunc>
-      <nextstate>PROCTOR</nextstate>
       <defaultvalue>
         return &{$helper->{DATA}{origslot}}('symb');
       </defaultvalue>
     </resource>    
   </state>
-  <state name="PROCTOR" title="Specify Proctors">
+
+
+  <state name="PROCTOR" title="Specify Proctors"
+	 help="Slot_SpecifyProctors">
+
+    <skip>
+      <clause>$helper->{'VARS'}{'useproctor'} eq 'no'</clause>
+      <nextstate>RESTRICTUSER</nextstate>
+    </skip>
+
+    <nextstate>RESTRICTUSER</nextstate>
+
     <student variable="proctor" multichoice="1" coursepersonnel="1"
-             nextstate="FINISH" activeonly="1" emptyallowed="1">
+             activeonly="1" emptyallowed="1">
       <defaultvalue>
         my @defaults;
         my $default=&{$helper->{DATA}{origslot}}('proctor');
         if ($default) {
-	    $default=~ tr/@/:/;
 	    @defaults=(split(',',$default)); 
 	}
         return @defaults;
       </defaultvalue>
     </student>
   </state>
+
+
+  <state name="RESTRICTUSER" title="Restrict slot availability"
+	 help="Slot_RestrictAvailibility">
+    <skip>
+       <clause>$helper->{'VARS'}{'type'} ne 'schedulable_student'</clause>
+       <nextstate>FINISH</nextstate>
+    </skip>
+
+    <nextstate>FINISH</nextstate>
+    <message>
+      <p>Slots are by default available to all users in a course, if you would like this slot to be restricted to a subset of users you can specify restrictions.</p>
+    </message>
+
+    <message>
+      Select sections to limit slot availability to: <br />&nbsp;&nbsp;&nbsp;
+    </message>
+    <section variable="allowedsections" multichoice="1" allowempty="1">
+      <defaultvalue>
+        return join('|||',
+		    split(',',&{$helper->{DATA}{origslot}}('allowedsections')));
+      </defaultvalue>
+    </section>
+    <message>
+      Select users to limit slot availability to: <br />&nbsp;&nbsp;&nbsp;
+    </message>
+    <student variable="allowedusers" multichoice="1" coursepersonnel="1"
+             activeonly="1" emptyallowed="1">
+      <defaultvalue>
+	 return split(',',&{$helper->{DATA}{origslot}}('allowedusers'));
+      </defaultvalue>
+    </student>
+  </state>
+
+
   <state name="FINISH" title="Creating/Modfying Slot">
 	    <message> Created Slot  </message>	
     <final>
@@ -204,33 +292,62 @@
         my $result;
 	if ($helper->{'STATE'} ne 'FINISH') { return; }
 	my %slot;
+
 	foreach my $which ('type','starttime','endtime') {
 	    $slot{$which} = $helper->{'VARS'}{$which};
 	}
-	foreach my $which ('ip','description','maxspace',
-			   'secret','symb') {
+
+	foreach my $which ('ip','description','maxspace','secret','symb') {
 	    if ( $helper->{'VARS'}{$which} =~/\S/ ) {
 		$slot{$which} = $helper->{'VARS'}{$which};
 	    }
 	}
+
 	if ( $helper->{'VARS'}{'startreserve'} > 0) {
 		$slot{'startreserve'} = $helper->{'VARS'}{'startreserve'};
 	}
+
 	if ( $helper->{'VARS'}{'startunique'} > 0 &&
 	     $helper->{'VARS'}{'endunique'} > 0 ) {
 	    $slot{'uniqueperiod'} = [$helper->{'VARS'}{'startunique'},
 				     $helper->{'VARS'}{'endunique'}];
 	}
-        if ( $helper->{'VARS'}{'proctor'} =~/\S/ ) {
+
+        if ( $helper->{'VARS'}{'useproctor'} eq 'yes'
+	     && $helper->{'VARS'}{'proctor'} =~/\S/ ) {
 	    my @names;
+	    # just need the username/domain throw away the other data 
+            # that <student> returns
 	    foreach my $user (split(/\|\|\|/, $helper->{'VARS'}{'proctor'})) {
 		my ($uname,$udomain)=split(/:/,$user);
-		push(@names,"$uname\@$udomain");
+		push(@names,"$uname:$udomain");
 	    }
-	    # make sure the usenrmaes are unique
+	    # make sure the usernmaes are unique
 	    my %proctors = map { ($_,1) } @names;
 	    $slot{'proctor'}=join(',',sort(keys(%proctors)));
 	}
+
+        if ( $helper->{'VARS'}{'allowedsections'} =~/\S/ ) {
+	    $slot{'allowedsections'}=
+		join(',',sort(split(/\|\|\|/,
+				    $helper->{'VARS'}{'allowedsections'})));
+	}
+
+        if ( $helper->{'VARS'}{'allowedusers'} =~/\S/ ) {
+	    my @names;
+	    # just need the username/domain throw away the other data 
+            # that <student> returns
+	    foreach my $item (split(/\|\|\|/,
+				    $helper->{'VARS'}{'allowedusers'})) {
+		my ($uname,$udomain)=split(/:/,$item);
+		push(@names,"$uname:$udomain");
+	    }
+
+	    # make sure the choices are unique
+	    my %users = map { ($_,1) } @names;
+	    $slot{'allowedusers'}=join(',',sort(keys(%users)));
+	}
+
         my $cname = $env{'course.'.$env{'request.course.id'}.'.num'};
         my $cdom  = $env{'course.'.$env{'request.course.id'}.'.domain'};
 
@@ -243,7 +360,8 @@
                  "\n".'<li> Type: '.$slot{'type'}.'</li>';
         my %labels =
              map {($_->[0],$_->[1])} &Apache::slotrequest::csvupload_fields();
-        foreach my $which ('ip','description','maxspace','secret','symb') {
+        foreach my $which ('ip','description','maxspace','secret','symb',
+			   'allowedsections','allowedusers') {
 	    if (exists($slot{$which})) {
 		$result.="\n".'<li> '.$labels{$which}.': '.
 		    &HTML::Entities::encode($slot{$which}).'</li>';