X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/d51b3011755b4a7e006f433d9fe5836a22a69638..d32410ac096b:/SL/Dev/Part.pm diff --git a/SL/Dev/Part.pm b/SL/Dev/Part.pm index aa69c0d7b..967a1f75b 100644 --- a/SL/Dev/Part.pm +++ b/SL/Dev/Part.pm @@ -50,8 +50,8 @@ sub new_assembly { } else { for my $i ( 1 .. delete $params{number_of_parts} || 3) { my $part = new_part(partnumber => "$base_partnumber $i", - description => "Testpart $i", - )->save; + description => "Testpart $i", + )->save; push( @{$assembly_items}, SL::DB::Assembly->new(parts_id => $part->id, qty => 1, position => $i, @@ -85,8 +85,8 @@ sub new_assortment { } else { for my $i ( 1 .. delete $params{number_of_parts} || 3) { my $part = new_part(partnumber => "$base_partnumber $i", - description => "Testpart $i", - )->save; + description => "Testpart $i", + )->save; push( @{$assortment_items}, SL::DB::AssortmentItem->new(parts_id => $part->id, qty => 1, position => $i, @@ -129,7 +129,7 @@ SL::Dev::Part - create part objects for testing, with minimal defaults =head1 SYNOPSIS - use SL::DEV::Part qw(new_part new_assembly new_service new_assortment); + use SL::Dev::Part qw(new_part new_assembly new_service new_assortment); # simple default objects my $part = new_part()->save;