Changeset 20424

Show
Ignore:
Timestamp:
28.08.2009 13:27:46 (10 years ago)
Author:
kjdon
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/classify/List.pm

    r20421 r20424  
    298298    my $first_metadata_group = $metadata_groups[0]; 
    299299    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); 
    302301    my $first_metadata_group_element_value = $doc_obj->get_metadata_element($section, $real_first_metadata_group_element);   
    303302     
     
    338337    unless ($metadata_groups_done{$metadata_group}) { 
    339338        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         
    342341        my $remove_prefix_expr = $self->{$metadata_element . ".remove_prefix_expr"}; 
    343342        my $remove_suffix_expr = $self->{$metadata_element . ".remove_suffix_expr"};