--- rat/lonpage.pm 2007/05/23 14:57:51 1.78 +++ rat/lonpage.pm 2007/06/22 21:24:54 1.80 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.78 2007/05/23 14:57:51 www 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 @@ sub handler { $output=~s/\]*\>//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) { @@ -435,14 +435,14 @@ sub handler { unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { $metainfo =''. ''. - ''. - ''; + ''. + ''; } $metainfo .= ''. - ''. - ''; + ''. + ''; if ( ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && @@ -456,18 +456,18 @@ sub handler { ''. '&command=submission">'. - ''. - ''. + ''. + ''. ''. '&command=gradingmenu">'. - ''. - ''. + ''. + ''. ''. '" >'. - ''. - ''; + ''. + ''; } $metainfo.='

'; unless ($target eq 'tex') {