Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 43c5def4

Von Werner Hahn vor fast 2 Jahren hinzugefügt

  • ID 43c5def4144f7b0cdba500ffa8513b68dc356cc4
  • Vorgänger 252dafc5
  • Nachfolger ed7b98dd

Model::Record sub delete

Unterschiede anzeigen:

SL/Model/Record.pm
2 2

  
3 3
use strict;
4 4

  
5

  
5
use SL::Locale::String qw(t8);
6 6

  
7 7

  
8 8
sub new {
......
49 49
}
50 50

  
51 51
sub delete {
52
  my ($class, $record, %flags) = @_;
52
  my ($class, $record, %params) = @_;
53

  
54
  my $errors = [];
55
  my $db = $record->db;
56

  
57
  $db->with_transaction(
58
    sub {
59
      my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $record->id ]) };
60
      $record->delete;
61
      my $spool = $::lx_office_conf{paths}->{spool};
62
      unlink map { "$spool/$_" } @spoolfiles if $spool;
63

  
64
      _save_history($record,'DELETED', \$params{history});
65

  
66
      1;
67
  }) || push(@{$errors}, $db->error);
53 68

  
69
  if (scalar @{ $errors} ){
70
    croak(t8('Error delete record'));
71
  };
54 72
  # das hier sollte der code sein der in sub delete aus den controllern liegt
55 73
  # nicht nur record->delete, sondern auch andere elemente aufräumen
56 74
  # spool aufräumen

Auch abrufbar als: Unified diff