- Timestamp:
- 2019-04-19T20:37:28+12:00 (5 years ago)
- Location:
- main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVFieldSeparator.pm
r32818 r33020 75 75 { 76 76 my ($self) = shift @_; 77 my ($line,$plugin_name ,$outhandle,$verbosity) = @_;77 my ($line,$plugin_name) = @_; 78 78 79 my $outhandle = $self->{'outhandle'}; 80 my $verbosity = $self->{'verbosity'}; 79 81 80 82 # count number of char matches for common separates such as ',' ';' '\t' and '|' -
main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/CSVPlugin.pm
r32818 r33020 118 118 my $separate_char = $self->{'csv_field_separator'}; 119 119 if ($separate_char =~ m/^auto$/i) { 120 $separate_char = $self->resolve_auto($csv_file_field_line,$self->{'plugin_type'} ,$self->{'outhandle'},$self->{'verbosity'});120 $separate_char = $self->resolve_auto($csv_file_field_line,$self->{'plugin_type'}); 121 121 # Replace the 'auto' setting the resolved value (for use later on) 122 122 $self->{'separate_char'} = $separate_char; -
main/trunk/model-sites-dev/heritage-nz/collect/reports-2019/perllib/plugins/MetadataCSVPlugin.pm
r32818 r33020 153 153 154 154 if ($separate_char =~ m/^auto$/i) { 155 $separate_char = $self->resolve_auto($csv_file_field_line,$self->{'plugin_type'} ,$outhandle,$self->{'verbosity'});155 $separate_char = $self->resolve_auto($csv_file_field_line,$self->{'plugin_type'}); 156 156 } 157 157
Note:
See TracChangeset
for help on using the changeset viewer.