Changeset 20424
- Timestamp:
- 2009-08-28T13:27:46+12:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/classify/List.pm
r20421 r20424 298 298 my $first_metadata_group = $metadata_groups[0]; 299 299 foreach my $first_metadata_group_element (split(/\;|,/, $first_metadata_group)) { 300 my $real_first_metadata_group_element = $first_metadata_group_element; 301 $real_first_metadata_group_element =~ s/^ex\.//; 300 my $real_first_metadata_group_element = $self->strip_ex_from_metadata($first_metadata_group_element); 302 301 my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $real_first_metadata_group_element); 303 302 … … 338 337 unless ($metadata_groups_done{$metadata_group}) { 339 338 foreach my $metadata_element (split(/\;|,/, $metadata_group)) { 340 my $real_metadata_element = $ metadata_element;341 $real_metadata_element =~ s/^ex\.//;339 my $real_metadata_element = $self->strip_ex_from_metadata($metadata_element); 340 342 341 my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"}; 343 342 my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"};
Note:
See TracChangeset
for help on using the changeset viewer.