Changeset 34250
- Timestamp:
- 2020-07-09T09:50:29+12:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm
r34249 r34250 133 133 } 134 134 135 $self->{'csv_file_fields'} = \@csv_file_fields; 136 137 # print STDERR "**** CSV file fields joined = ", join(" ||| ", @{$self->{'csv_file_fields'}}), "\n"; 135 #$self->{'csv_file_fields'} = \@csv_file_fields; 136 $self->{'csv_file_fields'}->{$filename} = \@csv_file_fields; 137 ###print STDERR "**** CSV file fields joined ($filename) = ", join(" ||| ", @{$self->{'csv_file_fields'}->{$filename}}), "\n"; 138 138 139 } 139 140 … … 147 148 my $section = $doc_obj->get_top_section(); 148 149 my $csv_line = $$textref; 149 my @csv_file_fields = @{$self->{'csv_file_fields'}}; 150 150 #my @csv_file_fields = @{$self->{'csv_file_fields'}}; 151 my $filename_full_path = &FileUtils::filenameConcatenate($base_dir,$file); 152 my @csv_file_fields = @{$self->{'csv_file_fields'}->{$filename_full_path}}; 153 154 ###print STDERR "**** CSV file fields joined = ", join(" ||| ", @csv_file_fields), "\n"; 155 151 156 # Add the raw line as the document text 152 157 $doc_obj->add_utf8_text($section, $csv_line);
Note:
See TracChangeset
for help on using the changeset viewer.