[freeside-commits] freeside/FS/FS Record.pm,1.214.2.3,1.214.2.4

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv30163/FS/FS

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	Record.pm 
Log Message:
Telstra CDR format, #10159

Index: Record.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Record.pm,v
retrieving revision 1.214.2.3
retrieving revision 1.214.2.4
diff -u -w -d -r1.214.2.3 -r1.214.2.4
--- Record.pm	13 Feb 2011 07:19:51 -0000	1.214.2.3
+++ Record.pm	5 Apr 2011 16:38:20 -0000	1.214.2.4
@@ -1747,7 +1747,7 @@
 
       eval "use Parse::FixedLength;";
       die $@ if $@;
-      $parser = new Parse::FixedLength $fixedlength_format;
+      $parser = Parse::FixedLength->new($fixedlength_format);
 
     }
     else {
@@ -1852,6 +1852,9 @@
 
     } elsif ( $type eq 'fixedlength' ) {
 
+      last unless scalar(@buffer);
+      $line = shift(@buffer);
+
       @columns = $parser->parse($line);
 
     } elsif ( $type eq 'xls' ) {