SF.net SVN: ledger-smb:[2234] trunk/scripts/vendor.pl

[..hidden..]

Revision: 2234
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2234&view=rev
Author:   einhverfr
Date:     2008-08-06 21:25:23 +0000 (Wed, 06 Aug 2008)

Log Message:
-----------
Adding entity/account note options

Modified Paths:
--------------
    trunk/scripts/vendor.pl

Modified: trunk/scripts/vendor.pl
===================================================================
--- trunk/scripts/vendor.pl	2008-08-06 17:12:46 UTC (rev 2233)
+++ trunk/scripts/vendor.pl	2008-08-06 21:25:23 UTC (rev 2234)
@@ -241,7 +241,6 @@
     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 @@
     $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}, 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.