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.322, 2006/03/24 21:40:11
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;
}	}
Line 3158 sub js_ready {	Line 3158 sub js_ready {
my ($result) = @_;	my ($result) = @_;

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

return $result;	return $result;
}	}