SF.net SVN: ledger-smb:[3707] trunk/bin/rp.pl

[..hidden..]

Revision: 3707
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3707&view=rev
Author:   einhverfr
Date:     2011-09-17 23:17:14 +0000 (Sat, 17 Sep 2011)
Log Message:
-----------
Correcting company info on statements when emailed:

Modified Paths:
--------------
    trunk/bin/rp.pl

Modified: trunk/bin/rp.pl
===================================================================
--- trunk/bin/rp.pl	2011-09-17 23:14:00 UTC (rev 3706)
+++ trunk/bin/rp.pl	2011-09-17 23:17:14 UTC (rev 3707)
@@ -1533,12 +1533,12 @@
         );
     try {
         my $csettings = $LedgerSMB::Company_Config::settings;
-        $form->{company} = $csettings->{company_name};
-        $form->{businessnumber} = $csettings->{businessnumber};
-        $form->{email} = $csettings->{company_email};
-        $form->{address} = $csettings->{company_address};
-        $form->{tel} = $csettings->{company_phone};
-        $form->{fax} = $csettings->{company_fax};
+        $data->{company} = $csettings->{company_name};
+        $data->{businessnumber} = $csettings->{businessnumber};
+        $data->{email} = $csettings->{company_email};
+        $data->{address} = $csettings->{company_address};
+        $data->{tel} = $csettings->{company_phone};
+        $data->{fax} = $csettings->{company_fax};
         $template->render({data => [$data]});
     }
     catch Error::Simple with {

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.