git.sur5r.net Git - bacula/bacula/blob - gui/bweb/script/Form.pm.patch

   1 --- Form-original.pm    2005-12-07 09:32:27.000000000 -0500
   2 +++ Form.pm     2007-05-08 13:26:16.000000000 -0400
   3 @@ -18,5 +18,4 @@
   4   textarea => "TextInput",
   5
   6 - button   => "IgnoreInput",
   7   "reset"  => "IgnoreInput",
   8
   9 @@ -25,4 +24,5 @@
  10   option   => "ListInput",
  11
  12 + button   => "SubmitInput",
  13   submit   => "SubmitInput",
  14   image    => "ImageInput",
  15 @@ -118,5 +118,5 @@
  16      eval {
  17         # optimization
  18 -       $p->report_tags(qw(form input textarea select optgroup option keygen label));
  19 +       $p->report_tags(qw(form input textarea select optgroup option keygen label button));
  20      };
  21
  22 @@ -184,4 +184,8 @@
  23                     $f->push_input($type, $attr);
  24                 }
  25 +        elsif ($tag eq "button") {
  26 +            my $type = delete $attr->{type} || "submit";
  27 +            $f->push_input($type, $attr);
  28 +        }
  29                 elsif ($tag eq "textarea") {
  30                     $attr->{textarea_value} = $attr->{value}