SF.net SVN: ledger-smb:[5708] trunk/LedgerSMB

[..hidden..]

Revision: 5708
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5708&view=rev
Author:   einhverfr
Date:     2013-04-06 14:50:02 +0000 (Sat, 06 Apr 2013)
Log Message:
-----------
More test cases fixed with EDI files

Modified Paths:
--------------
    trunk/LedgerSMB/X12/EDI850.pm
    trunk/LedgerSMB/X12.pm

Modified: trunk/LedgerSMB/X12/EDI850.pm
===================================================================
--- trunk/LedgerSMB/X12/EDI850.pm	2013-04-06 13:31:54 UTC (rev 5707)
+++ trunk/LedgerSMB/X12/EDI850.pm	2013-04-06 14:50:02 UTC (rev 5708)
@@ -36,11 +36,11 @@
 
 =cut 
 
-has order => (is => 'ro', isa => 'HashRef[Any]', lazy => 1, 
+has order => (is => 'ro', isa => 'Form', lazy => 1, 
           builder => '_order');
 
 sub _order {
-    my ($self) = $_;
+    my ($self) = @_;
     $self->parse;
     my $sep = $self->parser->get_element_separator;
     my $form = new Form;
@@ -92,4 +92,4 @@
     }
 }
 
-
+__PACKAGE__->meta->make_immutable;

Modified: trunk/LedgerSMB/X12.pm
===================================================================
--- trunk/LedgerSMB/X12.pm	2013-04-06 13:31:54 UTC (rev 5707)
+++ trunk/LedgerSMB/X12.pm	2013-04-06 14:50:02 UTC (rev 5708)
@@ -159,6 +159,8 @@
         open TMPFILE, '>', $file;
         print TMPFILE $self->message;
         close TMPFILE;
+    } else {
+        $file = $self->message;
     }
     $parser->parsefile( file => $file,
                         conf => $self->config_file);

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