#!/usr/local/bin/perl
#
while (<>) {
 do UnMapAccents ($_);
 print ;
}

# A routine to convert any presentation  notation to 
# special characters in the text in order to match the DB
# UnMapAccents (arg)
sub UnMapAccents {

    $_[0] =~ s/&amp;/&/g;
    $_[0] =~ s/&lt;/</g;
    $_[0] =~ s/&quot;/\"/g;
    $_[0] =~ s/&gt;/>/g;
    if (!IBM) {
# These are the ISO 8879:1986 entities
	    $_[0] =~ s/&Agrave;/�/g;
	    $_[0] =~ s/&Aacute;/�/g;
	    $_[0] =~ s/&Acirc;/�/g;
	    $_[0] =~ s/&Atilde;/�/g;
	    $_[0] =~ s/&Auml;/�/g;
	    $_[0] =~ s/&Aring;/�/g;
	    $_[0] =~ s/&AElig;/�/g;
	    $_[0] =~ s/&Ccedil;/�/g;
	    $_[0] =~ s/&Egrave;/�/g;
	    $_[0] =~ s/&Eacute;/�/g;
	    $_[0] =~ s/&Ecirc;/�/g;
	    $_[0] =~ s/&Euml;/�/g;
	    $_[0] =~ s/&Igrave;/�/g;
	    $_[0] =~ s/&Iacute;/�/g;
	    $_[0] =~ s/&Icirc;/�/g;
	    $_[0] =~ s/&Iuml;/�/g;
	# No Mapping for "�"
	    $_[0] =~ s/&Ntilde;/�/g;
	    $_[0] =~ s/&Ograve;/�/g;
	    $_[0] =~ s/&Oacute;/�/g;
	    $_[0] =~ s/&Ocirc;/�/g;
	    $_[0] =~ s/&Otilde;/�/g;
	    $_[0] =~ s/&Ouml;/�/g;
	# No Mapping for "�"
	    $_[0] =~ s/&Oslash;/�/g;
	    $_[0] =~ s/&Ugrave;/�/g;
	    $_[0] =~ s/&Uacute;/�/g;
	    $_[0] =~ s/&Ucirc;/�/g;
	    $_[0] =~ s/&Uuml;/�/g;
	# No Mapping for "�"
	    $_[0] =~ s/&THORN;/�/g;
	    $_[0] =~ s/&szlig;/�/g;
	    $_[0] =~ s/&agrave;/�/g;
	    $_[0] =~ s/&aacute;/�/g;
	    $_[0] =~ s/&acirc;/�/g;
	    $_[0] =~ s/&atilde;/�/g;
	    $_[0] =~ s/&auml;/�/g;
	    $_[0] =~ s/&aring;/�/g;
	    $_[0] =~ s/&aelig;/�/g;
	    $_[0] =~ s/&ccedil;/�/g;
	    $_[0] =~ s/&egrave;/�/g;
	    $_[0] =~ s/&eacute;/�/g;
	    $_[0] =~ s/&ecirc;/�/g;
	    $_[0] =~ s/&euml;/�/g;
	    $_[0] =~ s/&igrave;/�/g;
	    $_[0] =~ s/&iacute;/�/g;
	    $_[0] =~ s/&icirc;/�/g;
	    $_[0] =~ s/&iuml;/�/g;
	    $_[0] =~ s/&eth;/�/g;
	    $_[0] =~ s/&ntilde;/�/g;
	    $_[0] =~ s/&ograve;/�/g;
	    $_[0] =~ s/&oacute;/�/g;
	    $_[0] =~ s/&ocirc;/�/g;
	    $_[0] =~ s/&otilde;/�/g;
	    $_[0] =~ s/&ouml;/�/g;
	    # No Mapping for "�"
	    $_[0] =~ s/&oslash;/�/g;
	    $_[0] =~ s/&ugrave;/�/g;
	    $_[0] =~ s/&uacute;/�/g;
	    $_[0] =~ s/&ucirc;/�/g;
	    $_[0] =~ s/&uuml;/�/g;
	    $_[0] =~ s/&yacute;/�/g;
	    $_[0] =~ s/&thorn;/�/g;
	    $_[0] =~ s/&yuml;/�/g;
	}
    else {
# These are the accented characters from the PC
	    $_[0] =~ s/&AElig;/�/g;
	    $_[0] =~ s/&Aring;/�/g;
	    $_[0] =~ s/&Auml;/�/g;
	    $_[0] =~ s/&Ccedil;/�/g;
	    $_[0] =~ s/&Eacute;/�/g;
	    $_[0] =~ s/&Ntilde;/�/g;
	    $_[0] =~ s/&ouml;/�/g;
	    $_[0] =~ s/&Uuml;/�/g;
	    $_[0] =~ s/&aacute;/�/g;
	    $_[0] =~ s/&acirc;/�/g;
	    $_[0] =~ s/&aelig;/�/g;
	    $_[0] =~ s/&agrave;/�/g;
	    $_[0] =~ s/&aring;/�/g;
	    $_[0] =~ s/&auml;/�/g;
	    $_[0] =~ s/&ccedil;/�/g;
	    $_[0] =~ s/&eacute;/�/g;
	    $_[0] =~ s/&ecirc;/�/g;
	    $_[0] =~ s/&egrave;/�/g;
	    $_[0] =~ s/&euml;/�/g;
	    $_[0] =~ s/&iacute;/�/g;
	    $_[0] =~ s/&icirc;/�/g;
	    $_[0] =~ s/&igrave;/�/g;
	    $_[0] =~ s/&iuml;/�/g;
	    $_[0] =~ s/&ntilde;/�/g;
	    $_[0] =~ s/&oacute;/�/g;
	    $_[0] =~ s/&ocirc;/�/g;
	    $_[0] =~ s/&ograve;/�/g;
	    $_[0] =~ s/&Ouml;/�/g;
	    $_[0] =~ s/&uacute;/�/g;
	    $_[0] =~ s/&ucirc;/�/g;
	    $_[0] =~ s/&ugrave;/�/g;
	    $_[0] =~ s/&uuml;/�/g;
	    $_[0] =~ s/&yuml;/�/g;
     }

}