--- loncom/html/adm/helper/newslot.helper 2010/10/31 15:32:15 1.27
+++ loncom/html/adm/helper/newslot.helper 2011/12/20 22:47:56 1.29
@@ -112,6 +112,20 @@
+
Time students can no longer reserve:
+
+
+
+ return &{$helper->{DATA}{origslot}}('endreserve','anytime');
+
+
+ if (defined($val) && $val > $helper->{'VARS'}{'starttime'}) {
+ return 'Reservation end time must come before the slot has started.';
+ }
+ return undef;
+
+
+
Maximum number of students allowed in this slot:
@@ -168,6 +182,7 @@
$helper->{'VARS'}{'type'} eq 'preassigned'
delete($helper->{'VARS'}{'startreserve'});
+ delete($helper->{'VARS'}{'endreserve'});
delete($helper->{'VARS'}{'maxspace'});
delete($helper->{'VARS'}{'startunique'});
delete($helper->{'VARS'}{'endunique'});
@@ -330,6 +345,10 @@
$slot{'startreserve'} = $helper->{'VARS'}{'startreserve'};
}
+ if ( $helper->{'VARS'}{'endreserve'} > 0) {
+ $slot{'endreserve'} = $helper->{'VARS'}{'endreserve'};
+ }
+
if ( $helper->{'VARS'}{'startunique'} > 0 &&
$helper->{'VARS'}{'endunique'} > 0 ) {
$slot{'uniqueperiod'} = [$helper->{'VARS'}{'startunique'},
@@ -377,6 +396,9 @@
my $ret = &Apache::lonnet::cput('slots',
{$helper->{'VARS'}{'name'} => \%slot},
$cdom,$cname);
+ if ($ret eq 'ok') {
+ &Apache::lonnet::devalidate_slots_cache($cname,$cdom);
+ }
$result.="\n ".'Name: '.&HTML::Entities::encode($helper->{'VARS'}{'name'}).''.
"\n".' Starts: '.&Apache::lonlocal::locallocaltime($slot{'starttime'}).''.
"\n".' Ends: '.&Apache::lonlocal::locallocaltime($slot{'endtime'}).''.
@@ -395,6 +417,11 @@
&Apache::lonlocal::locallocaltime($slot{'startreserve'}).'';
}
+ if (exists($slot{'endreserve'})) {
+ $result.="\n".' '.$labels{'endreserve'}.': '.
+ &Apache::lonlocal::locallocaltime($slot{'endreserve'}).'';
+ }
+
if (exists($slot{'reservationmsg'})) {
my %options = &Apache::slotrequest::slot_reservationmsg_options();
$result.="\n".' '.$labels{'reservationmsg'}.': '.