Changeset 11545 for trunk/gsdl
- Timestamp:
- 2006-03-30T15:12:04+12:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/ISISPlug.pm
r11468 r11545 153 153 $self->{'fdt_mapping'} = \%fdt_mapping; 154 154 155 # Remove the line at the start so itis split and processed properly155 # Remove the line at the start, and any blank lines, so the data is split and processed properly 156 156 $$textref =~ s/^----------\n//; 157 $$textref =~ s/\n\n/\n/g; 157 158 } 158 159 … … 255 256 256 257 # Deal with the case when multiple values are specified using <...> 257 if ($sub_metadata_value =~ /\<(. *)\>$/) {258 if ($sub_metadata_value =~ /\<(.+)\>/) { 258 259 my $sub_sub_metadata_name = $sub_metadata_name . "^sub"; 259 260 my $tmp_sub_metadata_value = $sub_metadata_value; 260 while ($tmp_sub_metadata_value =~ s/\<(.*?)\>//) { 261 while ($tmp_sub_metadata_value =~ s/\<(.+?)\>//) { 262 my $sub_sub_metadata_value = $1; 263 $doc_obj->add_utf8_metadata($section, $sub_sub_metadata_name, $sub_sub_metadata_value); 264 } 265 } 266 elsif ($sub_metadata_value =~ /\/(.+)\//) { 267 my $sub_sub_metadata_name = $sub_metadata_name . "^sub"; 268 my $tmp_sub_metadata_value = $sub_metadata_value; 269 while ($tmp_sub_metadata_value =~ s/\/(.+?)\///) { 261 270 my $sub_sub_metadata_value = $1; 262 271 $doc_obj->add_utf8_metadata($section, $sub_sub_metadata_name, $sub_sub_metadata_value);
Note:
See TracChangeset
for help on using the changeset viewer.