From ebddc26487a0649cc0f8abd039188f887ace3e90 Mon Sep 17 00:00:00 2001 From: tetragon Date: Wed, 24 Oct 2007 18:18:50 +0000 Subject: Convert functions that use business_header to templates git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1811 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/am.pl | 70 ++++++++++++++++++++++++++++----------------------------------- 1 file changed, 31 insertions(+), 39 deletions(-) (limited to 'bin/am.pl') diff --git a/bin/am.pl b/bin/am.pl index c02e96bd..d1f19b3b 100644 --- a/bin/am.pl +++ b/bin/am.pl @@ -812,8 +812,20 @@ sub add_business { "$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; - &business_header; - &form_footer; + my %hiddens; + my @buttons; + my $checked = &business_header(\%hiddens); + &form_footer_buttons(\%hiddens, \@buttons); + + my $template = LedgerSMB::Template->new_UI( + user => \%myconfig, + locale => $locale, + template => 'am-business-form'); + $template->render({ + form => $form, + buttons => \@buttons, + hiddens => \%hiddens, + }); } @@ -823,11 +835,22 @@ sub edit_business { AM->get_business( \%myconfig, \%$form ); - &business_header; - $form->{orphaned} = 1; - &form_footer; + my %hiddens; + my @buttons; + my $checked = &business_header(\%hiddens); + &form_footer_buttons(\%hiddens, \@buttons); + + my $template = LedgerSMB::Template->new_UI( + user => \%myconfig, + locale => $locale, + template => 'am-business-form'); + $template->render({ + form => $form, + buttons => \@buttons, + hiddens => \%hiddens, + }); } sub list_business { @@ -904,6 +927,7 @@ sub list_business { } sub business_header { + my $hiddens = shift; $form->{title} = $locale->text("$form->{title} Business"); @@ -914,40 +938,8 @@ sub business_header { $form->{discount} = $form->format_amount( \%myconfig, $form->{discount} * 100 ); - $form->header; - - print qq| - - -

{script}> - -{id}> - - - - - - - - - - - - - -

$form->{title}

- - - - - - - - - -

\| . $locale->text('Type of Business') . qq\|
\| . $locale->text('Discount') . qq\| %	{discount}>

-|; + $hiddens->{id} = $form->{id}; + $hiddens->{type} = 'business'; } -- cgit v1.2.3