Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 3941a721

Von Werner Hahn vor mehr als 1 Jahr hinzugefügt

  • ID 3941a7219bc5128675d7529086c123ae85a1a09a
  • Vorgänger f3bd65ee
  • Nachfolger 684f2f50

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