Adding entity/account note options

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2234 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 5 insertions, 1 deletions

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},