Changeset 32817 for main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm

Timestamp:

2019-02-25T22:21:24+13:00 (5 years ago)

Author:

davidb

Message:

Change of option name

File:

• main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm (modified) (3 diffs)

main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm

@@ -116 +116 @@
     my $csv_file_field_line = $1;
 
-    my $separate_char = $self->{'separate_char'};
+    my $separate_char = $self->{'csv_field_separator'};
     if ($separate_char =~ m/^auto$/i) {
     $separate_char = $self->resolve_auto($csv_file_field_line,$self->{'plugin_type'},$self->{'outhandle'},$self->{'verbosity'});
@@ -133 +133 @@
     }
 
-    # $csv_file_field_line .= $separate_char;  # To make the regular expressions simpler # ****
-
-    # while ($csv_file_field_line ne "") {
-    #   # Handle quoted values
-    #   if ($csv_file_field_line =~ s/^\"(.*?)\"${separate_char}//) { # ****
-    #       my $csv_file_field = $1;
-    #       $csv_file_field =~ s/ //g;  # Remove any spaces from the field names
-    #       push(@csv_file_fields, $csv_file_field);
-    #   }
-    #   # Normal comma-separated case
-    #   elsif ($csv_file_field_line =~ s/^(.*?)${separate_char}//) { # ****
-    #       my $csv_file_field = $1;
-    #       $csv_file_field =~ s/ //g;  # Remove any spaces from the field names
-    #       push(@csv_file_fields, $csv_file_field);
-    #   }
-    #   # The line must be formatted incorrectly
-    #   else {
-    #       print STDERR "Error: Badly formatted CSV field line: $csv_file_field_line.\n";
-    #       last;
-    #   }
-    # }
-
     $self->{'csv_file_fields'} = \@csv_file_fields;
 
-    print STDERR "****** csv file fields joined = ", join(" ||| ", @{$self->{'csv_file_fields'}}), "\n";
+    # print STDERR "**** CSV file fields joined = ", join(" ||| ", @{$self->{'csv_file_fields'}}), "\n";
 }
 
@@ -196 +174 @@
     }
 
-
-
-    # # Build a hash of metadata name to metadata value for this line
-    # my $i = 0;
-    # $csv_line .= $separate_char;  # To make the regular expressions simpler # ****
-    # while ($csv_line ne "") {
-    #   # Metadata values containing commas are quoted
-    #   if ($csv_line =~ s/^\"(.*?)\"${separate_char}//) { # ****
-    #       # Only bother with non-empty values
-    #       my $match = $1;
-    #       if ($match ne "" && defined($csv_file_fields[$i])) {
-    #       $doc_obj->add_utf8_metadata($section, $csv_file_fields[$i], $match);
-    #       }
-    #   }
-    #   # Normal comma-separated case
-    #   elsif ($csv_line =~ s/^(.*?)${separate_char}//) { # ****
-    #       # Only bother with non-empty values
-    #       my $match = $1;
-    #       if ($match ne "" && defined($csv_file_fields[$i])) {
-    #       $doc_obj->add_utf8_metadata($section, $csv_file_fields[$i], $match);
-    #       }
-    #   }
-    #   # The line must be formatted incorrectly
-    #   else {
-    #       print STDERR "Error: Badly formatted CSV line: $csv_line.\n";
-    #       last;
-    #   }
-
-    #   $i++;
-    # }
-
     # Record was processed successfully
     return 1;