X-Git-Url: http://git.projectaon.org/?p=project-aon.git;a=blobdiff_plain;f=common%2Fscripts%2Fgbtoepub.pl;h=93586eb72d8ae2ca5752cde19f615d79fda48b6b;hp=da50fbed82acfcef5b7e850387f4818d12311bfe;hb=8971569b2aeeb44c7666cc0ec59f06d7a4edd202;hpb=195eff31df03c6416660c0095263990b1efc6675

diff --git a/common/scripts/gbtoepub.pl b/common/scripts/gbtoepub.pl
index da50fbe..93586eb 100755
--- a/common/scripts/gbtoepub.pl
+++ b/common/scripts/gbtoepub.pl
@@ -485,40 +485,6 @@ sub get_series_number {
     return $series_number;
 }
 
-# Convert character entities to their correspondent values
-sub convert_entities {
-    my ($text) = @_;
-
-    $text =~ s/\<ch.apos\/\>/'/g; 
-    $text =~ s/\<ch.nbsp\/\>/ /g;
-    $text =~ s/\<ch.plusmn\/\>/+-/g;
-    $text =~ s/\<ch.aacute\/\>/á/g;
-    $text =~ s/\<ch.eacute\/\>/é/g;
-    $text =~ s/\<ch.iacute\/\>/í/g;
-    $text =~ s/\<ch.oacute\/\>/ó/g;
-    $text =~ s/\<ch.uacute\/\>/ú/g;
-    $text =~ s/\<ch.ntilde\/\>/ñ/g;
-    $text =~ s/\<ch.Aacute\/\>/Á/g;
-    $text =~ s/\<ch.Eacute\/\>/É/g;
-    $text =~ s/\<ch.Iacute\/\>/Í/g;
-    $text =~ s/\<ch.Oacute\/\>/Ó/g;
-    $text =~ s/\<ch.Uacute\/\>/Ú/g;
-    $text =~ s/\<ch.auml\/\>/ä/g;
-    $text =~ s/\<ch.euml\/\>/ë/g;
-    $text =~ s/\<ch.iuml\/\>/ï/g;
-    $text =~ s/\<ch.ouml\/\>/ö/g;
-    $text =~ s/\<ch.uuml\/\>/ü/g;
-    $text =~ s/\<ch.Ntilde\/\>/Ñ/g;
-    $text =~ s/\<ch.acute\/\>/´/g;
-    $text =~ s/\<ch.iexcl\/\>/¡/g;
-    $text =~ s/\<ch.iquest\/\>/¿/g;
-    $text =~ s/\<ch.laquo\/\>/«/g;
-    $text =~ s/\<ch.raquo\/\>/»/g;
-    $text =~ s/\<ch.ampersand\/\>/&/g;
-
-    return $text;
-}
-
 # Quote metacaracters for shell use
 sub quote_shell {
     my ($text) = @_;