From bfcb723e7a4e002123c2d0fac8c262388cc4d2fe Mon Sep 17 00:00:00 2001 From: tetragon Date: Tue, 31 Oct 2006 00:38:28 +0000 Subject: String and button updates git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@410 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/rp.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/bin/rp.pl b/bin/rp.pl index d130859e..29c49869 100755 --- a/bin/rp.pl +++ b/bin/rp.pl @@ -1691,9 +1691,9 @@ sub aging { # type=submit $locale->text('Print') # type=submit $locale->text('E-mail') - %button = ('Select all' => { ndx => 1, key => 'A', value => $locale->text('Select all') }, - 'Print' => { ndx => 2, key => 'P', value => $locale->text('Print') }, - 'E-mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') }, + %button = ('select_all' => { ndx => 1, key => 'A', value => $locale->text('Select all') }, + 'print' => { ndx => 2, key => 'P', value => $locale->text('Print') }, + 'e_mail' => { ndx => 5, key => 'E', value => $locale->text('E-mail') }, ); for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } @@ -1813,7 +1813,7 @@ sub e_mail { |; } - $title = $locale->text('E-mail Statement to')." $form->{$form->{ct}}"; + $title = $locale->text('E-mail Statement to [_1]', $form->{$form->{ct}}); $form->{media} = "email"; @@ -1893,14 +1893,14 @@ sub send_email { $form->{OUT} = "${LedgerSMB::Sysconfig::sendmail}"; - $form->{subject} = $locale->text('Statement').qq| - $form->{todate}| unless $form->{subject}; + $form->{subject} = $locale->text('Statement - [_1]', $form->{todate}) unless $form->{subject}; $form->isblank("email", $locale->text('E-mail address missing!')); RP->aging(\%myconfig, \%$form); &print_form; - $form->redirect($locale->text('Statement sent to')." $form->{$form->{ct}}"); + $form->redirect($locale->text('Statement sent to [_1]', $form->{$form->{ct}})); } -- cgit v1.2.3