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; |
} | } |