SF.net SVN: ledger-smb:[3039] addons/1.3/assets/trunk/LedgerSMB/DBObject/ Asset.pm

[..hidden..]

Revision: 3039
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3039&view=rev
Author:   einhverfr
Date:     2010-08-05 16:19:15 +0000 (Thu, 05 Aug 2010)

Log Message:
-----------
Correcting asset import file parse error

Modified Paths:
--------------
    addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset.pm

Modified: addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset.pm
===================================================================
--- addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset.pm	2010-08-04 21:23:30 UTC (rev 3038)
+++ addons/1.3/assets/trunk/LedgerSMB/DBObject/Asset.pm	2010-08-05 16:19:15 UTC (rev 3039)
@@ -30,12 +30,11 @@
     my $self = shift @_;
 
     my $handle = $self->{_request}->upload('import_file');
-    $contents = join("\n", <$handle>);
+    my $contents = join("\n", <$handle>);
 
     $self->{import_entries} = [];
-    while my $line (split /\n/, $contents){
+    for my $line (split /\n/, $contents){
         next if ($line =~ /^$/);
-        $first = 0;
         my @fields = split(/,/, $line);
         push @{$self->{import_entries}}, ..hidden..;
     }     


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