projekt kivitendo

our @EXPORT_OK = qw(create_invoice_item create_sales_invoice create_credit_note create_order_item  create_sales_order create_purchase_order create_delivery_order_item create_sales_delivery_order create_purchase_delivery_order create_project create_department);

    projectnumber     => delete $params{projectnumber} // 1,

    description       => delete $params{description} // "Test project",

sub create_department {

  my (%params) = @_;

  my $department = SL::DB::Department->new(

    'description' => delete $params{description} // 'Test Department',

  )->save;

  $department->assign_attributes(%params) if %params;

  return $department;

}

If C<$params{description}> or C<$params{projectnumber}> exists, this will override the

default value 'Test project'.

C<%params> should only contain alterable keys from the object Project.

=head2 C<create_department %PARAMS>

Creates a default department.

Minimal example:

  my $department = SL::Dev::Record::create_department();

  my $department = SL::Dev::Record::create_department(

    description => 'Hawaii',

  )

If C<$params{description}> exists, this will override the

default value 'Test Department'.

C<%params> should only contain alterable keys from the object Department.