Changeset 17479
- Timestamp:
- 2008-10-06T08:22:25+13:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/ISISPlugin.pm
r16392 r17479 88 88 # This plugin blocks files with the suffix ".fdt" and ".xrf" 89 89 sub get_default_block_exp { 90 #return q^(?i)(\.fdt|\.xrf)$^;91 return "";90 return q^(?i)(\.fdt|\.xrf)$^; 91 #return ""; 92 92 } 93 93 … … 124 124 125 125 # we block the corresponding fdt and xrf 126 sub store_block_files { 126 # a pain on windows. blocks xxx.FDT, but if actual file is xx.fdt then 127 # complains that no plugin can process it. Have put it back to using 128 # block exp for now 129 sub store_block_files_tmp { 127 130 128 131 my $self =shift (@_); 129 132 my ($filename_full_path, $block_hash) = @_; 130 133 print STDERR "in store block files\n"; 131 134 $self->check_auxiliary_files($filename_full_path); 132 135 if (-e $self->{'fdt_file_path'}) { 136 print STDERR "$self->{'fdt_file_path'}\n"; 133 137 my $fdt_file = $self->{'fdt_file_path'}; 134 138 $block_hash->{'file_blocks'}->{$fdt_file} = 1; 135 139 } 136 140 if (-e $self->{'xrf_file_path'}) { 141 print STDERR "$self->{'xrf_file_path'}\n"; 137 142 my $xrf_file = $self->{'xrf_file_path'}; 138 143 $block_hash->{'file_blocks'}->{$xrf_file} = 1;
Note:
See TracChangeset
for help on using the changeset viewer.