From 5ed2e96253b5cac400ac80e782d3e146c6edb421 Mon Sep 17 00:00:00 2001 From: tetragon Date: Sat, 22 Sep 2007 15:34:16 +0000 Subject: Converting list_gifi to templates git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1644 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/am.pl | 86 +++++++++++++++++++++++++++------------------------------------ 1 file changed, 37 insertions(+), 49 deletions(-) (limited to 'bin') diff --git a/bin/am.pl b/bin/am.pl index e41b9b59..12b36db9 100644 --- a/bin/am.pl +++ b/bin/am.pl @@ -493,71 +493,59 @@ sub list_gifi { $form->{title} = $locale->text('GIFI'); # construct callback - $callback = + my $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + $form->{callback} = $callback; - @column_index = qw(accno description); - - $column_header{accno} = - qq|| . $locale->text('GIFI') . qq||; - $column_header{description} = - qq|| - . $locale->text('Description') - . qq||; - - $form->header; - $colspan = $#column_index + 1; - - print qq| - - - - - - - - -|; - - for (@column_index) { print "$column_header{$_}\n" } - - print qq| - -|; + my @column_index = qw(accno description); + my %column_header; + my @rows; - # escape callback - $callback = $form->escape($callback); + $column_header{accno} = $locale->text('GIFI'); + $column_header{description} = $locale->text('Description'); + my $i = 0; foreach $ca ( @{ $form->{ALL} } ) { + my %column_data; $i++; $i %= 2; - - print qq| -|; + $column_data{i} = $i; $accno = $form->escape( $ca->{accno} ); - $column_data{accno} = -qq||; - $column_data{description} = qq||; - - for (@column_index) { print "$column_data{$_}\n" } + $column_data{accno} = {text => $ca->{accno}, href => + qq|$form->{script}?action=edit_gifi&coa=1&accno=$accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback|}; + $column_data{description} = $ca->{description}; - print "\n"; + push @rows, \%column_data; } - print qq| - - - -

$form->{title}
{script}?action=edit_gifi&coa=1&accno=$accno&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}	$ca->{description}

- - - -|; + my @buttons; + push @buttons, { + name => 'action', + value => 'csv_list_gifi', + text => $locale->text('CSV Report'), + type => 'submit', + class => 'submit', + }; + my $template = LedgerSMB::Template->new( + user => \%myconfig, + locale => $locale, + path => 'UI', + template => 'am-list-accounts', + format => ($form->{action} =~ /^csv/)? 'CSV': 'HTML'); + $template->render({ + form => \%$form, + buttons => \@buttons, + columns => \@column_index, + heading => \%column_header, + rows => \@rows, + }); } +sub csv_list_gifi { &list_gifi } + sub add_gifi { $form->{title} = "Add"; -- cgit v1.2.3