diff options
Diffstat (limited to 'LedgerSMB/DBObject/Vendor.pm')
-rw-r--r-- | LedgerSMB/DBObject/Vendor.pm | 31 |
1 files changed, 1 insertions, 30 deletions
diff --git a/LedgerSMB/DBObject/Vendor.pm b/LedgerSMB/DBObject/Vendor.pm index e2fa26d8..d6bb7bf1 100644 --- a/LedgerSMB/DBObject/Vendor.pm +++ b/LedgerSMB/DBObject/Vendor.pm @@ -5,38 +5,9 @@ use strict; my $ENTITY_CLASS = 1; -sub save { - my $self = shift @_; - - $self->{entity_class} = $ENTITY_CLASS; - $self->save_credit(); # inherited from Company -} - - -sub save_location { - my $self = shift @_; - $self->{entity_class} = $ENTITY_CLASS; - $self->{country_id} = $self->{country}; - $self->exec_method(funcname => 'company__location_save'); - - $self->{dbh}->commit; -} - - - -sub get { +sub set_entity_class { my $self = shift @_; $self->{entity_class} = $ENTITY_CLASS; - my ($ref) = $self->exec_method(funcname => 'entity__retrieve_credit'); - $self->merge($ref); - - $self->{name} = $self->{legal_name}; - $self->get_company(); } - - -sub search { - -} 1; |