Changeset 12715
- Timestamp:
- 2006-09-08T14:56:13+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ISISPlug.pm
r12705 r12715 124 124 125 125 # Check the associated .fdt and .xrf files exist 126 # These files must have a lowercase extension for the IsisGdl program to work 127 # Bailing out because of this is kind of crappy but it is only an issue on Unix 128 $self->{'fdt_file_path'} = $database_file_path_root . ".fdt"; 126 $self->{'fdt_file_path'} = $database_file_path_root . ".FDT"; 127 if (!-e $self->{'fdt_file_path'}) { 128 $self->{'fdt_file_path'} = $database_file_path_root . ".fdt"; 129 } 129 130 if (!-e $self->{'fdt_file_path'}) { 130 131 print STDERR "<ProcessingError n='$mst_file_path_relative' r='Could not find ISIS FDT file $self->{'fdt_file_path'}'>\n" if ($self->{'gli'}); … … 132 133 return; 133 134 } 134 $self->{'xrf_file_path'} = $database_file_path_root . ".xrf"; 135 $self->{'xrf_file_path'} = $database_file_path_root . ".XRF"; 136 if (!-e $self->{'xrf_file_path'}) { 137 $self->{'xrf_file_path'} = $database_file_path_root . ".xrf"; 138 } 135 139 if (!-e $self->{'xrf_file_path'}) { 136 140 print STDERR "<ProcessingError n='$mst_file_path_relative' r='Could not find ISIS XRF file $self->{'xrf_file_path'}'>\n" if ($self->{'gli'});
Note:
See TracChangeset
for help on using the changeset viewer.