SF.net SVN: ledger-smb:[5632] trunk/LedgerSMB/X12/EDI850.pm

[..hidden..]

Revision: 5632
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5632&view=rev
Author:   einhverfr
Date:     2013-01-27 10:31:49 +0000 (Sun, 27 Jan 2013)
Log Message:
-----------
Beginnins of X12 850 support for LedgerSMB 1.4

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

Modified: trunk/LedgerSMB/X12/EDI850.pm
===================================================================
--- trunk/LedgerSMB/X12/EDI850.pm	2013-01-26 01:59:57 UTC (rev 5631)
+++ trunk/LedgerSMB/X12/EDI850.pm	2013-01-27 10:31:49 UTC (rev 5632)
@@ -28,15 +28,23 @@
 
 =over
 
-=item orders
+=item order
 
-This is an array of orders using the same data structures that a form screen
+This is an order hashref using the same data structures that a form screen
 would submit (flat format).
 
 =cut 
 
-has orders => (is => 'ro', isa => 'ArrayRef[HashRef[Any]]', lazy => 1, 
-          builder => '_orders');
+has order => (is => 'ro', isa => 'HashRef[Any]', lazy => 1, 
+          builder => '_order');
 
-sub _orders {
+sub _order {
+    my ($self) = $_;
+    $self->parse;
+    eval {$self->ISA}; # if throws error, ignore
+    $self->parse;
+
+    
 }
+
+

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