X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/8b7b7b3f6252786b38bb6c9357fc00a08750b8db..a23454bb1b039a31b7f77710ff663fa9152d530c:/SL/DB/Order.pm diff --git a/SL/DB/Order.pm b/SL/DB/Order.pm index b23e1da82..63d23f79f 100644 --- a/SL/DB/Order.pm +++ b/SL/DB/Order.pm @@ -23,7 +23,7 @@ __PACKAGE__->meta->add_relationship( class => 'SL::DB::OrderItem', column_map => { id => 'trans_id' }, manager_args => { - with_objects => [ 'parts' ] + with_objects => [ 'part' ] } }, periodic_invoices_config => { @@ -37,8 +37,7 @@ __PACKAGE__->meta->initialize; # methods -sub items { goto &orderitems; } -sub payment_terms { goto &payment; } +sub items { goto &orderitems; } sub type { my $self = shift; @@ -69,7 +68,7 @@ sub displayable_type { sub is_sales { croak 'not an accessor' if @_ > 1; - return shift->customer_id; + return !!shift->customer_id; } sub invoices { @@ -133,6 +132,10 @@ sub number { return $self->${ \ $number_method{$self->type} }(@_); } +sub date { + goto &transdate; +} + 1; __END__