loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2005/10/17 18:23:46	version 1.24, 2005/10/17 19:26:50
Line 521 sub show_table {	Line 521 sub show_table {
my (undef,$id)=split("\0",$entry);	my (undef,$id)=split("\0",$entry);
$ids.= $id.'-> '.$consumed{$entry}->{'name'}.'<br />';	$ids.= $id.'-> '.$consumed{$entry}->{'name'}.'<br />';
}	}
my $start=&Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'});	my $start=($slots{$slot}->{'starttime'}?
my $end=&Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'});	&Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');
my $start_reserve=&Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'});	my $end=($slots{$slot}->{'endtime'}?
	&Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'}):'');
	my $start_reserve=($slots{$slot}->{'endtime'}?
	&Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'}):'');

my $unique;	my $unique;
if (ref($slots{$slot}{'uniqueperiod'})) {	if (ref($slots{$slot}{'uniqueperiod'})) {
$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.	$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.