git.shiar.nl
/
perl
/
html-form-simple.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XXX: hidden hash
[perl/html-form-simple.git]
/
lib
/
HTML
/
Form
/
Simple.pm
diff --git
a/lib/HTML/Form/Simple.pm
b/lib/HTML/Form/Simple.pm
index 66958c3c294d760d7729474a4ba829de9e3e1b10..bbeb6b6fbf1c6b49ebccca76b8a1573cc6cce452 100644
(file)
--- a/
lib/HTML/Form/Simple.pm
+++ b/
lib/HTML/Form/Simple.pm
@@
-71,6
+71,11
@@
sub hidden {
my $self = shift;
my ($name, $value, $attr) = $self->_attr(2, @_);
my $self = shift;
my ($name, $value, $attr) = $self->_attr(2, @_);
+ if (ref $name eq 'HASH') {
+ my @return = map { $self->hidden($_, $name->{$_}, $attr) } sort keys %$name;
+ return wantarray ? @return : join(defined $, ? $, : '', @return);
+ }
+
$attr->{name } = $name if defined $name;
$attr->{value} = $value if defined $value;
$attr->{type} = 'hidden' unless defined $attr->{type};
$attr->{name } = $name if defined $name;
$attr->{value} = $value if defined $value;
$attr->{type} = 'hidden' unless defined $attr->{type};
@@
-108,6
+113,8
@@
sub select {
my @options = map { ref $_ ? $_ : {value => $_} } @$rows;
my @options = map { ref $_ ? $_ : {value => $_} } @$rows;
+ my @return;
+
if ($attr->{type} eq 'select') {
delete $attr->{type};
if (defined $default) {
if ($attr->{type} eq 'select') {
delete $attr->{type};
if (defined $default) {
@@
-115,17
+122,17
@@
sub select {
$_->{selected} = 1 if defined $_->{value} and $_->{value} eq $default;
}
}
$_->{selected} = 1 if defined $_->{value} and $_->{value} eq $default;
}
}
-
my
@return = (
+ @return = (
$self->tag(select => $attr),
(map { $self->tag(option => $_) } @options),
'</select>',
);
$self->tag(select => $attr),
(map { $self->tag(option => $_) } @options),
'</select>',
);
- return wantarray ? @return : join('', @return);
}
else {
if (defined $attr->{id} and $attr->{id} ne '') {
}
else {
if (defined $attr->{id} and $attr->{id} ne '') {
- defined $_->{id} or defined $_->{value} and $_->{id} = $attr->{id}.'_'.$_->{value}
- for @options;
+ defined $_->{id}
+ or defined $_->{value} and $_->{id} = $attr->{id}.'_'.$_->{value}
+ for @options;
}
if (defined $attr->{label}) {
defined $_->{value} and not defined $_->{label}
}
if (defined $attr->{label}) {
defined $_->{value} and not defined $_->{label}
@@
-139,14
+146,15
@@
sub select {
}
}
$_ = {%$attr, %$_} for @options;
}
}
$_ = {%$attr, %$_} for @options;
-
my
@return = map {
+ @return = map {
my $label = delete $_->{label};
defined $label && $label ne ''
? '<label>'.$self->tag(input => $_)." $label</label>"
: $self->tag(input => $_)
} @options;
my $label = delete $_->{label};
defined $label && $label ne ''
? '<label>'.$self->tag(input => $_)." $label</label>"
: $self->tag(input => $_)
} @options;
- return wantarray ? @return : join('', @return);
}
}
+
+ return wantarray ? @return : join(defined $, ? $, : '', @return);
}
sub radio {
}
sub radio {