Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 27a1f595

Von Moritz Bunkus vor etwa 5 Jahren hinzugefügt

Rechnungsmassenerstellen: keine DB-Transaktion um convert_to_invoice()

convert_to_invoice() macht selber intern bereits eine Transaktion auf;
daher ist die außen unnötig.

Weiterhin waren die Parameter merkwürdig übergeben:

• Für eine On-The-Fly-Unterscheidung für »diese Parameter« vs. »keine
Parameter« benötigt man keine sub; das geht einfach mit einem ternären
Operator.
• »Keine Parameter« drückt man nicht durch »undef« aus, sondern durch
die leere Liste »()«. Wird »undef« als einziger Parameter übergeben,
so wird in der Funktion de Facto das hier gemacht:

my %hash = (undef);
und das ergibt eine Warnung, dass eine Liste mit ungerader Anzahl von
  Elementen in ein Hash umgewandelt werden soll.

(cherry picked from commit e5a76ed158219e3d2b19f142213f8a80c11627f1)

Cherry pick aus dem master selber, da dieser commit durch
54ce51443886623bb785e7c54492ecbc8dc9b3aa "Dateimanagement: Massendruck"
überschrieben wurde.

Behebt #411 (redmine).

Unterschiede anzeigen:

SL/BackgroundJob/MassRecordCreationAndPrinting.pm
49 49 
    my $data   = $job_obj->data_as_hash;
50 50 

  		




  51
  51
  
    
    eval {


  		




  52
  
  
    
      my $invoice;


  		




  53
  52
  
    
      my $sales_delivery_order = SL::DB::DeliveryOrder->new(id => $delivery_order_id)->load;


  		




  54
  53
  
    
      $number                  = $sales_delivery_order->donumber;


  		




  
  54
  
    
      my %conversion_params    = $data->{transdate} ? ('attributes' => { transdate => $data->{transdate} }) : ();


  		




  
  55
  
    
      my $invoice              = $sales_delivery_order->convert_to_invoice(%conversion_params);


  		




  55
  56
  
    

  		




  56
  
  
    
      if (!$db->with_transaction(sub {


  		




  57
  
  
    
        $invoice = $sales_delivery_order->convert_to_invoice(sub { $data->{transdate} ? ('attributes' => { transdate => $data->{transdate} }) :


  		




  58
  
  
    
                                                                         undef }->() ) || die $db->error;


  		




  59
  
  
    
        1;


  		




  60
  
  
    
      })) {


  		




  61
  
  
    
        die $db->error;


  		




  62
  
  
    
      }


  		




  
  57
  
    
      die $db->error if !$invoice;


  		




  63
  58
  
    

  		




  64
  59
  
    
      $data->{num_created}++;


  		




  65
  60
  
    
      push @{ $data->{invoice_ids} }, $invoice->id;


  		












Auch abrufbar als:  Unified diff