#!/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;