Changeset 14963

Show
Ignore:
Timestamp:
12.02.2008 15:20:00 (11 years ago)
Author:
davidb
Message:

Further massaging of text and metadata values to avoid special characters in Greenstone such as [ and ], and upper-casing first letter after metadata prefix

Files:
1 modified

Legend:

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

    r14949 r14963  
    278278    $$textref =~ s/</&lt;/g; 
    279279    $$textref =~ s/>/&gt;/g; 
     280    $$textref =~ s/\[/&#91;/g; 
     281    $$textref =~ s/\]/&#93;/g; 
    280282 
    281283##    print STDERR "*** adding text: $$textref\n"; 
     
    433435        $metaname = "$top_level_prefix.$metaname"; 
    434436        } 
    435  
     437        $metaname =~ s/\.(.)/\.\u$1/; 
    436438 
    437439        $metaname = $self->remap_dcterms_metadata($metaname); 
     440 
     441        $metavalue =~ s/\[/&#91;/g; 
     442        $metavalue =~ s/\]/&#93;/g; 
     443 
    438444 
    439445#       if ($metaname eq "Identifier")