Helferfunktion L.yes_no_tag()

[mfinanz.git] / SL / Template / Plugin / L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index 0b4967d3484f77c125cba4547d7e5811829d7d6b..f6a3fd8040bf2aff0fc700bd46d8a1888025521b 100644 (file)
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -252,6 +252,14 @@ sub options_for_select {
   return $code;
 }
 
   return $code;
 }
 

+sub yes_no_tag {
+  my ($self, $name, $value) = splice @_, 0, 3;
+  my %attributes            = _hashify(@_);
+
+  my $options               = $self->options_for_select([ [ 1, $::locale->text('Yes') ], [ 0, $::locale->text('No') ] ], default => $value ? 1 : 0);
+  return $self->select_tag($name, $options, %attributes);
+}
+

 sub javascript {
   my ($self, $data) = @_;
   return $self->html_tag('script', $data, type => 'text/javascript');
 sub javascript {
   my ($self, $data) = @_;
   return $self->html_tag('script', $data, type => 'text/javascript');


@@ -629,6 +637,13 @@ L</options_for_select> function. If C<$options_string> is an array
 reference then it will be passed to L</options_for_select>
 automatically.
 
 reference then it will be passed to L</options_for_select>
 automatically.
 

+=item C<yes_no_tag $name, $value, %attributes>
+
+Creates a HTML 'select' tag with the two entries C<yes> and C<no> by
+calling L<select_tag> and L<options_for_select>. C<$value> determines
+which entry is selected. The C<%attributes> are passed through to
+L<select_tag>.
+

 =item C<input_tag $name, $value, %attributes>
 
 Creates a HTML 'input type=text' tag named C<$name> with the value
 =item C<input_tag $name, $value, %attributes>
 
 Creates a HTML 'input type=text' tag named C<$name> with the value