rat/lonpage.pm - diff

Return to lonpage.pm CVS log

Up to [LON-CAPA] / rat

version 1.79, 2007/05/23 17:04:57	version 1.81, 2007/06/22 22:30:45
Line 338 sub handler {	Line 338 sub handler {
$output=~s/\<form[^\>]*\>//gsi;	$output=~s/\<form[^\>]*\>//gsi;
$output=~s/\<\/form[^\>]*\>//gsi;	$output=~s/\<\/form[^\>]*\>//gsi;
$output=~	$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/\/[^\/]*$//;	$thisdir=~s/\/[^\/]*$//;
foreach (@rlinks) {	foreach (@rlinks) {
Line 432 sub handler {	Line 432 sub handler {
$symb=&Apache::lonenc::encrypted($symb);	$symb=&Apache::lonenc::encrypted($symb);
$esrc=&Apache::lonenc::encrypted($esrc);	$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 ='<a name="'.&escape($symb).'" />'.	$metainfo ='<a name="'.&escape($symb).'" />'.
'<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.	'<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
'<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.	'<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.