Revision 46aa98a9
Von Martin Helmling martin.helmling@octosoft.eu vor etwa 8 Jahren hinzugefügt
| SL/Controller/Draft.pm | ||
|---|---|---|
| 81 | 81 |
package main; |
| 82 | 82 |
require $allowed_modules{ $self->draft->module };
|
| 83 | 83 |
} |
| 84 |
|
|
| 85 |
|
|
| 86 | 84 |
my $params = delete $::form->{form};
|
| 87 | 85 |
my $new_form = YAML::Load($self->draft->form); |
| 88 | 86 |
$::form->{$_} = $new_form->{$_} for keys %$new_form;
|
| ... | ... | |
| 91 | 89 |
if ($params && 'HASH' eq ref $params) {
|
| 92 | 90 |
$::form->{$_} = $params->{$_} for keys %$params;
|
| 93 | 91 |
} |
| 94 |
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
|
| 95 |
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
|
| 96 | 92 |
$::form->{script} = $self->draft->module . '.pl';
|
| 97 |
::update();
|
|
| 93 |
::show_draft();
|
|
| 98 | 94 |
} |
| 99 | 95 |
|
| 100 | 96 |
sub action_delete {
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 495 | 495 |
$main::lxdebug->leave_sub(); |
| 496 | 496 |
} |
| 497 | 497 |
|
| 498 |
sub show_draft {
|
|
| 499 |
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
|
| 500 |
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
|
| 501 |
update(); |
|
| 502 |
} |
|
| 503 |
|
|
| 498 | 504 |
sub update {
|
| 499 | 505 |
$main::lxdebug->enter_sub(); |
| 500 | 506 |
|
| bin/mozilla/ar.pl | ||
|---|---|---|
| 523 | 523 |
$main::lxdebug->leave_sub(); |
| 524 | 524 |
} |
| 525 | 525 |
|
| 526 |
sub show_draft {
|
|
| 527 |
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
|
| 528 |
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
|
| 529 |
update(); |
|
| 530 |
} |
|
| 531 |
|
|
| 526 | 532 |
sub update {
|
| 527 | 533 |
$main::lxdebug->enter_sub(); |
| 528 | 534 |
|
| bin/mozilla/gl.pl | ||
|---|---|---|
| 510 | 510 |
$main::lxdebug->leave_sub(); |
| 511 | 511 |
} |
| 512 | 512 |
|
| 513 |
sub show_draft {
|
|
| 514 |
$::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
|
|
| 515 |
$::form->{gldate} = $::form->{transdate} if !$::form->{gldate};
|
|
| 516 |
update(); |
|
| 517 |
} |
|
| 518 |
|
|
| 513 | 519 |
sub update {
|
| 514 | 520 |
$main::lxdebug->enter_sub(); |
| 515 | 521 |
|
| bin/mozilla/ir.pl | ||
|---|---|---|
| 480 | 480 |
$main::lxdebug->leave_sub(); |
| 481 | 481 |
} |
| 482 | 482 |
|
| 483 |
sub show_draft {
|
|
| 484 |
update(); |
|
| 485 |
} |
|
| 486 |
|
|
| 483 | 487 |
sub update {
|
| 484 | 488 |
$main::lxdebug->enter_sub(); |
| 485 | 489 |
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 546 | 546 |
$main::lxdebug->leave_sub(); |
| 547 | 547 |
} |
| 548 | 548 |
|
| 549 |
sub show_draft {
|
|
| 550 |
update(); |
|
| 551 |
} |
|
| 552 |
|
|
| 549 | 553 |
sub update {
|
| 550 | 554 |
$main::lxdebug->enter_sub(); |
| 551 | 555 |
|
Auch abrufbar als: Unified diff
BUGFIX: Kreditorenbuchungen: Fehler beim Nutzen von Drafts(2)
Herausnahme der Anpassungen aus dem Draft Controller in die neuen Methoden show_draft der legacy scripts