[LON-CAPA-cvs] cvs: loncom /homework response.pm

[albertel]

albertel		Fri Apr  6 20:42:30 2007 EDT

  Modified files:              
    /loncom/homework	response.pm 
  Log:
  - protext from the tag having special charecters in it
  
  
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.160 loncom/homework/response.pm:1.161
--- loncom/homework/response.pm:1.160	Wed Mar 14 22:52:16 2007
+++ loncom/homework/response.pm	Fri Apr  6 20:42:29 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.160 2007/03/15 02:52:16 albertel Exp $
+# $Id: response.pm,v 1.161 2007/04/07 00:42:29 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -697,7 +697,7 @@
     if ($env{'request.state'} eq 'construct') { return; }
     my %paramlist=();
     foreach my $key (keys(%Apache::lonnet::packagetab)) {
-	if ($key =~ /^$tag/) {
+	if ($key =~ /^\Q$tag\E/) {
 	    my ($package,$name) = split(/&/,$key);
 	    $paramlist{$name}=1;
 	}