Revision aae0a190
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
bin/mozilla/ic.pl | ||
---|---|---|
32 | 32 |
#====================================================================== |
33 | 33 |
|
34 | 34 |
use POSIX qw(strftime); |
35 |
use List::Util qw(max); |
|
35 |
use List::Util qw(first max);
|
|
36 | 36 |
use List::MoreUtils qw(any); |
37 | 37 |
|
38 | 38 |
use SL::AM; |
... | ... | |
117 | 117 |
|
118 | 118 |
$form->get_lists('partsgroup' => 'ALL_PARTSGROUPS'); |
119 | 119 |
print $form->parse_html_template('ic/search', { %is_xyz, |
120 |
dateformat => $myconfig{dateformat},
|
|
120 |
dateformat => $myconfig{dateformat}, |
|
121 | 121 |
limit => $myconfig{vclimit}, }); |
122 | 122 |
|
123 | 123 |
$lxdebug->leave_sub(); |
... | ... | |
2042 | 2042 |
$main::lxdebug->leave_sub(); |
2043 | 2043 |
} |
2044 | 2044 |
|
2045 |
sub back_to_record { |
|
2046 |
_check_io_auth(); |
|
2047 |
|
|
2048 |
$::auth->restore_form_from_session($::form->{previousform}, clobber => 1); |
|
2049 |
$::form->{rowcount}--; |
|
2050 |
$::form->{action} = 'display_form'; |
|
2051 |
$::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form }); |
|
2052 |
$::form->redirect; |
|
2053 |
} |
|
2054 |
|
|
2045 | 2055 |
sub continue { call_sub($form->{"nextsub"}); } |
2056 |
|
|
2057 |
sub dispatcher { |
|
2058 |
my $action = first { $::form->{"action_${_}"} } qw(add back_to_record); |
|
2059 |
$::form->error($::locale->text('No action defined.')) unless $action; |
|
2060 |
|
|
2061 |
$::form->{dispatched_action} = $action; |
|
2062 |
call_sub($action); |
|
2063 |
} |
Auch abrufbar als: Unified diff
Maske 'Artikel nicht in DB; neu anlegen?' auch funktionierenden 'Zurück'-Button anzeigen