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, 3 deletions

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 8a7f5571..166fcbbb 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -390,7 +390,6 @@ sub format_amount {
 
 	my ($self, $myconfig, $amount, $places, $dash) = @_;
 
-
 	my $negative ;
 	if ($amount){
 		$amount = $self->parse_amount($myconfig, $amount);
@@ -929,7 +928,7 @@ sub parse_template {
 
 			}
 
-			if ($err = $mail->send($out)) {
+			if ($err = $mail->send) {
 				$self->cleanup;
 				$self->error($err);
 			}
@@ -2548,7 +2547,7 @@ sub get_recurring {
 		WHERE s.id = ?/;
 
 	my $sth = $dbh->prepare($query);
-	$sth->execute($self->{id}) || $form->dberror($query);
+	$sth->execute($self->{id}) || $self->dberror($query);
 
 	for (qw(email print)) { $self->{"recurring$_"} = "" }