--- loncom/interface/slotrequest.pm 2005/08/15 19:54:26 1.8 +++ loncom/interface/slotrequest.pm 2005/09/06 20:53:36 1.10 @@ -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.8 2005/08/15 19:54:26 albertel Exp $ +# $Id: slotrequest.pm,v 1.10 2005/09/06 20:53:36 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -456,7 +456,18 @@ sub show_table { my ($cnum,$cdom)=&get_course(); my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); my $available; - $r->print(''); + $r->print('
+ + + + + + + + + + +'); foreach my $slot (sort { return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} } (keys(%slots))) { @@ -477,11 +488,14 @@ sub show_table { $r->print(< + + + STUFF } @@ -522,10 +536,6 @@ sub handler { } else { $r->print("

Unknown command: ".$env{'form.command'}."

"); } - $r->print('

1'.$symb.'

'); - $r->print('

2'.&Apache::lonnet::symbread().'

'); - $r->print(&check_for_reservation($symb)); - $r->print( &Apache::lonhomework::check_task_access('0')); &end_page($r); return OK; }
Slot nameTypeDescriptionStart TimeEnd TimeMax spaceScheduled StudentsProctorsUnique Period
$slot$slots{$slot}->{'type'} $description $start $end $slots{$slot}->{'maxspace'} $ids$slots{$slot}->{'proctor'}$slots{$slot}->{'uniqueperiod'}