From ca5f7b9b2eb6e42d92ca08272aae315b578046ad Mon Sep 17 00:00:00 2001
From: aurynn_cmd <aurynn_cmd@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Fri, 11 Jul 2008 20:10:36 +0000
Subject: 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
---
 LedgerSMB/Reconciliation/CSV.pm | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'LedgerSMB/Reconciliation/CSV.pm')

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;
-- 
cgit v1.2.3