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

[raeburn]

raeburn		Wed Feb 18 06:56:48 2009 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - Bug 5870. (\Q escape used by default in regexp in lonnet::delenv()).
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.302 loncom/homework/lonhomework.pm:1.303
--- loncom/homework/lonhomework.pm:1.302	Tue Feb 17 15:25:18 2009
+++ loncom/homework/lonhomework.pm	Wed Feb 18 06:56:48 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.302 2009/02/17 15:25:18 jms Exp $
+# $Id: lonhomework.pm,v 1.303 2009/02/18 06:56:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1140,7 +1140,7 @@
 	&& !defined($env{'form.newrandomization'})) {
 	if ((!$env{'form.style_file'} && $env{'construct.style'})
 	    ||$env{'form.clear_style_file'}) {
-	    &Apache::lonnet::delenv('construct\\.style');
+	    &Apache::lonnet::delenv('construct.style');
 	} elsif ($env{'form.style_file'} 
 	    && $env{'construct.style'} ne $env{'form.style_file'}) {
 	    &Apache::lonnet::appenv({'construct.style' =>