summaryrefslogtreecommitdiff
path: root/LedgerSMB
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-11 01:29:59 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-12-11 01:29:59 +0000
commitdadb54b1ae14af43eca02a487dc21bfbe20c1227 (patch)
tree608dadb8dada9c377067b9087c0d16c9297016ee /LedgerSMB
parent2754d8bdcb9d1e85f569490f21ff931c65d5949a (diff)
Minor Customer/Vendor fixes regarding account dropdowns
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1970 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
-rw-r--r--LedgerSMB/DBObject/Company.pm14
1 files changed, 14 insertions, 0 deletions
diff --git a/LedgerSMB/DBObject/Company.pm b/LedgerSMB/DBObject/Company.pm
index 08e0ebc8..13b9ff65 100644
--- a/LedgerSMB/DBObject/Company.pm
+++ b/LedgerSMB/DBObject/Company.pm
@@ -30,6 +30,20 @@ sub save_location {
sub get_metadata {
my $self = shift @_;
+ @{$self->{ar_ap_acc_list}} =
+ $self->exec_method(funcname => 'chart_get_ar_ap');
+
+ for my $ref (@{$self->{ar_ap_acc_list}}){
+ $ref->{text} = "$ref->{accno}--$ref->{description}";
+ }
+
+ @{$self->{cash_acc_list}} =
+ $self->exec_method(funcname => 'chart_list_cash');
+
+ for my $ref (@{$self->{cash_acc_list}}){
+ $ref->{text} = "$ref->{accno}--$ref->{description}";
+ }
+
@{$self->{location_class_list}} =
$self->exec_method(funcname => 'location_list_class');