From e7e1dafee2629dcbd57e7ac3d50ad84bce03e694 Mon Sep 17 00:00:00 2001 From: tetragon Date: Thu, 25 Oct 2007 00:14:07 +0000 Subject: Convert company_logo to template git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1818 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/am.pl | 52 +++++++++------------------------------------------- 1 file changed, 9 insertions(+), 43 deletions(-) (limited to 'bin/am.pl') diff --git a/bin/am.pl b/bin/am.pl index 17cb3acb..581a19a0 100644 --- a/bin/am.pl +++ b/bin/am.pl @@ -2209,7 +2209,7 @@ sub generate_yearend { sub company_logo { - $myconfig{address} =~ s/\\n/
/g; + $myconfig{address} =~ s/\\n/
/g; # Template cleans this up $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost}; $form->{stylesheet} = $myconfig{stylesheet}; @@ -2217,48 +2217,14 @@ sub company_logo { $form->{title} = $locale->text('About'); # create the logo screen - $form->header; - - print qq| - - -
-
-
-
-LedgerSMB Logo -

| . $locale->text('Version') . qq| $form->{version}

- -

-|.$locale->text('Company').qq| : -

- -$myconfig{company} -
$myconfig{address} - - -

- - - - - - - - - - - - - -
| . $locale->text('User') . qq|$myconfig{name}
| . $locale->text('Dataset') . qq|$myconfig{dbname}
| . $locale->text('Database Host') . qq|$myconfig{dbhost}
- -

- - - -|; - + my $template = LedgerSMB::Template->new_UI( + user => \%myconfig, + locale => $locale, + template => 'am-company-logo'); + $template->render({ + form => $form, + user => \%myconfig, + }); } sub recurring_transactions { -- cgit v1.2.3