Changeset 20421

Timestamp:

2009-08-28T12:48:46+12:00 (15 years ago)

Author:

kjdon

Message:

strip off any ex. before getting metadata from doc_obj

File:

• gsdl/trunk/perllib/classify/List.pm (modified) (2 diffs)

gsdl/trunk/perllib/classify/List.pm

@@ -298 +298 @@
     my $first_metadata_group = $metadata_groups[0];
     foreach my $first_metadata_group_element (split(/\;|,/, $first_metadata_group)) {
-    my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $first_metadata_group_element);   
+    my $real_first_metadata_group_element = $first_metadata_group_element;
+    $real_first_metadata_group_element =~ s/^ex\.//;
+    my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $real_first_metadata_group_element);  
     
     # Remove prefix/suffix if requested
@@ -336 +338 @@
     unless ($metadata_groups_done{$metadata_group}) {
         foreach my $metadata_element (split(/\;|,/, $metadata_group)) {     
+        my $real_metadata_element = $metadata_element;
+        $real_metadata_element =~ s/^ex\.//;
         my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"};
         my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"};
-        my @metadata_values = @{$doc_obj->get_metadata($section, $metadata_element)};
+        my @metadata_values = @{$doc_obj->get_metadata($section, $real_metadata_element)};
         foreach my $metadata_value (@metadata_values) {
             # Strip leading and trailing whitespace