loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.9, 2005/08/15 19:55:37	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
}	}