Changeset 11262 for trunk/gsdl/perllib
- Timestamp:
- 2006-02-16T10:18:26+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ISISPlug.pm
r10254 r11262 141 141 142 142 # Parse the associated ISIS database Field Definition Table file (.fdt) 143 my %fdtmapping = &parse_field_definition_table($fdtfilename );143 my %fdtmapping = &parse_field_definition_table($fdtfilename, $encoding); 144 144 145 145 # Map the tag numbers to tag names, using the FDT mapping … … 252 252 { 253 253 my $fdtfilename = shift(@_); 254 my $encoding = shift(@_); 254 255 255 256 my %fdtmapping = (); … … 257 258 open(FDT_FILE, "<$fdtfilename") || die "Error: Could not open file $fdtfilename.\n"; 258 259 260 my $fdtfiletext = ""; 261 my $reader = new multiread(); 262 $reader->set_handle('ISISPlug::FDT_FILE'); 263 $reader->set_encoding($encoding); 264 $reader->read_file($fdtfiletext); 265 259 266 my $amongstdefinitions = 0; 260 foreach my $fdtfileline ( <FDT_FILE>) {267 foreach my $fdtfileline (split(/\n/, $$fdtfiletext)) { 261 268 $fdtfileline =~ s/(\s*)$//; # Remove any nasty spaces at the end of the lines 262 269 … … 271 278 272 279 # Map from tag number to metadata field title and subfields 273 my $fieldtag = (split(/ /, $fieldspecs))[0];280 my ($fieldtag) = ($fieldspecs =~ /^\s*(\d+)\s+/); 274 281 $fdtmapping{$fieldtag} = { 'title' => $fieldtitle, 275 282 'subfields' => $fieldsubfields };
Note:
See TracChangeset
for help on using the changeset viewer.