projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Globale Variablen für Druckvorlagen nach %::lx_office_conf verschoben
[kivitendo-erp.git]
/
SL
/
Template
/
Plugin
/
L.pm
diff --git
a/SL/Template/Plugin/L.pm
b/SL/Template/Plugin/L.pm
index
9aead01
..
9995722
100644
(file)
--- a/
SL/Template/Plugin/L.pm
+++ b/
SL/Template/Plugin/L.pm
@@
-55,12
+55,13
@@
sub name_to_id {
}
sub attributes {
}
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;
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) . '"';
}
$value = '' if !defined($value);
push @result, _H($name) . '="' . _H($value) . '"';
}
@@
-69,10
+70,8
@@
sub attributes {
}
sub html_tag {
}
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}>";
return "<${tag}${attributes}/>" unless defined($content);
return "<${tag}${attributes}>${content}</${tag}>";
@@
-101,9
+100,8
@@
sub textarea_tag {
}
sub checkbox_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};
$attributes{id} ||= $self->name_to_id($name);
$attributes{value} = 1 unless defined $attributes{value};
@@
-289,6
+287,7
@@
sub date_tag {
$self->javascript(
"Calendar.setup({ inputField: '$name_e', ifFormat: '$datefmt', align: '$params{cal_align}', button: 'trigger$seq' });"
) : '');
$self->javascript(
"Calendar.setup({ inputField: '$name_e', ifFormat: '$datefmt', align: '$params{cal_align}', button: 'trigger$seq' });"
) : '');
+}
sub javascript_tag {
my $self = shift;
sub javascript_tag {
my $self = shift;
@@
-307,7
+306,7
@@
sub javascript_tag {
sub tabbed {
my ($self, $tabs, @slurp) = @_;
my %params = _hashify(@slurp);
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;
$params{selected} *= 1;
@@
-321,7
+320,7
@@
sub tabbed {
next if $tab eq '';
my $selected = $params{selected} == $i;
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') : ())
push @header, $self->li_tag(
$self->link('', $tab->{name}, rel => $tab_id),
($selected ? (class => 'selected') : ())
@@
-397,6
+396,12
@@
EOCODE
return $code;
}
return $code;
}
+sub dump {
+ my $self = shift;
+ require Data::Dumper;
+ return '<pre>' . Data::Dumper::Dumper(@_) . '</pre>';
+}
+
1;
__END__
1;
__END__
@@
-586,6
+591,10
@@
translation of 'Selected'.
=back
=back
+=item C<dump REF>
+
+Dumps the Argument using L<Data::Dumper> into a E<lt>preE<gt> block.
+
=back
=head2 CONVERSION FUNCTIONS
=back
=head2 CONVERSION FUNCTIONS