From 8f5b8bd131d1a2cae3e2455b4a32d09d21999c30 Mon Sep 17 00:00:00 2001 From: tetragon Date: Wed, 24 Oct 2007 22:50:12 +0000 Subject: Convert the yearend form to a template git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1815 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/am.pl | 90 ++++++++++++++++++++------------------------------------------- 1 file changed, 29 insertions(+), 61 deletions(-) (limited to 'bin') diff --git a/bin/am.pl b/bin/am.pl index 3bb2468f..96442c6f 100644 --- a/bin/am.pl +++ b/bin/am.pl @@ -2130,73 +2130,41 @@ sub delete_warehouse { sub yearend { AM->earningsaccounts( \%myconfig, \%$form ); - $chart = ""; + my %hiddens; + my $chart = ""; + my %accounts = ( + name => 'accno', + options => [], + ); for ( @{ $form->{chart} } ) { - $chart .= "