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, 5 insertions, 5 deletions

diff --git a/bin/io.pl b/bin/io.pl
index 4577ed86..85f65055 100755
--- a/bin/io.pl
+++ b/bin/io.pl
@@ -1468,15 +1468,15 @@ sub print_form {
     }
 
     $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};
     
     if (defined %$old_form) {
       $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n| if $old_form->{intnotes};
       $old_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|;
+      .$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|;
 
       $old_form->{intnotes} .= qq|\n|.$locale->text('Message').qq|: |;
       $old_form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent');