Changeset 36533 for main/trunk
- Timestamp:
- 2022-08-29T14:43:47+12:00 (20 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm
r36482 r36533 58 58 'reqd' => "no", 59 59 'deft' => "Filename" }, 60 { 'name' => "store_raw_values_as_text",61 'desc' => "{CSVPlugin.store_raw_values_as_text}",62 'type' => "flag",63 'reqd' => "no"},64 60 { 'name' => "no_document_if_source_unspecified", 65 61 'desc' => "{CSVPlugin.no_document_if_source_unspecified}", … … 70 66 'type' => "flag", 71 67 'reqd' => "no"}, 68 { 'name' => "use_namespace_for_field_names", 69 'desc' => "{CSVPlugin.use_namespace_for_field_names}", 70 'type' => "string", 71 'reqd' => "no"}, 72 72 { 'name' => "store_field_values_as_document_text", 73 73 'desc' => "{CSVPlugin.store_field_values_as_document_text}", … … 106 106 $self->{'textcat_store'} = {}; 107 107 $self->{'metapass_srcdoc'} = {}; # which segments have valid metadata_srcdoc 108 109 if ($self->{'use_namespace_for_field_names'} =~ /^\s*$/) { 110 $self->{'use_namespace_for_field_names'} = undef; 111 } 112 108 113 return bless $self, $class; 109 114 } 115 110 116 111 117 # mark the file as a metadata file … … 210 216 $csv_file_fields[$i] =~ s/"$//; 211 217 218 if ($self->{'use_namespace_for_field_names'}) { 219 $csv_file_fields[$i] = $self->{'use_namespace_for_field_names'}. "." . $csv_file_fields[$i]; 220 } 212 221 if ($csv_file_fields[$i] eq $filename_field) { 213 222 $found_filename_field = 1; 214 } 223 } 215 224 } 216 225
Note:
See TracChangeset
for help on using the changeset viewer.