my $value_title_sub = $options{value_title_sub};
- my %selected = map { ( $_ => 1 ) } @{ ref($options{default}) eq 'ARRAY' ? $options{default} : $options{default} ? [ $options{default} ] : [] };
+ my %selected = map { ( $_ => 1 ) } @{ ref($options{default}) eq 'ARRAY' ? $options{default} : defined($options{default}) ? [ $options{default} ] : [] };
my $access = sub {
my ($element, $index, $key, $sub) = @_;
my $code = '';
foreach my $result (@elements) {
my %attributes = ( value => $result->[0] );
- $attributes{selected} = 'selected' if $selected{ $result->[0] || '' };
+ $attributes{selected} = 'selected' if $selected{ defined($result->[0]) ? $result->[0] : '' };
$code .= $self->html_tag('option', _H($result->[1]), %attributes);
}
return $code;
}
+sub online_help_tag {
+ my ($self, $tag, @slurp) = @_;
+ my %params = _hashify(@slurp);
+ my $cc = $::myconfig{countrycode};
+ my $file = "doc/online/$cc/$tag.html";
+ my $text = $params{text} || $::locale->text('Help');
+
+ die 'malformed help tag' unless $tag =~ /^[a-zA-Z0-9_]+$/;
+ return unless -f $file;
+ return $self->html_tag('a', $text, href => $file, target => '_blank');
+}
+
sub dump {
my $self = shift;
require Data::Dumper;