Revision aacd5750
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
|
||
|
}
|
||
|
|
||
|
sub quote_html {
|
||
|
$main::lxdebug->enter_sub(2);
|
||
|
|
||
|
my ($self, $str) = @_;
|
||
|
|
||
|
my %replace =
|
||
|
('order' => ['"', '<', '>'],
|
||
|
'<' => '<',
|
||
|
'>' => '>',
|
||
|
'"' => '"',
|
||
|
);
|
||
|
|
||
|
map({ $str =~ s/$_/$replace{$_}/g; } @{ $replace{"order"} });
|
||
|
|
||
|
$main::lxdebug->leave_sub(2);
|
||
|
|
||
|
return $str;
|
||
|
}
|
||
|
|
||
|
sub hide_form {
|
||
|
my $self = shift;
|
||
|
|
||
| bin/mozilla/common.pl | ||
|---|---|---|
|
$lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub H {
|
||
|
return $form->quote_html($_[0]);
|
||
|
}
|
||
|
|
||
|
1;
|
||
Auch abrufbar als: Unified diff
Hilfsfunktionen fuer die Ausgabe von HTML-gequoteten Strings.