loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.143, 2004/09/14 21:27:36	version 1.145, 2004/09/18 17:04:03
Line 934 sub editor {	Line 934 sub editor {
$comment=~s/\</\&lt\;/g;	$comment=~s/\</\&lt\;/g;
$comment=~s/\>/\&gt\;/g;	$comment=~s/\>/\&gt\;/g;
$comment=~s/\:/\&colon;/g;	$comment=~s/\:/\&colon;/g;
$Apache::lonratedt::resources[	if ($comment=~/\S/) {
	$Apache::lonratedt::resources[
$Apache::lonratedt::order[$idx]]=	$Apache::lonratedt::order[$idx]]=
$comment.':'.join(':',@rrest);	$comment.':'.join(':',@rrest);
	}
}	}
# Store the changed version	# Store the changed version
($errtext,$fatal)=&storemap($coursenum,$coursedom,	($errtext,$fatal)=&storemap($coursenum,$coursedom,
Line 1146 END	Line 1147 END
} elsif ($url!~/\.(sequence\|page)$/) {	} elsif ($url!~/\.(sequence\|page)$/) {
$url='/adm/coursedocs/showdoc'.$url;	$url='/adm/coursedocs/showdoc'.$url;
}	}
	} elsif ($url=~m\|^/ext/\|) {
	$url='/adm/wrapper'.$url;
}	}
unless ($container eq 'page') {	unless ($container eq 'page') {
$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);