Revision 99474eff
Von Werner Hahn vor mehr als 1 Jahr hinzugefügt
SL/Model/Record.pm | ||
---|---|---|
233 | 233 |
sub clone_for_save_as_new { |
234 | 234 |
my ($class, $saved_record, $changed_record, %params) = @_; |
235 | 235 |
|
236 |
# der übergebene beleg wurde mit new_from erstellt und muss nachbearbeitet werden: |
|
237 |
# - transadte, reqdate müssen überschrieben werden |
|
238 |
# - number muss überschrieben werden |
|
239 |
# - employee auf aktuellen setzen |
|
240 |
|
|
241 | 236 |
# changed_record |
242 | 237 |
my %new_attrs; |
243 | 238 |
# 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