version 1.8, 2005/08/15 19:54:26
|
version 1.10, 2005/09/06 20:53:36
|
Line 456 sub show_table {
|
Line 456 sub show_table {
|
my ($cnum,$cdom)=&get_course(); |
my ($cnum,$cdom)=&get_course(); |
my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); |
my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum); |
my $available; |
my $available; |
$r->print('<table border="1">'); |
$r->print('<table border="1"> |
|
<tr> |
|
<th>Slot name</th> |
|
<th>Type</th> |
|
<th>Description</th> |
|
<th>Start Time</th> |
|
<th>End Time</th> |
|
<th>Max space</th> |
|
<th>Scheduled Students</th> |
|
<th>Proctors</th> |
|
<th>Unique Period</th> |
|
</tr>'); |
foreach my $slot (sort |
foreach my $slot (sort |
{ return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} } |
{ return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} } |
(keys(%slots))) { |
(keys(%slots))) { |
Line 477 sub show_table {
|
Line 488 sub show_table {
|
$r->print(<<STUFF); |
$r->print(<<STUFF); |
<tr> |
<tr> |
<td>$slot</td> |
<td>$slot</td> |
|
<td>$slots{$slot}->{'type'}</td> |
<td>$description</td> |
<td>$description</td> |
<td>$start</td> |
<td>$start</td> |
<td>$end</td> |
<td>$end</td> |
<td>$slots{$slot}->{'maxspace'}</td> |
<td>$slots{$slot}->{'maxspace'}</td> |
<td>$ids</td> |
<td>$ids</td> |
|
<td>$slots{$slot}->{'proctor'}</td> |
|
<td>$slots{$slot}->{'uniqueperiod'}</td> |
</tr> |
</tr> |
STUFF |
STUFF |
} |
} |
Line 522 sub handler {
|
Line 536 sub handler {
|
} else { |
} else { |
$r->print("<p>Unknown command: ".$env{'form.command'}."</p>"); |
$r->print("<p>Unknown command: ".$env{'form.command'}."</p>"); |
} |
} |
$r->print('<p>1'.$symb.'</p>'); |
|
$r->print('<p>2'.&Apache::lonnet::symbread().'</p>'); |
|
$r->print(&check_for_reservation($symb)); |
|
$r->print( &Apache::lonhomework::check_task_access('0')); |
|
&end_page($r); |
&end_page($r); |
return OK; |
return OK; |
} |
} |