button tag und areainput tag in L.pm

diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm
index dc06e8a9998821684767a1330247eedbf8447cb6..34eb730d134c7163e83e1465cb01d1d93eff515f 100644 (file)
--- a/SL/Template/Plugin/L.pm
+++ b/SL/Template/Plugin/L.pm
@@ -3,6 +3,7 @@ package SL::Template::Plugin::L;
 use base qw( Template::Plugin );
 use Template::Plugin;
 use List::MoreUtils qw(apply);
 use base qw( Template::Plugin );
 use Template::Plugin;
 use List::MoreUtils qw(apply);

+use List::Util qw(max);

 
 use strict;
 
 
 use strict;
 


@@ -84,10 +85,8 @@ sub select_tag {
 }
 
 sub textarea_tag {
 }
 
 sub textarea_tag {

-  my $self            = shift;
-  my $name            = shift;
-  my $content         = shift;
-  my %attributes      = _hashify(@_);
+  my ($self, $name, $content, @slurp) = @_;
+  my %attributes      = _hashify(@slurp);

 
   $attributes{id}   ||= $self->name_to_id($name);
   $content            = $content ? _H($content) : '';
 
   $attributes{id}   ||= $self->name_to_id($name);
   $content            = $content ? _H($content) : '';


@@ -139,7 +138,7 @@ sub radio_button_tag {
 
 sub input_tag {
   my ($self, $name, $value, @slurp) = @_;
 
 sub input_tag {
   my ($self, $name, $value, @slurp) = @_;

-  my %attributes                    = _hashify(@slurp);
+  my %attributes      = _hashify(@slurp);

 
   $attributes{id}   ||= $self->name_to_id($name);
   $attributes{type} ||= 'text';
 
   $attributes{id}   ||= $self->name_to_id($name);
   $attributes{type} ||= 'text';


@@ -176,16 +175,21 @@ sub link {
 }
 
 sub submit_tag {
 }
 
 sub submit_tag {

-  my $self             = shift;
-  my $name             = shift;
-  my $value            = shift;
-  my %attributes       = _hashify(@_);
+  my ($self, $name, $value, @slurp) = @_;
+  my %attributes = _hashify(@slurp);

 
   $attributes{onclick} = "if (confirm('" . delete($attributes{confirm}) . "')) return true; else return false;" if $attributes{confirm};
 
   return $self->input_tag($name, $value, %attributes, type => 'submit', class => 'submit');
 }
 
 
   $attributes{onclick} = "if (confirm('" . delete($attributes{confirm}) . "')) return true; else return false;" if $attributes{confirm};
 
   return $self->input_tag($name, $value, %attributes, type => 'submit', class => 'submit');
 }
 

+sub button_tag {
+  my ($self, $onclick, $value, @slurp) = @_;
+  my %attributes = _hashify(@slurp);
+
+  return $self->input_tag(undef, $value, %attributes, type => 'button', onclick => $onclick);
+}
+

 sub options_for_select {
   my $self            = shift;
   my $collection      = shift;
 sub options_for_select {
   my $self            = shift;
   my $collection      = shift;


@@ -339,6 +343,18 @@ sub tab {
   return +{ name => $name, data => $data };
 }
 
   return +{ name => $name, data => $data };
 }
 

+sub areainput_tag {
+  my ($self, $name, $value, @slurp) = @_;
+  my %attributes      = _hashify(@slurp);
+
+  my $rows = delete $attributes{rows}     || 1;
+  my $min  = delete $attributes{min_rows} || 1;
+
+  return $rows > 1
+    ? $self->textarea_tag($name, $value, %attributes, rows => max $rows, $min)
+    : $self->input_tag($name, $value, %attributes);
+}
+

 1;
 
 __END__
 1;
 
 __END__


@@ -491,6 +507,15 @@ C<tab>. Example:
 An optional attribute is C<selected>, which accepts the ordinal of a tab which
 should be selected by default.
 
 An optional attribute is C<selected>, which accepts the ordinal of a tab which
 should be selected by default.
 

+=item C<areainput_tag $name, $content, %PARAMS>
+
+Creates a generic input tag or textarea tag, depending on content size. The
+mount of desired rows must be given with C<rows> parameter, Accpeted parameters
+include C<min_rows> for rendering a minimum of rows if a textarea is displayed.
+
+You can force input by setting rows to 1, and you can force textarea by setting
+rows to anything >1.
+

 =back
 
 =head2 CONVERSION FUNCTIONS
 =back
 
 =head2 CONVERSION FUNCTIONS