Revision a40cecf8
Von Tamino Steinert vor etwa 2 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 418 | 418 |
} |
| 419 | 419 |
|
| 420 | 420 |
sub create_action_bar_actions {
|
| 421 |
my ($self, $variables) = @_; |
|
| 421 |
my ($self, $variables, %params) = @_;
|
|
| 422 | 422 |
|
| 423 | 423 |
my @actions; |
| 424 | 424 |
foreach my $type (qw(pdf csv)) {
|
| ... | ... | |
| 430 | 430 |
|
| 431 | 431 |
push @actions, action => [ |
| 432 | 432 |
$type eq 'pdf' ? $::locale->text('PDF export') : $::locale->text('CSV export'),
|
| 433 |
submit => [ '#report_generator_form', { $key => $value } ],
|
|
| 433 |
submit => [ '#report_generator_form', {(
|
|
| 434 |
$key => $value, |
|
| 435 |
defined $params{action_bar_additional_submit_values}
|
|
| 436 |
? %{$params{action_bar_additional_submit_values}}
|
|
| 437 |
: undef |
|
| 438 |
)} ], |
|
| 434 | 439 |
]; |
| 435 | 440 |
} |
| 436 | 441 |
|
| ... | ... | |
| 449 | 454 |
sub setup_action_bar {
|
| 450 | 455 |
my ($self, $variables, %params) = @_; |
| 451 | 456 |
|
| 452 |
my @actions = $self->create_action_bar_actions($variables); |
|
| 457 |
my @actions = $self->create_action_bar_actions($variables, %params);
|
|
| 453 | 458 |
|
| 454 | 459 |
if ($params{action_bar_setup_hook}) {
|
| 455 | 460 |
$params{action_bar_setup_hook}->(@actions);
|
Auch abrufbar als: Unified diff
ReportGenerator: enable additional submit values in action bar