Changeset 14949


Ignore:
Timestamp:
2008-01-31T16:38:34+13:00 (14 years ago)
Author:
davidb
Message:

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

File:
1 edited

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/:/\./;
Note: See TracChangeset for help on using the changeset viewer.