diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-07 00:06:29 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-07 00:06:29 +0000 |
commit | a24f6224e9cac752f34da6752a14fac7fa37c210 (patch) | |
tree | 3adc3805b51948ebde70f8362cc77cd452a1efa9 /scripts | |
parent | de7bf96d1388ae65efefc6ea11352a030b366f56 (diff) |
New templates added for contact search and invoice/order
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1957 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/vendor.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/scripts/vendor.pl b/scripts/vendor.pl index 01653916..540fe5f8 100644 --- a/scripts/vendor.pl +++ b/scripts/vendor.pl @@ -186,6 +186,19 @@ sub _render_main_screen{ $template->render($vendor); } +sub search { + my ($request) = @_; + $request->{account_class} = 1; + my $template = LedgerSMB::Template->new( + user => $request->{_user}, + template => 'search', + locale => $request->{_locale}, + path => 'UI/Contact', + format => 'HTML' + ); + $template->render($request); +} + sub save_contact { my ($request) = @_; my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request}); |