return $::locale->quote_special_chars('HTML', $string);
}
+sub _J {
+ my $string = "" . shift;
+ $string =~ s/\"/\\\"/g;
+ return $string;
+}
+
sub _hashify {
return (@_ && (ref($_[0]) eq 'HASH')) ? %{ $_[0] } : @_;
}
}
sub attributes {
- my $self = shift;
- my %options = _hashify(@_);
+ my ($self, @slurp) = @_;
+ my %options = _hashify(@slurp);
my @result = ();
while (my ($name, $value) = each %options) {
next unless $name;
+ next if $name eq 'disabled' && !$value;
$value = '' if !defined($value);
push @result, _H($name) . '="' . _H($value) . '"';
}
}
sub html_tag {
- my $self = shift;
- my $tag = shift;
- my $content = shift;
- my $attributes = $self->attributes(@_);
+ my ($self, $tag, $content, @slurp) = @_;
+ my $attributes = $self->attributes(@slurp);
return "<${tag}${attributes}/>" unless defined($content);
return "<${tag}${attributes}>${content}</${tag}>";
}
sub checkbox_tag {
- my $self = shift;
- my $name = shift;
- my %attributes = _hashify(@_);
+ my ($self, $name, @slurp) = @_;
+ my %attributes = _hashify(@slurp);
$attributes{id} ||= $self->name_to_id($name);
$attributes{value} = 1 unless defined $attributes{value};
$self->javascript(
"Calendar.setup({ inputField: '$name_e', ifFormat: '$datefmt', align: '$params{cal_align}', button: 'trigger$seq' });"
) : '');
+}
sub javascript_tag {
my $self = shift;
sub tabbed {
my ($self, $tabs, @slurp) = @_;
my %params = _hashify(@slurp);
- my $id = 'tab_' . _tag_id();
+ my $id = $params{id} || 'tab_' . _tag_id();
$params{selected} *= 1;
next if $tab eq '';
my $selected = $params{selected} == $i;
- my $tab_id = _tag_id();
+ my $tab_id = "__tab_id_$i";
push @header, $self->li_tag(
$self->link('', $tab->{name}, rel => $tab_id),
($selected ? (class => 'selected') : ())
: $self->input_tag($name, $value, %attributes);
}
+sub multiselect2side {
+ my ($self, $id, @slurp) = @_;
+ my %params = _hashify(@slurp);
+
+ $params{labelsx} = "\"" . _J($params{labelsx} || $::locale->text('Available')) . "\"";
+ $params{labeldx} = "\"" . _J($params{labeldx} || $::locale->text('Selected')) . "\"";
+ $params{moveOptions} = 'false';
+
+ my $vars = join(', ', map { "${_}: " . $params{$_} } keys %params);
+ my $code = <<EOCODE;
+<script type="text/javascript">
+ \$().ready(function() {
+ \$('#${id}').multiselect2side({ ${vars} });
+ });
+</script>
+EOCODE
+
+ return $code;
+}
+
+sub dump {
+ my $self = shift;
+ require Data::Dumper;
+ return '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';
+}
+
1;
__END__
You can force input by setting rows to 1, and you can force textarea by setting
rows to anything >1.
+=item C<multiselect2side $id, %params>
+
+Creates a JavaScript snippet calling the jQuery function
+C<multiselect2side> on the select control with the ID C<$id>. The
+select itself is not created. C<%params> can contain the following
+entries:
+
+=over 2
+
+=item C<labelsx>
+
+The label of the list of available options. Defaults to the
+translation of 'Available'.
+
+=item C<labeldx>
+
+The label of the list of selected options. Defaults to the
+translation of 'Selected'.
+
+=back
+
+=item C<dump REF>
+
+Dumps the Argument using L<Data::Dumper> into a E<lt>preE<gt> block.
+
=back
=head2 CONVERSION FUNCTIONS