Changeset 28782 for main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm
- Timestamp:
- 2014-01-15T14:11:21+13:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/CSVPlugin.pm
r24794 r28782 94 94 my $self = shift (@_); 95 95 my ($filename, $encoding, $language, $textref) = @_; 96 my $outhandle = $self->{'outhandle'};97 96 98 # Read the CSV file content 99 open(FILE, $filename); 100 my $reader = new multiread(); 101 $reader->set_handle('CSVPlugin::FILE'); 102 $reader->set_encoding($encoding); 103 $reader->read_file($textref); 104 close(FILE); 97 # Read in file the usual ReadTextFile way 98 # This ensure that $textref is a unicode aware string 99 $self->SUPER::read_file(@_); 100 101 # 102 # Now top-up the processing of the text with what this plugin 103 # needs 104 # 105 105 106 106 # Remove any blank lines so the data is split and processed properly
Note:
See TracChangeset
for help on using the changeset viewer.