loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2005/12/14 22:26:10	version 1.38, 2006/01/24 06:41:16
Line 325 sub delete_slot {	Line 325 sub delete_slot {
my ($cnum,$cdom)=&get_course();	my ($cnum,$cdom)=&get_course();
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot_name\0");	"^$slot_name\0");
	my ($tmp) = %consumed;
	if ($tmp =~ /error: 2/) { undef(%consumed); }

if (%slot && !%consumed) {	if (%slot && !%consumed) {
$slot{'type'} = 'deleted';	$slot{'type'} = 'deleted';
Line 732 sub show_table {	Line 734 sub show_table {
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,	my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum,
"^$slot\0");	"^$slot\0");
my $ids;	my $ids;
foreach my $entry (sort(keys(%consumed))) {
my (undef,$id)=split("\0",$entry);	my ($tmp)=%consumed;
my ($uname,$udom) = split('@',$consumed{$entry}{'name'});	if ($tmp !~ /^error: /) {
my $name = &Apache::loncommon::plainname($uname,$udom);	foreach my $entry (sort(keys(%consumed))) {
$ids.= '<nobr>'.$name.&remove_link($slot,$entry,$uname,$udom,	my (undef,$id)=split("\0",$entry);
$consumed{$entry}{'symb'})	my ($uname,$udom) = split('@',$consumed{$entry}{'name'});
.'</nobr><br />';	my $name = &Apache::loncommon::plainname($uname,$udom);
	$ids.= '<nobr>'.$name.&remove_link($slot,$entry,$uname,$udom,
	$consumed{$entry}{'symb'})
	.'</nobr><br />';
	}
}	}

my $start=($slots{$slot}->{'starttime'}?	my $start=($slots{$slot}->{'starttime'}?