sub _parse_attribute_args {
my $self = shift;
+ #die "Long form arg (name => 'class', value => 'x') is no longer supported"
+ #if(@_ == 1 && $_[0]->{'name'} && $_[0]->{'value'});
+
my $opts = ref($_[0]) eq 'HASH' ? $_[0] : {$_[0] => $_[1]};
for (values %{$opts}) { $self->_zconfig->parser->html_escape($_); }
return $opts;
push @{$evt->{'attr_names'}}, 'value' unless exists $attrs->{'value'};
$attrs->{'value'} = $tar;
#check if we are a checkbox
- if($attrs->{'type'} eq 'checkbox') {
+ if(exists $attrs->{'type'} && $attrs->{'type'} eq 'checkbox') {
if($tar) {
push @{$evt->{'attr_names'}}, 'selected' unless exists $attrs->{'selected'};
$attrs->{'selected'} = $tar ? 'selected' : '';