Revision 4dc97e80
Von Sven Schöling vor fast 8 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 668 | 668 |
$lxdebug->leave_sub(); |
| 669 | 669 |
} #end generate_report |
| 670 | 670 |
|
| 671 |
sub back_to_record {
|
|
| 672 |
_check_io_auth(); |
|
| 673 |
|
|
| 674 |
|
|
| 675 |
delete @{$::form}{qw(action action_add action_back_to_record back_sub description item notes partnumber sellprice taxaccount2 unit vc)};
|
|
| 676 |
|
|
| 677 |
$::auth->restore_form_from_session($::form->{previousform}, clobber => 1);
|
|
| 678 |
$::form->{rowcount}--;
|
|
| 679 |
$::form->{action} = 'display_form';
|
|
| 680 |
$::form->{callback} = $::form->{script} . '?' . join('&', map { $::form->escape($_) . '=' . $::form->escape($::form->{$_}) } sort keys %{ $::form });
|
|
| 681 |
$::form->redirect; |
|
| 682 |
} |
|
| 683 |
|
|
| 684 | 671 |
sub continue { call_sub($form->{"nextsub"}); }
|
| 685 | 672 |
|
| 686 | 673 |
sub dispatcher {
|
| 687 |
my $action = first { $::form->{"action_${_}"} } qw(add back_to_record);
|
|
| 674 |
my $action = first { $::form->{"action_${_}"} } qw(add);
|
|
| 688 | 675 |
$::form->error($::locale->text('No action defined.')) unless $action;
|
| 689 | 676 |
|
| 690 | 677 |
$::form->{dispatched_action} = $action;
|
Auch abrufbar als: Unified diff
IC: obsoletes back_to_record entfernt