Some string cleaning

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@411 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 7 insertions, 7 deletions

diff --git a/bin/arap.pl b/bin/arap.pl
index 7da220d7..6ddd6e7e 100755
--- a/bin/arap.pl
+++ b/bin/arap.pl
@@ -711,7 +711,7 @@ sub schedule {
 |;
 
   
-  $title = $locale->text('Recurring Transaction') ." ".  $locale->text('for') ." $description";
+  $title = $locale->text('Recurring Transaction for [_1]', $description);
 
   $form->header;
 
@@ -906,15 +906,15 @@ sub reprint {
   if ($form->{media} eq 'email') {
     # add email message
     $now = scalar localtime;
-    $cc = $locale->text('Cc').qq|: $form->{cc}\n| if $form->{cc};
-    $bcc = $locale->text('Bcc').qq|: $form->{bcc}\n| if $form->{bcc};
+    $cc = $locale->text('Cc: [_1]', $form->{cc}).qq|\n| if $form->{cc};
+    $bcc = $locale->text('Bcc: [_1]', $form->{bcc}).qq|\n| if $form->{bcc};
 
     $form->{intnotes} .= qq|\n\n| if $form->{intnotes};
     $form->{intnotes} .= qq|[email]\n|
-    .$locale->text('Date').qq|: $now\n|
-    .$locale->text('To').qq|: $form->{email}\n${cc}${bcc}|
-    .$locale->text('Subject').qq|: $form->{subject}\n\n|
-    .$locale->text('Message').qq|: |;
+    .$locale->text('Date: [_1]', $now).qq|\n|
+    .$locale->text('To: [_1]\n[_2][_3]', $form->{email}, ${cc}, ${bcc})
+    .$locale->text('Subject: [_1]', $form->{subject}).qq|\n\n|
+    .$locale->text('Message: ');
 
     $form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');