From 411c1385318bbdf8204bb6c968f916294de21333 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 6 Aug 2008 21:25:23 +0000
Subject: Adding entity/account note options

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2234 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/vendor.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'scripts/vendor.pl')

diff --git a/scripts/vendor.pl b/scripts/vendor.pl
index 2119d46c..3f60a2c7 100644
--- a/scripts/vendor.pl
+++ b/scripts/vendor.pl
@@ -241,7 +241,6 @@ sub edit{
     my $request = shift @_;
     my $vendor = LedgerSMB::DBObject::Vendor->new({base => $request});
     $vendor->get();
-    $vendor->get_credit_id();
     _render_main_screen($vendor);
 }
 
@@ -252,6 +251,11 @@ sub _render_main_screen{
     $vendor->{creditlimit} = "$vendor->{creditlimit}"; 
     $vendor->{discount} = "$vendor->{discount}"; 
     $vendor->{script} = "vendor.pl";
+    $vendor->{note_class_options} = [
+        {label => 'Entity', value => 1},
+        {label => 'Vendor Account', value => 3},
+    ];
+    $vendor->{threshold} = $vendor->format_amount(amount => $vendor->{threshold});
 
     my $template = LedgerSMB::Template->new( 
 	user => $vendor->{_user}, 
-- 
cgit v1.2.3