Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 252dafc5

Von Werner Hahn vor etwa 2 Jahren hinzugefügt

  • ID 252dafc5270c2280a47e50610d85ca17fea75257
  • Vorgänger 304a3439
  • Nachfolger 43c5def4

Model::Record history als private Funktion

Unterschiede anzeigen:

SL/Model/Record.pm
# fehler: exception
}
sub _save_history {
my ($record, $addition, %history) = @_;
my $number_type = $record->type =~ m{order} ? 'ordnumber' : 'quonumber';
my $snumbers = $number_type . '_' . $record->$number_type;
SL::DB::History->new(
trans_id => $record->id,
employee_id => SL::DB::Manager::Employee->current->id,
what_done => $record->type,
snumbers => $snumbers,
addition => $addition,
)->save;
}
sub save {
my ($class, $record, %params) = @_;

Auch abrufbar als: Unified diff