X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/7714d4d046372a60d75ea885dbc20e1f3796d9a0..7328cbd6ab400a613f6c160beffbdb3abb44c8ad:/SL/Template/Plugin/L.pm diff --git a/SL/Template/Plugin/L.pm b/SL/Template/Plugin/L.pm index 34eb730d1..b78ebb015 100644 --- a/SL/Template/Plugin/L.pm +++ b/SL/Template/Plugin/L.pm @@ -21,6 +21,12 @@ sub _H { 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] } : @_; } @@ -49,12 +55,13 @@ sub name_to_id { } 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) . '"'; } @@ -63,10 +70,8 @@ sub attributes { } 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}"; @@ -95,9 +100,8 @@ sub textarea_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}; @@ -203,6 +207,8 @@ sub options_for_select { my $value_title_sub = $options{value_title_sub}; + 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 $ref = ref $element; @@ -225,7 +231,7 @@ sub options_for_select { my $code = ''; foreach my $result (@elements) { my %attributes = ( value => $result->[0] ); - $attributes{selected} = 'selected' if $options{default} && ($options{default} eq ($result->[0] || '')); + $attributes{selected} = 'selected' if $selected{ defined($result->[0]) ? $result->[0] : '' }; $code .= $self->html_tag('option', _H($result->[1]), %attributes); } @@ -238,6 +244,20 @@ sub javascript { return $self->html_tag('script', $data, type => 'text/javascript'); } +sub stylesheet_tag { + my $self = shift; + my $code = ''; + + foreach my $file (@_) { + $file .= '.css' unless $file =~ m/\.css$/; + $file = "css/${file}" unless $file =~ m|/|; + + $code .= qq||; + } + + return $code; +} + sub date_tag { my ($self, $name, $value, @slurp) = @_; my %params = _hashify(@slurp); @@ -267,6 +287,7 @@ sub date_tag { $self->javascript( "Calendar.setup({ inputField: '$name_e', ifFormat: '$datefmt', align: '$params{cal_align}', button: 'trigger$seq' });" ) : ''); +} sub javascript_tag { my $self = shift; @@ -285,7 +306,7 @@ sub javascript_tag { 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; @@ -299,7 +320,7 @@ sub tabbed { 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') : ()) @@ -355,6 +376,102 @@ sub areainput_tag { : $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 = < + \$().ready(function() { + \$('#${id}').multiselect2side({ ${vars} }); + }); + +EOCODE + + return $code; +} + +sub sortable_element { + my ($self, $selector, @slurp) = @_; + my %params = _hashify(@slurp); + + my %attributes = ( distance => 5, + helper => <<'JAVASCRIPT' ); + function(event, ui) { + ui.children().each(function() { + $(this).width($(this).width()); + }); + return ui; + } +JAVASCRIPT + + my $stop_event = ''; + + if ($params{url} && $params{with}) { + my $as = $params{as} || $params{with}; + my $filter = ".filter(function(idx) { return this.substr(0, " . length($params{with}) . ") == '$params{with}'; })"; + $filter .= ".map(function(idx, str) { return str.replace('$params{with}_', ''); })"; + + $stop_event = <*:odd').removeClass('listrow1').removeClass('listrow0').addClass('listrow0'); + \$('${selector}>*:even').removeClass('listrow1').removeClass('listrow0').addClass('listrow1'); +JAVASCRIPT + } + + if ($stop_event) { + $attributes{stop} = < + \$(function() { + \$( "${selector}" ).sortable({ ${attr_str} }) + }); + +JAVASCRIPT + + 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; + return '
' . Data::Dumper::Dumper(@_) . '
'; +} + 1; __END__ @@ -486,6 +603,13 @@ tag for each file name parameter passed. Each file name will be postfixed with '.js' if it isn't already and prefixed with 'js/' if it doesn't contain a slash. +=item C + +Creates a HTML 'Elink rel="text/stylesheet" href="..."E' tag +for each file name parameter passed. Each file name will be postfixed +with '.css' if it isn't already and prefixed with 'css/' if it doesn't +contain a slash. + =item C $align_code, %attributes> Creates a date input field, with an attached javascript that will open a @@ -516,6 +640,108 @@ include C for rendering a minimum of rows if a textarea is displayed. You can force input by setting rows to 1, and you can force textarea by setting rows to anything >1. +=item C + +Creates a JavaScript snippet calling the jQuery function +C 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 + +The label of the list of available options. Defaults to the +translation of 'Available'. + +=item C + +The label of the list of selected options. Defaults to the +translation of 'Selected'. + +=back + +=item C + +Makes the children of the DOM element C<$selector> (a jQuery selector) +sortable with the I library. The children can be +dragged & dropped around. After dropping an element an URL can be +postet to with the element IDs of the sorted children. + +If this is used then the JavaScript file C must be +included manually as well as it isn't loaded via C<$::form-gt;header>. + +C<%params> can contain the following entries: + +=over 2 + +=item C + +The URL to POST an AJAX request to after a dragged element has been +dropped. The AJAX request's return value is ignored. If given then +C<$params{with}> must be given as well. + +=item C + +A string that is interpreted as the prefix of the children's ID. Upon +POSTing the result each child whose ID starts with C<$params{with}> is +considered. The prefix and the following "_" is removed from the +ID. The remaining parts of the IDs of those children are posted as a +single array parameter. The array parameter's name is either +C<$params{as}> or, missing that, C<$params{with}>. + +=item C + +Sets the POST parameter name for AJAX request after dropping an +element (see C<$params{with}>). + +=item C + +An optional jQuery selector specifying which part of the child element +is dragable. If the parameter is not given then it defaults to +C<.dragdrop> matching DOM elements with the class C. If the +parameter is set and empty then the whole child element is dragable, +and clicks through to underlying elements like inputs or links might +not work. + +=item C + +If trueish then the children will not be recolored. The default is to +recolor the children by setting the class C on odd and +C on even entries. + +=back + +Example: + + + + + + + + + + + + +
ThisThat
stuffmore stuff
stuffmore stuff
stuffmore stuff
+ + [% L.sortable_element('#thing_list tbody', + url => 'controller.pl?action=SystemThings/reorder', + with => 'thingy', + as => 'thing_ids', + recolor_rows => 1) %] + +After dropping e.g. the third element at the top of the list a POST +request would be made to the C action of the C +controller with a single parameter called C -- an array +containing the values C<[ 6, 2, 15 ]>. + +=item C + +Dumps the Argument using L into a EpreE block. + =back =head2 CONVERSION FUNCTIONS @@ -564,6 +790,10 @@ C) will be used as the first element. The title to display for this element can be set with the option C and defaults to an empty string. +The option C can be either a scalar or an array reference +containing the values of the options which should be set to be +selected. + =item C Creates a tab for C. The description will be used as displayed name.