Return to lonpage.pm CVS log | Up to [LON-CAPA] / rat |
version 1.16, 2000/11/06 18:48:56 | version 1.17, 2000/11/13 18:15:54 |
---|---|
Line 262 sub handler { | Line 262 sub handler { |
$nforms++; | $nforms++; |
$output=~s/\<form[^\>]*\>//gsi; | $output=~s/\<form[^\>]*\>//gsi; |
$output=~s/\<\/form[^\>]*\>//gsi; | $output=~s/\<\/form[^\>]*\>//gsi; |
$output=~ | |
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*(\w+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; | |
} | } |
$thisdir=~s/\/[^\/]*$//; | $thisdir=~s/\/[^\/]*$//; |
map { | map { |