X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDev%2FPart.pm;h=967a1f75b40c0a0cb1e1a05e24cdf41b3fa64df2;hb=1b032ef45d886922f1fe347ec234c9b0c8c50efd;hp=aa69c0d7b2dfc73a9e218b90d6b584367b8570be;hpb=cf3a8cf79ac2f6228b298ef260f3471490c3132b;p=kivitendo-erp.git 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;