Converting Mailer to using MIME::Lite

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

1 files changed, 2 insertions, 2 deletions

diff --git a/bin/am.pl b/bin/am.pl
index 76423e9a..54f93163 100755
--- a/bin/am.pl
+++ b/bin/am.pl
@@ -2245,7 +2245,7 @@ sub save_preferences {
 sub backup {
 
   if ($form->{media} eq 'email') {
-    $form->error($locale->text('No email address for')." $myconfig{name}") unless ($myconfig{email});
+    $form->error($locale->text('No email address for [_1]', $myconfig{name})) unless ($myconfig{email});
     
     $form->{OUT} = "${LedgerSMB::Sysconfig::sendmail}";
 
@@ -2255,7 +2255,7 @@ sub backup {
   AM->backup(\%myconfig, \%$form, ${LedgerSMB::Sysconfig::userspath}, ${LedgerSMB::Sysconfig::gzip});
 
   if ($form->{media} eq 'email') {
-    $form->redirect($locale->text('Backup sent to').qq| $myconfig{email}|);
+    $form->redirect($locale->text('Backup sent to [_1]', $myconfig{email}));
   }
 
 }