<?lsmb form.titlebar ?>

From 812247d1bb08e01f7a413a52958e7918a752ff81 Mon Sep 17 00:00:00 2001 From: tetragon Date: Sun, 14 Oct 2007 22:57:37 +0000 Subject: Template aging reports. Only partially tested git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1754 4979c152-3d1c-0410-bac9-87ea11338e46 --- UI/rp-aging.html | 93 +++++++++ UI/rp-email.html | 74 +++++++ bin/rp.pl | 581 +++++++++++++++++++++---------------------------------- 3 files changed, 390 insertions(+), 358 deletions(-) create mode 100644 UI/rp-aging.html create mode 100644 UI/rp-email.html diff --git a/UI/rp-aging.html b/UI/rp-aging.html new file mode 100644 index 00000000..dec54653 --- /dev/null +++ b/UI/rp-aging.html @@ -0,0 +1,93 @@ + + + + <?lsmb form.titlebar ?> + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + < class="" align=""> + + +
+ > + + + + + + + + + + + + +




width="1%"width="60%"width="10%" nowrap="nowrap"width="10%" nowrap="nowrap"> + + +

+ +
+ + + + diff --git a/UI/rp-email.html b/UI/rp-email.html new file mode 100644 index 00000000..2dc5e61d --- /dev/null +++ b/UI/rp-email.html @@ -0,0 +1,74 @@ + + + +

+ + + + + + + + + + + + + + + + + + +

+ + + + + + + + + + + + + + +

	'email', size=> '30', value => form.email} ?>		'cc', size=> '30', value => form.cc} ?>
	'subject', size=> '30', value => form.subject} ?>		'bcc', size=> '30', value => form.bcc} ?>

+ + + + + + + +


'message', + value => form.message, + rows => '15', + cols => '60', + wrap => 'soft'} ?>

+ + + + + + + +

+ 'hidden', + name => hidden, + value => hiddens.item(hidden) + }; END ?> + +

+ + diff --git a/bin/rp.pl b/bin/rp.pl index 17854644..38da89eb 100644 --- a/bin/rp.pl +++ b/bin/rp.pl @@ -1492,48 +1492,39 @@ qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{log sub aging { - $form->header; - - $column_header{statement} = qq| |; - $column_header{ct} = - qq|| - . $locale->text( ucfirst $form->{ct} ) - . qq||; - $column_header{language} = - qq|| . $locale->text('Language') . qq||; - $column_header{invnumber} = - qq|| . $locale->text('Invoice') . qq||; - $column_header{ordnumber} = - qq|| . $locale->text('Order') . qq||; - $column_header{transdate} = - qq|| . $locale->text('Date') . qq||; - $column_header{duedate} = - qq|| . $locale->text('Due Date') . qq||; - $column_header{c0} = - qq|| - . $locale->text('Current') - . qq||; - $column_header{c30} = qq|30|; - $column_header{c60} = qq|60|; - $column_header{c90} = qq|90|; - $column_header{total} = - qq|| - . $locale->text('Total') - . qq||; + my %hiddens; + my @buttons; + my @options; + my %column_header; + my @column_index; + my %row_alignment; + + $column_header{statement} = ' '; + $column_header{ct} = $locale->text( ucfirst $form->{ct} ); + $column_header{language} = $locale->text('Language'); + $column_header{invnumber} = $locale->text('Invoice'); + $column_header{ordnumber} = $locale->text('Order'); + $column_header{transdate} = $locale->text('Date'); + $column_header{duedate} = $locale->text('Due Date'); + $column_header{c0} = $locale->text('Current'); + $column_header{c30} = '30'; + $column_header{c60} = '60'; + $column_header{c90} = '90'; + $column_header{total} = $locale->text('Total'); @column_index = qw(statement ct); if ( @{ $form->{all_language} } && $form->{arap} eq 'ar' ) { push @column_index, "language"; - $form->{selectlanguage} = qq|