Revision e122ca7d
Von Werner Hahn vor etwa 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