scripts/vendor.pl



#!/usr/bin/perl

=pod

=head1 NAME

LedgerSMB::Scripts::vendor - LedgerSMB class defining the Controller
functions, template instantiation and rendering for vendor editing and display.

=head1 SYOPSIS

This module is the UI controller for the vendor DB access; it provides the 
View interface, as well as defines the Save vendor. 
Save vendor will update or create as needed.


=head1 METHODS

=cut

package LedgerSMB::Scripts::vendor;

use LedgerSMB::DBObject::Vendor;
use base qw(LedgerSMB::ScriptLib::Company);

require 'lsmb-request.pl';

sub set_entity_class {
    my ($null, $request) = @_;
    $request->{entity_class} = 1;
    return 1;
}

sub new_company {
    my ($null, $request) = @_;
    return LedgerSMB::DBObject::Vendor->new(base=> $request, copy => 'all');
}

eval { do "scripts/custom/vendor.pl"};
    
1;