SF.net SVN: ledger-smb:[3466] trunk/LedgerSMB/Company_Config.pm

[..hidden..]

Revision: 3466
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3466&view=rev
Author:   einhverfr
Date:     2011-07-08 11:10:18 +0000 (Fri, 08 Jul 2011)

Log Message:
-----------
Fix to Company_config.pm

Modified Paths:
--------------
    trunk/LedgerSMB/Company_Config.pm

Modified: trunk/LedgerSMB/Company_Config.pm
===================================================================
--- trunk/LedgerSMB/Company_Config.pm	2011-07-08 10:58:14 UTC (rev 3465)
+++ trunk/LedgerSMB/Company_Config.pm	2011-07-08 11:10:18 UTC (rev 3466)
@@ -47,7 +47,7 @@
        my ($ref) = LedgerSMB::call_procedure($self, procname => 'setting_get', 
                   args => [$key ]);
        if ($ref->{setting_key} eq 'curr'){
-          $settings->{$key} = split(/:/, $ref->{value});
+          @{$settings->{$key}} = split(/:/, $ref->{value});
        } else {
           $settings->{$key } = $ref->{value};
        }


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