--- loncom/html/adm/helper/newslot.helper 2006/03/07 16:29:14 1.14
+++ loncom/html/adm/helper/newslot.helper 2006/05/09 19:06:07 1.16
@@ -64,6 +64,12 @@
return &{$helper->{DATA}{origslot}}('endtime');
+
+ if ($val < $helper->{'VARS'}{'starttime'}) {
+ return 'End time must be later than the start time.';
+ }
+ return undef;
+
Type:
@@ -96,6 +102,12 @@
return &{$helper->{DATA}{origslot}}('startreserve','anytime');
+
+ if (defined($val) && $val > $helper->{'VARS'}{'starttime'}) {
+ return 'Reservation time must come before the slot has started.';
+ }
+ return undef;
+
Maxium number of students allowed in this slot:
@@ -128,6 +140,12 @@
if (ref($default)) { return $default->[1]; }
return 'anytime';
+
+ if (defined($val) && $val < $helper->{'VARS'}{'startunique'}) {
+ return 'End time must be later than the start time.';
+ }
+ return undef;
+
@@ -272,11 +290,13 @@
if ( $helper->{'VARS'}{'proctor'} =~/\S/ ) {
my @names;
+ # just need the username/domain throw away the other data
+ # that 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)));
}
@@ -288,8 +308,9 @@
}
if ( $helper->{'VARS'}{'allowedusers'} =~/\S/ ) {
-
my @names;
+ # just need the username/domain throw away the other data
+ # that returns
foreach my $item (split(/\|\|\|/,
$helper->{'VARS'}{'allowedusers'})) {
my ($uname,$udomain)=split(/:/,$item);