X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDev%2FCustomerVendor.pm;h=849bbda3bdf803b7b1feb618ada64ef0b01e20b6;hb=1b032ef45d886922f1fe347ec234c9b0c8c50efd;hp=fc41d85ef86b92351aa9ad296e1b86d446aa1247;hpb=3ea2fdd170fab2e0d7c39b47564e4111f65d9057;p=kivitendo-erp.git

diff --git a/SL/Dev/CustomerVendor.pm b/SL/Dev/CustomerVendor.pm
index fc41d85ef..849bbda3b 100644
--- a/SL/Dev/CustomerVendor.pm
+++ b/SL/Dev/CustomerVendor.pm
@@ -2,13 +2,14 @@ package SL::Dev::CustomerVendor;
 
 use strict;
 use base qw(Exporter);
-our @EXPORT = qw(create_customer);
+our @EXPORT_OK = qw(new_customer new_vendor);
+our %EXPORT_TAGS = (ALL => \@EXPORT_OK);
 
 use SL::DB::TaxZone;
 use SL::DB::Currency;
 use SL::DB::Customer;
 
-sub create_customer {
+sub new_customer {
   my (%params) = @_;
 
   my $taxzone    = _check_taxzone(delete $params{taxzone_id});
@@ -22,7 +23,7 @@ sub create_customer {
   return $customer;
 }
 
-sub create_vendor {
+sub new_vendor {
   my (%params) = @_;
 
   my $taxzone    = _check_taxzone(delete $params{taxzone_id});
@@ -69,17 +70,17 @@ SL::Dev::CustomerVendor - create customer and vendor objects for testing, with m
 
 =head1 FUNCTIONS
 
-=head2 C<create_customer %PARAMS>
+=head2 C<new_customer %PARAMS>
 
 Creates a new customer.
 
 Minimal usage, default values, without saving to database:
 
-  my $customer = SL::Dev::CustomerVendor::create_customer();
+  my $customer = SL::Dev::CustomerVendor::new_customer();
 
 Complex usage, overwriting some defaults, and save to database:
 
-  SL::Dev::CustomerVendor::create_customer(name        => 'Test customer',
+  SL::Dev::CustomerVendor::new_customer(name        => 'Test customer',
                                            hourly_rate => 50,
                                            taxzone_id  => 2,
                                           )->save;
@@ -87,20 +88,21 @@ Complex usage, overwriting some defaults, and save to database:
 If neither taxzone_id or currency_id (both are NOT NULL) are passed as params
 then default values are used.
 
-=head2 C<create_vendor %PARAMS>
+=head2 C<new_vendor %PARAMS>
 
 Creates a new vendor.
 
 Minimal usage, default values, without saving to database:
 
-  my $vendor = SL::Dev::CustomerVendor::create_vendor();
+  my $vendor = SL::Dev::CustomerVendor::new_vendor();
 
 Complex usage, overwriting some defaults, and save to database:
 
-  SL::Dev::CustomerVendor::create_vendor(name        => 'Test vendor',
-                                         taxzone_id  => 2,
-                                         notes       => "Order for 100$ for free delivery",
-                                        )->save;
+  SL::Dev::CustomerVendor::new_vendor(name        => 'Test vendor',
+                                      taxzone_id  => 2,
+                                      notes       => "Order for 100$ for free delivery",
+                                      payment_id  => 5,
+                                     )->save;
 
 =head1 BUGS