Revision 69ecdc26
Von Tamino Steinert vor 5 Monaten hinzugefügt
| SL/Presenter/Filter.pm | ||
|---|---|---|
|
allow_extra => 1,
|
||
|
);
|
||
|
my @elements = @{$ref_elements};
|
||
|
my $count_elements = scalar(@elements);
|
||
|
my $count_columns = min($count_elements, $params{count_columns});
|
||
|
|
||
|
my $div_columns = "";
|
||
|
|
||
|
my $elements_per_column = (int((scalar(@{$ref_elements}) - 1) / $params{count_columns}) + 1);
|
||
|
for my $i (0 .. (min(scalar @elements, $params{count_columns}) - 1)) {
|
||
|
my $start_index = 0;
|
||
|
my $min_elements_per_column = int(($count_elements) / $count_columns);
|
||
|
for my $i (0 .. ($count_columns - 1)) {
|
||
|
my $elements_in_cloumn = $min_elements_per_column
|
||
|
+ (($count_elements % $count_columns) > $i ? 1 : 0);
|
||
|
|
||
|
my $rows = "";
|
||
|
for my $j (0 .. ($elements_per_column - 1) ) {
|
||
|
my $idx = $elements_per_column * $i + $j;
|
||
|
for my $j (0 .. ($elements_in_cloumn - 1) ) {
|
||
|
my $idx = $start_index + $j;
|
||
|
my $element = $elements[$idx];
|
||
|
$rows .= html_tag('tr', $element);
|
||
|
|
||
|
}
|
||
|
$start_index += $elements_in_cloumn;
|
||
|
$div_columns .= html_tag('div',
|
||
|
html_tag('table',
|
||
|
html_tag('tr',
|
||
| SL/Presenter/Filter/Part.pm | ||
|---|---|---|
|
package SL::Presenter::Filter::Part;
|
||
|
|
||
|
use parent SL::Presenter::Filter;
|
||
|
|
||
|
use strict;
|
||
|
|
||
|
use SL::Locale::String qw(t8);
|
||
|
|
||
|
use Params::Validate qw(:all);
|
||
|
|
||
|
sub get_default_filter_elements {
|
||
|
my ($filter) = @_;
|
||
|
|
||
|
my %default_filter_elements = ( # {{{
|
||
|
part_data => {
|
||
|
'position' => 1,
|
||
|
'text' => t8('Article data'),
|
||
|
'input_type' => 'input_group',
|
||
|
'input_values' => {
|
||
|
'partnumber' => {
|
||
|
'position' => 1,
|
||
|
'text' => t8("Partnumber"),
|
||
|
'input_type' => 'input_tag',
|
||
|
'input_name' => 'filter.partnumber:substr::ilike',
|
||
|
'input_default' => $filter->{'partnumber:substr::ilike'},
|
||
|
'report_id' => 'partnumber',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'ean' => {
|
||
|
'position' => 2,
|
||
|
'text' => t8("EAN"),
|
||
|
'input_type' => 'input_tag',
|
||
|
'input_name' => 'filter.ean:substr::ilike',
|
||
|
'input_default' => $filter->{'ean:substr::ilike'},
|
||
|
'report_id' => 'ean',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'description' => {
|
||
|
'position' => 3,
|
||
|
'text' => t8("Part Description"),
|
||
|
'input_type' => 'input_tag',
|
||
|
'input_name' => 'filter.description:substr::ilike',
|
||
|
'input_default' => $filter->{'description:substr::ilike'},
|
||
|
'report_id' => 'description',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'notes' => {
|
||
|
'position' => 4,
|
||
|
'text' => t8("Notes"),
|
||
|
'input_type' => 'input_tag',
|
||
|
'input_name' => 'filter.notes:substr::ilike',
|
||
|
'input_default' => $filter->{'notes:substr::ilike'},
|
||
|
'report_id' => 'notes',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'partsgroup' => {
|
||
|
'position' => 5,
|
||
|
'text' => t8("Partsgroup"),
|
||
|
'input_type' => 'input_tag',
|
||
|
'input_name' => 'filter.partsgroup.partsgroup:substr::ilike',
|
||
|
'input_default' => $filter->{partsgroup}->{'partsgroup:substr::ilike'},
|
||
|
'report_id' => 'partsgroup',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
},
|
||
|
'input_name' => 'part_data',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
); # }}}
|
||
|
return \%default_filter_elements;
|
||
|
}
|
||
|
|
||
|
sub get_price_change_printed_filter {
|
||
|
my ($filter) = @_;
|
||
|
my %part_label_print_filter = (
|
||
|
price_change_printed => {
|
||
|
'position' => 0.5,
|
||
|
'text' => t8('Price Change Printed'),
|
||
|
'input_type' => 'input_group',
|
||
|
'input_values' => {
|
||
|
'template' => {
|
||
|
'position' => 1,
|
||
|
'text' => t8("Template"),
|
||
|
'input_type' => 'select_tag',
|
||
|
'input_values' => [
|
||
|
['' => ''],
|
||
|
['part_label' => t8('Part label')],
|
||
|
['part_info' => t8('Part info')],
|
||
|
],
|
||
|
'input_name' => 'filter.price_change_printed.template',
|
||
|
'input_default' => $filter->{price_change_printed}->{template},
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'print_type' => {
|
||
|
'position' => 2,
|
||
|
'text' => t8("Print Type"),
|
||
|
'input_type' => 'select_tag',
|
||
|
'input_values' => [
|
||
|
['' => ''],
|
||
|
['stock' => t8('Stock')],
|
||
|
['single' => t8('Single')],
|
||
|
],
|
||
|
'input_name' => 'filter.price_change_printed.print_type',
|
||
|
'input_default' => $filter->{price_change_printed}->{print_type},
|
||
|
'active' => 1,
|
||
|
},
|
||
|
'printed' => {
|
||
|
'position' => 3,
|
||
|
'text' => t8("Printed"),
|
||
|
'input_type' => 'select_tag',
|
||
|
'input_values' => [['0' => t8('No')], ['1' => t8('Yes')]],
|
||
|
'input_name' => 'filter.price_change_printed.printed',
|
||
|
'input_default' => $filter->{price_change_printed}->{printed},
|
||
|
'active' => 1,
|
||
|
},
|
||
|
},
|
||
|
'input_name' => 'price_change_printed_group',
|
||
|
'active' => 1,
|
||
|
},
|
||
|
);
|
||
|
return \%part_label_print_filter
|
||
|
}
|
||
|
|
||
|
sub filter {
|
||
|
my $filter = shift @_;
|
||
|
die "filter has to be a hash ref" if ref $filter ne 'HASH';
|
||
|
my %params = validate_with(
|
||
|
params => \@_,
|
||
|
spec => {
|
||
|
},
|
||
|
allow_extra => 1,
|
||
|
);
|
||
|
|
||
|
my $filter_elements = get_default_filter_elements($filter);
|
||
|
if(delete $params{show_price_change_printed_filter}) {
|
||
|
$filter_elements = {
|
||
|
%{$filter_elements},
|
||
|
%{get_price_change_printed_filter($filter)}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
return SL::Presenter::Filter::create_filter($filter_elements, %params);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=pod
|
||
|
|
||
|
=encoding utf8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::Presenter::Filter::Reclamation - Presenter module for a generic Filter on
|
||
|
Reclamation.
|
||
|
|
||
|
=head1 SYNOPSIS
|
||
|
|
||
|
# in Reclamation Controller
|
||
|
my $filter_html = SL::Presenter::Filter::Reclamation::filter(
|
||
|
$::form->{filter}, $self->type, active_in_report => $::form->{active_in_report}
|
||
|
);
|
||
|
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item C<filter $filter, $reclamation_type, %params>
|
||
|
|
||
|
Returns a rendered version (actually an instance of
|
||
|
L<SL::Presenter::EscapedText>) of a filter form for reclamations of type
|
||
|
C<$reclamation_type>.
|
||
|
|
||
|
C<$filter> should be the C<filter> value of the last C<$::form>. This is used to
|
||
|
get the previous values of the input fields.
|
||
|
|
||
|
C<%params> fields get forwarded to C<SL::Presenter::Filter::create_filter>.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 BUGS
|
||
|
|
||
|
Nothing here yet.
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
Tamino Steinert E<lt>tamino.steinert@tamino.stE<gt>
|
||
|
|
||
|
=cut
|
||
Auch abrufbar als: Unified diff
FIX: S:P:Filter: Spalten und Zeilen für Filtereingabe richtig berechnen