From 96d5540038b646fad751855528b94706e69054a8 Mon Sep 17 00:00:00 2001 From: tetragon Date: Sat, 3 Nov 2007 17:23:01 +0000 Subject: Template rc.pl's reconciliation git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1845 4979c152-3d1c-0410-bac9-87ea11338e46 --- UI/rc-reconciliation.html | 129 ++++++++++++++++++++++++++++++++++++++ bin/rc.pl | 153 ++++++++++++++-------------------------------- 2 files changed, 175 insertions(+), 107 deletions(-) create mode 100644 UI/rc-reconciliation.html diff --git a/UI/rc-reconciliation.html b/UI/rc-reconciliation.html new file mode 100644 index 00000000..b0174ba4 --- /dev/null +++ b/UI/rc-reconciliation.html @@ -0,0 +1,129 @@ + + + +
+ + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + +
'date', + name => 'fromdate', + size => '11', + title => user.dateformat, + } ?> 'date', + name => 'todate', + size => '11', + title => user.dateformat, + } ?> +
+ + + 'interval', + type => 'radio', + value => '0', + label => text('Current'), + checked => 'checked', + } -?> + 'interval', + type => 'radio', + value => '1', + label => text('Month'), + } -?> + 'interval', + type => 'radio', + value => '3', + label => text('Quarter'), + } -?> + 'interval', + type => 'radio', + value => '12', + label => text('Year'), + } -?> +
+ 'checkbox', + name => 'outstanding', + value => '1', + label => text('Outstanding'), + checked => 'checked', + }; ?> + + 'checkbox', + name => 'cleared', + value => '1', + label => text('Cleared'), + }; ?> +
+ + 'radio', + name => 'summary', + value => '1', + label => text('Summary'), + checked => 'checked', + }; + PROCESS input element_data={ + type => 'radio', + name => 'summary', + value => '0', + label => text('Detail'), + }; ?> +
+ + 'checkbox', + name => 'fx_transaction', + value => '1', + label => text('Include Exchange Rate Difference'), + checked => 'checked', + }; ?> +
+
+ 'hidden', + name => hidden, + value => hiddens.item(hidden) + }; END ?> + +
+ + diff --git a/bin/rc.pl b/bin/rc.pl index 618ff2dc..655cb3e6 100644 --- a/bin/rc.pl +++ b/bin/rc.pl @@ -76,134 +76,73 @@ sub reconciliation { RC->paymentaccounts( \%myconfig, \%$form ); - $selection = ""; + $form->{accountselect} = { + name => 'accno', + options => [], + }; for ( @{ $form->{PR} } ) { - $selection .= "