--- rat/lonpage.pm 2007/05/23 14:57:51 1.78 +++ rat/lonpage.pm 2007/06/22 22:30:45 1.81 @@ -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.81 2007/06/22 22:30:45 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) { @@ -432,17 +432,20 @@ sub handler { $symb=&Apache::lonenc::encrypted($symb); $esrc=&Apache::lonenc::encrypted($esrc); } - unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { + if ($hash{'src_'.$rid} !~ m-^/uploaded/- + && !$env{'request.enc'} + && ($env{'request.role.adv'} + || !$hash{'encrypted_'.$rid})) { $metainfo =''. ''. - ''. - ''; + ''. + ''; } $metainfo .= ''. - ''. - ''; + ''. + ''; if ( ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) && (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && @@ -456,18 +459,18 @@ sub handler { ''. '&command=submission">'. - ''. - ''. + ''. + ''. ''. '&command=gradingmenu">'. - ''. - ''. + ''. + ''. ''. '" >'. - ''. - ''; + ''. + ''; } $metainfo.='

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