From 3cc77e53893f90f6434e1adb1fdd4a227e220cf0 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 8 Jan 2010 17:34:10 +0100 Subject: [PATCH] Hilfsfunktionen zum Erzeugen von Checkbox- und Text-Input-Tags --- SL/Template/Plugin/L.pm | 102 ++++++++++++++++++++++++++++++---------- 1 file changed, 77 insertions(+), 25 deletions(-) diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm index 93de09bb2..4f5632b9d 100644 --- a/SL/Template/Plugin/L.pm +++ b/SL/Template/Plugin/L.pm @@ -10,6 +10,10 @@ sub _H { return $::locale->quote_special_chars('HTML', $string); } +sub _hashify { + return (@_ && (ref($_[0]) eq 'HASH')) ? %{ $_[0] } : @_; +} + sub new { my $class = shift; my $context = shift; @@ -29,10 +33,10 @@ sub name_to_id { sub attributes { my $self = shift; - my $options = shift || {}; + my %options = _hashify(@_); my @result = (); - while (my ($name, $value) = each %{ $options }) { + while (my ($name, $value) = each %options) { next unless $name; $value ||= ''; push @result, _H($name) . '="' . _H($value) . '"'; @@ -45,31 +49,63 @@ sub html_tag { my $self = shift; my $tag = shift; my $content = shift; - my $attributes = $self->attributes(shift || {}); + my $attributes = $self->attributes(@_); return "<${tag}${attributes}/>" unless $content; return "<${tag}${attributes}>${content}"; } sub select_tag { - my $self = shift; - my $name = shift; - my $options_str = shift; - my $attributes = shift || {}; + my $self = shift; + my $name = shift; + my $options_str = shift; + my %attributes = _hashify(@_); + + $attributes{id} ||= $self->name_to_id($name); + + return $self->html_tag('select', $options_str, %attributes, name => $name); +} + +sub checkbox_tag { + my $self = shift; + my $name = shift; + my %attributes = _hashify(@_); + + $attributes{id} ||= $self->name_to_id($name); + $attributes{value} = 1 unless defined $attributes{value}; + my $label = delete $attributes{label}; + + if ($attributes{checked}) { + $attributes{checked} = 'checked'; + } else { + delete $attributes{checked}; + } - $attributes->{name} = $name; - $attributes->{id} ||= $self->name_to_id($name); + my $code = $self->html_tag('input', undef, %attributes, name => $name, type => 'checkbox'); + $code .= $self->html_tag('label', $label, for => $attributes{id}) if $label; - return $self->html_tag('select', $options_str, $attributes); + return $code; +} + +sub input_tag { + my $self = shift; + my $name = shift; + my $value = shift; + my %attributes = _hashify(@_); + + $attributes{id} ||= $self->name_to_id($name); + $attributes{type} ||= 'text'; + + return $self->html_tag('input', undef, %attributes, name => $name, value => $value); } sub options_for_select { my $self = shift; my $collection = shift; - my $options = shift || {}; + my %options = _hashify(@_); - my $value_key = $options->{value} || 'id'; - my $title_key = $options->{title} || $value_key; + my $value_key = $options{value} || 'id'; + my $title_key = $options{title} || $value_key; my @tags = (); if ($collection && (ref $collection eq 'ARRAY')) { @@ -80,9 +116,9 @@ sub options_for_select { : ( $element->$value_key, $element->$title_key ); my %attributes = ( value => $result[0] ); - $attributes{selected} = 'selected' if $options->{default} && ($options->{default} eq ($result[0] || '')); + $attributes{selected} = 'selected' if $options{default} && ($options{default} eq ($result[0] || '')); - push @tags, $self->html_tag('option', _H($result[1]), \%attributes); + push @tags, $self->html_tag('option', _H($result[1]), %attributes); } } @@ -124,13 +160,13 @@ functions that create HTML tags from various kinds of data sources. Converts a name to a HTML id by replacing various characters. -=item C +=item C -Creates a string from all elements in C<\%items> suitable for usage as +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. -=item C +=item C Creates an opening and closing HTML tag for C<$tag_name> and puts C<$content_string> between the two. If C<$content_string> is undefined @@ -145,22 +181,38 @@ C<$content_string> is not HTML escaped. =over 4 -=item C +=item C -Creates a HTML 'select' tag named $name with the contents -$options_string and with arbitrary HTML attributes from -C<\%attributes>. The tag's C defaults to C. +Creates a HTML 'select' tag named C<$name> with the contents +C<$options_string> and with arbitrary HTML attributes from +C<%attributes>. The tag's C defaults to C. The $options_string is usually created by the C function. +=item C + +Creates a HTML 'input type=text' tag named C<$name> with the value +C<$value> and with arbitrary HTML attributes from C<%attributes>. The +tag's C defaults to C. + +=item C + +Creates a HTML 'input type=checkbox' tag named C<$name> with arbitrary +HTML attributes from C<%attributes>. The tag's C defaults to +C. The tag's C defaults to C<1>. + +If C<%attributes> contains a key C