summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject/Vendor.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/DBObject/Vendor.pm')
-rw-r--r--LedgerSMB/DBObject/Vendor.pm31
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;