Additions and fixes to the Reconciliation code.

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

1 files changed, 7 insertions, 7 deletions

diff --git a/LedgerSMB/Reconciliation/CSV.pm b/LedgerSMB/Reconciliation/CSV.pm
index f95bf194..c63ce327 100644
--- a/LedgerSMB/Reconciliation/CSV.pm
+++ b/LedgerSMB/Reconciliation/CSV.pm
@@ -4,7 +4,7 @@
 package LedgerSMB::Reconciliation::CSV;
 
 use base qw/LedgerSMB/;
-use Datetime;
+use DateTime;
 
 sub load_file {
     
@@ -16,7 +16,7 @@ sub load_file {
         local $/; # I think this is the right way to outrageously cheat
         open(FH,$filename);
         $contents = <FH>;
-    }
+    };
     return $contents;
 }
 
@@ -30,8 +30,8 @@ sub process {
         # Unpack for the format it is inexplicably in
         ($accno,
          $checkno,
-         $issuedate
-         $amount
+         $issuedate,
+         $amount,
          $cleared,
          $last_three) = unpack("A10A10A6A10A6A3",$line);
          
@@ -50,9 +50,9 @@ sub process {
         # First check the account number.
         # According to the docs I have, it's all numbers.
         
-        
+       ; 
     }
-    
+   
     return;
 }
 
@@ -66,4 +66,4 @@ sub error {
     
 }
 
-1;
\ No newline at end of file
+1;