Changeset 20424 for gsdl/trunk/perllib/classify/List.pm

Timestamp:

2009-08-28T13:27:46+12:00 (15 years ago)

Author:

kjdon

Message:

made a subroutine for removing ex. Call this instead of doing it explicitly

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 $real_first_metadata_group_element = $first_metadata_group_element;
-    $real_first_metadata_group_element =~ s/^ex\.//;
+    my $real_first_metadata_group_element = $self->strip_ex_from_metadata($first_metadata_group_element);
     my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $real_first_metadata_group_element);  
     
@@ -338 +337 @@
     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 $real_metadata_element = $self->strip_ex_from_metadata($metadata_element);
+        
         my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"};
         my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"};