Changeset 14963


Ignore:
Timestamp:
02/12/08 15:20:00 (13 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

File:
1 edited

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