[LON-CAPA-cvs] cvs: loncom /interface slotrequest.pm

[albertel]

albertel		Wed Apr 11 17:49:02 2007 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - bug#5232
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.78 loncom/interface/slotrequest.pm:1.79
--- loncom/interface/slotrequest.pm:1.78	Wed Apr 11 12:07:51 2007
+++ loncom/interface/slotrequest.pm	Wed Apr 11 17:49:02 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler for requesting to have slots added to a students record
 #
-# $Id: slotrequest.pm,v 1.78 2007/04/11 16:07:51 albertel Exp $
+# $Id: slotrequest.pm,v 1.79 2007/04/11 21:49:02 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1108,12 +1108,13 @@
 	my ($id_count,$ids);
 	    
 	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);
 	    if (exists($show{'scheduled'})) {
 		foreach my $entry (sort { $consumed{$a}{name} cmp 
 					      $consumed{$b}{name} }
-				   (keys(%consumed))) {
+				   (@this_slot)) {
 		    my (undef,$id)=split("\0",$entry);
 		    my ($uname,$udom) = split(':',$consumed{$entry}{'name'});
 		    $ids.= '<nobr>';