projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Term::ReadLine::Perl::Bind in Console nicht nutzen
[kivitendo-erp.git]
/
SL
/
Presenter
/
Tag.pm
diff --git
a/SL/Presenter/Tag.pm
b/SL/Presenter/Tag.pm
index
43591e5
..
bd48906
100644
(file)
--- a/
SL/Presenter/Tag.pm
+++ b/
SL/Presenter/Tag.pm
@@
-2,10
+2,12
@@
package SL::Presenter::Tag;
use strict;
use strict;
+use SL::HTML::Restrict;
+
use parent qw(Exporter);
use Exporter qw(import);
use parent qw(Exporter);
use Exporter qw(import);
-our @EXPORT = qw(html_tag input_tag man_days_tag name_to_id select_tag stringify_attributes);
+our @EXPORT = qw(html_tag input_tag man_days_tag name_to_id select_tag stringify_attributes
restricted_html
);
use Carp;
use Carp;
@@
-146,6
+148,10
@@
sub select_tag {
my $list_to_code = sub {
my ($sub_collection) = @_;
my $list_to_code = sub {
my ($sub_collection) = @_;
+ if ('ARRAY' ne ref $sub_collection) {
+ $sub_collection = [ $sub_collection ];
+ }
+
my @options;
foreach my $entry ( @{ $sub_collection } ) {
my $value;
my @options;
foreach my $entry ( @{ $sub_collection } ) {
my $value;
@@
-191,6
+197,15
@@
sub _set_id_attribute {
return %{ $attributes };
}
return %{ $attributes };
}
+my $html_restricter;
+
+sub restricted_html {
+ my ($self, $value) = @_;
+
+ $html_restricter ||= SL::HTML::Restrict->create;
+ return $html_restricter->process($value);
+}
+
1;
__END__
1;
__END__
@@
-260,6
+275,10
@@
Creates a string from all elements in C<%items> suitable for usage as
HTML tag attributes. Keys and values are HTML escaped even though keys
must not contain non-ASCII characters for browsers to accept them.
HTML tag attributes. Keys and values are HTML escaped even though keys
must not contain non-ASCII characters for browsers to accept them.
+=item C<restricted_html $html>
+
+Returns HTML stripped of unknown tags. See L<SL::HTML::Restrict>.
+
=back
=head2 HIGH-LEVEL FUNCTIONS
=back
=head2 HIGH-LEVEL FUNCTIONS