Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 23ec475a

Von Sven Schöling vor etwa 1 Jahr hinzugefügt

  • ID 23ec475aebdf836c959cbd5923242ecb14594f7d
  • Vorgänger 3fb912cf
  • Nachfolger b952eb3e

fix: kein use SL::DB in SL::DB

Unterschiede anzeigen:

SL/DB/DeliveryOrder.pm
4 4

  
5 5
use Carp;
6 6

  
7
use Rose::DB::Object::Helpers ();
7
use Rose::DB::Object::Helpers qw(as_tree strip);
8 8

  
9 9
use SL::DB::MetaSetup::DeliveryOrder;
10 10
use SL::DB::Manager::DeliveryOrder;
......
13 13
use SL::DB::Helper::FlattenToForm;
14 14
use SL::DB::Helper::LinkedRecords;
15 15
use SL::DB::Helper::TransNumberGenerator;
16

  
17
use SL::DB::Part;
18
use SL::DB::Unit;
19

  
20 16
use SL::DB::DeliveryOrder::TypeData qw(:types);
21 17

  
22 18
use SL::Helper::Number qw(_format_total _round_total);
23 19

  
24
use Rose::DB::Object::Helpers qw(as_tree strip);
25 20
use List::Util qw(first);
26 21
use List::MoreUtils qw(any pairwise);
27 22
use Math::Round qw(nhimult);
......
246 241

  
247 242
sub new_from_time_recordings {
248 243
  my ($class, $sources, %params) = @_;
244
  require SL::DB::Part;
245
  require SL::DB::Unit;
249 246

  
250 247
  croak("Unsupported object type in sources")                                      if any { ref($_) ne 'SL::DB::TimeRecording' }            @$sources;
251 248
  croak("Cannot create delivery order from source records of different customers") if any { $_->customer_id != $sources->[0]->customer_id } @$sources;

Auch abrufbar als: Unified diff