From 5494edb33464e87b12e55d582ca6477cbb4e9fd0 Mon Sep 17 00:00:00 2001 From: tetragon Date: Fri, 5 Oct 2007 22:02:51 +0000 Subject: Convert the defaults screen to using a template Make the defaults screen valid XHTML 1.0 Transitional git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1706 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/am.pl | 202 +++++++++++--------------------------------------------------- 1 file changed, 34 insertions(+), 168 deletions(-) (limited to 'bin/am.pl') diff --git a/bin/am.pl b/bin/am.pl index e79a9998..800b0dce 100644 --- a/bin/am.pl +++ b/bin/am.pl @@ -1693,182 +1693,48 @@ sub defaults { # get defaults for account numbers and last numbers AM->get_all_defaults( \%$form ); + my %selects = ( + 'FX_loss' => {name => 'FX_loss', options => []}, + 'FX_gain' => {name => 'FX_gain', options => []}, + 'IC_expense' => {name => 'IC_expense', options => []}, + 'IC_income' => {name => 'IC_income', options => []}, + 'IC_inventory' => {name => 'IC_inventory', options => []}, + 'IC' => {name => 'IC', options => []}, + ); foreach $key ( keys %{ $form->{accno} } ) { foreach $accno ( sort keys %{ $form->{accno}{$key} } ) { - $form->{account}{$key} .= - "