loncom/interface/slotrequest.pm - diff

Return to slotrequest.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2007/04/11 16:07:51	version 1.79, 2007/04/11 21:49:02
Line 1108 sub show_table {	Line 1108 sub show_table {
my ($id_count,$ids);	my ($id_count,$ids);

if (exists($show{'scheduled'}) \|\| exists($show{'space'}) ) {	if (exists($show{'scheduled'}) \|\| exists($show{'space'}) ) {
my @this_slot = grep(/^$slot\0/,keys(%consumed));	my $re_str = "$slot\0";
	my @this_slot = grep(/^\Q$re_str\E/,keys(%consumed));
$id_count = scalar(@this_slot);	$id_count = scalar(@this_slot);
if (exists($show{'scheduled'})) {	if (exists($show{'scheduled'})) {
foreach my $entry (sort { $consumed{$a}{name} cmp	foreach my $entry (sort { $consumed{$a}{name} cmp
$consumed{$b}{name} }	$consumed{$b}{name} }
(keys(%consumed))) {	(@this_slot)) {
my (undef,$id)=split("\0",$entry);	my (undef,$id)=split("\0",$entry);
my ($uname,$udom) = split(':',$consumed{$entry}{'name'});	my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
$ids.= '<nobr>';	$ids.= '<nobr>';