Revision 58143d76
Von Werner Hahn vor etwa 2 Jahren hinzugefügt
| SL/Model/Record.pm | ||
|---|---|---|
|
sub clone_for_save_as_new {
|
||
|
my ($class, $saved_record, $changed_record, %params) = @_;
|
||
|
|
||
|
# der übergebene beleg wurde mit new_from erstellt und muss nachbearbeitet werden:
|
||
|
# - transadte, reqdate müssen überschrieben werden
|
||
|
# - number muss überschrieben werden
|
||
|
# - employee auf aktuellen setzen
|
||
|
|
||
|
# changed_record
|
||
|
my %new_attrs;
|
||
|
# Lets assign a new number if the user hasn't changed the previous one.
|
||
Auch abrufbar als: Unified diff
S:M:R: nicht benötigte Kommentare raus