1 --- Form-original.pm 2005-12-07 09:32:27.000000000 -0500
2 +++ Form.pm 2007-05-08 13:26:16.000000000 -0400
4 textarea => "TextInput",
6 - button => "IgnoreInput",
7 "reset" => "IgnoreInput",
10 option => "ListInput",
12 + button => "SubmitInput",
13 submit => "SubmitInput",
14 image => "ImageInput",
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));
23 $f->push_input($type, $attr);
25 + elsif ($tag eq "button") {
26 + my $type = delete $attr->{type} || "submit";
27 + $f->push_input($type, $attr);
29 elsif ($tag eq "textarea") {
30 $attr->{textarea_value} = $attr->{value}