loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.321, 2006/03/24 18:09:27	version 1.323, 2006/03/27 19:38:53
Line 3150 sub end_page {	Line 3150 sub end_page {
sub html_encode {	sub html_encode {
my ($result) = @_;	my ($result) = @_;

$result = &HTML::Entities::encode($result,'"');	$result = &HTML::Entities::encode($result,'<>&"');

return $result;	return $result;
}	}
sub js_ready {	sub js_ready {
my ($result) = @_;	my ($result) = @_;

$result =~ s/[\n\r]/ /g;	$result =~ s/[\n\r]/ /xmsg;
$result =~ s/'/\\'/g;	$result =~ s/\\/\\\\/xmsg;
	$result =~ s/'/\\'/xmsg;
	$result =~ s{</script>}{</scrip'+'t>}xmsg;

return $result;	return $result;
}	}