--- loncom/interface/slotrequest.pm 2005/11/21 22:16:24 1.36
+++ loncom/interface/slotrequest.pm 2006/01/24 06:41:16 1.38
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler for requesting to have slots added to a students record
#
-# $Id: slotrequest.pm,v 1.36 2005/11/21 22:16:24 albertel Exp $
+# $Id: slotrequest.pm,v 1.38 2006/01/24 06:41:16 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -325,6 +325,8 @@ sub delete_slot {
my ($cnum,$cdom)=&get_course();
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot_name\0");
+ my ($tmp) = %consumed;
+ if ($tmp =~ /error: 2/) { undef(%consumed); }
if (%slot && !%consumed) {
$slot{'type'} = 'deleted';
@@ -626,7 +628,7 @@ sub show_table {
'endtime' => 'End Time',
'startreserve' => 'Time students can start reserving',
'secret' => 'Secret Word',
- 'maxspace' => 'Maxium # of students',
+ 'maxspace' => 'Maximum # of students',
'ip' => 'IP or DNS restrictions',
'symb' => 'Resource slot is restricted to.',
'uniqueperiod' => 'Period of time slot is unique',
@@ -732,13 +734,17 @@ sub show_table {
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot\0");
my $ids;
- foreach my $entry (sort(keys(%consumed))) {
- my (undef,$id)=split("\0",$entry);
- my ($uname,$udom) = split('@',$consumed{$entry}{'name'});
- my $name = &Apache::loncommon::plainname($uname,$udom);
- $ids.= ''.$name.&remove_link($slot,$entry,$uname,$udom,
- $consumed{$entry}{'symb'})
- .'
';
+
+ my ($tmp)=%consumed;
+ if ($tmp !~ /^error: /) {
+ foreach my $entry (sort(keys(%consumed))) {
+ my (undef,$id)=split("\0",$entry);
+ my ($uname,$udom) = split('@',$consumed{$entry}{'name'});
+ my $name = &Apache::loncommon::plainname($uname,$udom);
+ $ids.= ''.$name.&remove_link($slot,$entry,$uname,$udom,
+ $consumed{$entry}{'symb'})
+ .'
';
+ }
}
my $start=($slots{$slot}->{'starttime'}?