summaryrefslogtreecommitdiff
path: root/LedgerSMB/DBObject/Vendor.pm
blob: d6bb7bf112e91d2dda18083b81337bcd06aceabf (plain)
  1. package LedgerSMB::DBObject::Vendor;
  2. use base qw(LedgerSMB::DBObject::Company);
  3. use strict;
  4. my $ENTITY_CLASS = 1;
  5. sub set_entity_class {
  6. my $self = shift @_;
  7. $self->{entity_class} = $ENTITY_CLASS;
  8. }
  9. 1;