[LON-CAPA-cvs] cvs: rat / lonpage.pm

albertel lon-capa-cvs-allow@mail.lon-capa.org
Fri, 22 Jun 2007 21:24:54 -0000


albertel		Fri Jun 22 17:24:54 2007 EDT

  Modified files:              
    /rat	lonpage.pm 
  Log:
  - allow anything but ' or " in the name field on input elements 
    (needed to get .problem wioth part id with spaces in the ids to work)
  
  
Index: rat/lonpage.pm
diff -u rat/lonpage.pm:1.79 rat/lonpage.pm:1.80
--- rat/lonpage.pm:1.79	Wed May 23 13:04:57 2007
+++ rat/lonpage.pm	Fri Jun 22 17:24:54 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Page Handler
 #
-# $Id: lonpage.pm,v 1.79 2007/05/23 17:04:57 albertel Exp $
+# $Id: lonpage.pm,v 1.80 2007/06/22 21:24:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -338,7 +338,7 @@
                                   $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;
                                   $output=~
-				      s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
+				      s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }
                               $thisdir=~s/\/[^\/]*$//;
 			      foreach (@rlinks) {