Changeset 14949

Show
Ignore:
Timestamp:
31.01.2008 16:38:34 (11 years ago)
Author:
davidb
Message:

Tweak to parsing of OAI metadata to XML tags within a metadata field don't trip it up

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/OAIPlug.pm

    r14940 r14949  
    304304    my ($metaname, $metavalue_utf8) = @_; 
    305305 
    306     $metavalue_utf8 =~ s/hdl\.handle\.net/mcgonagall.cs.waikato.ac.nz:8080\/dspace\/handle/; 
     306###    $metavalue_utf8 =~ s/hdl\.handle\.net/mcgonagall.cs.waikato.ac.nz:8080\/dspace\/handle/; 
    307307    $metavalue_utf8 = &util::hyperlink_text($metavalue_utf8); 
    308308 
     
    415415    } 
    416416 
    417     while ($inner_metadata_text =~ m/<([^ >]+).*?>(.*?)<\/(.*?)>(.*)/s) 
     417    while ($inner_metadata_text =~ m/<([^ >]+).*?>(.*?)<\/\1>(.*)/s) 
    418418    { 
    419419        # if URL given for document as identifier metadata, store it ... 
     
    422422        my $metaname = $1; 
    423423        my $metavalue = $2; 
    424         $inner_metadata_text = $4; 
    425          
     424        $inner_metadata_text = $3; 
     425 
     426#       print STDERR "*** metaname = $metaname\n"; 
     427#       print STDERR "*** metavalue = $metavalue\n"; 
     428 
    426429        # $metaname =~ s/^(dc:)?(.)/\u$2/; # strip of optional prefix and uppercase first letter 
    427430        $metaname =~ s/:/\./;