Changeset 22175 for main/trunk/greenstone2/perllib/classify
- Timestamp:
- 2010-05-26T10:56:52+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/classify/List.pm
r21969 r22175 317 317 my $classify_section = 0; 318 318 my $first_metadata_group = $metadata_groups[0]; 319 my $remove_prefix_expr = $self->{$first_metadata_group . ".remove_prefix_expr"}; 320 my $remove_suffix_expr = $self->{$first_metadata_group . ".remove_suffix_expr"}; 319 321 foreach my $first_metadata_group_element (split(/\;|,/, $first_metadata_group)) { 320 322 my $real_first_metadata_group_element = $self->strip_ex_from_metadata($first_metadata_group_element); … … 322 324 323 325 # Remove prefix/suffix if requested 324 my $remove_prefix_expr = $self->{$first_metadata_group_element . ".remove_prefix_expr"};325 if (defined $remove_prefix_expr && $remove_prefix_expr ne "") {326 327 }328 my $remove_suffix_expr = $self->{$first_metadata_group_element . ".remove_suffix_expr"};329 if (defined $remove_suffix_expr && $remove_suffix_expr ne "") {330 331 }332 326 if (defined ($first_metadata_group_element_value)) { 327 if (defined $remove_prefix_expr && $remove_prefix_expr ne "") { 328 $first_metadata_group_element_value =~ s/^$remove_prefix_expr//; 329 } 330 331 if (defined $remove_suffix_expr && $remove_suffix_expr ne "") { 332 $first_metadata_group_element_value =~ s/$remove_suffix_expr$//; 333 } 334 } 333 335 if (defined($first_metadata_group_element_value) && $first_metadata_group_element_value ne "") { 334 336 # This section must be included in the classifier … … 362 364 delete $self->{$metadata_group . ".list"}->{$section_OID}; 363 365 } 366 367 my $remove_prefix_expr = $self->{$metadata_group . ".remove_prefix_expr"}; 368 my $remove_suffix_expr = $self->{$metadata_group . ".remove_suffix_expr"}; 364 369 foreach my $metadata_element (split(/\;|,/, $metadata_group)) { 365 370 my $real_metadata_element = $self->strip_ex_from_metadata($metadata_element); 366 371 367 my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"};368 my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"};369 372 my @metadata_values = @{$doc_obj->get_metadata($section, $real_metadata_element)}; 370 373 foreach my $metadata_value (@metadata_values) {
Note:
See TracChangeset
for help on using the changeset viewer.