Changeset 13173

Timestamp:

2006-10-27T13:54:06+13:00 (18 years ago)

Author:

mdewsnip

Message:

Fixed problem where Unix line endings weren't being dealt with correctly.

File:

• trunk/gsdl/perllib/plugins/MetadataCSVPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/MetadataCSVPlug.pm

@@ -103 +103 @@
 
     # Split the file into lines and read the first line (contains the metadata names)
-    $csv_file_content =~ s/\n//g;
-    my @csv_file_lines = split(/\r/, $csv_file_content);
+    $csv_file_content =~ s/\r/\n/g;  # Handle non-Unix line endings
+    $csv_file_content =~ s/\n+/\n/g;
+    my @csv_file_lines = split(/\n/, $csv_file_content);
     my $csv_file_field_line = shift(@csv_file_lines);
     my @csv_file_fields = split(/\,/, $csv_file_field_line);