From 8971569b2aeeb44c7666cc0ec59f06d7a4edd202 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Javier=20Fern=C3=A1ndez-Sanguino?= Date: Wed, 10 May 2017 22:22:29 +0000 Subject: [PATCH] Remove unused convert_entities function git-svn-id: https://projectaon.org/data/trunk@2634 f6f3e2d7-ff33-0410-aaf5-b4bee2cdac11 --- common/scripts/gbtoepub.pl | 34 ---------------------------------- 1 file changed, 34 deletions(-) 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/\/'/g; - $text =~ s/\/ /g; - $text =~ s/\/+-/g; - $text =~ s/\/á/g; - $text =~ s/\/é/g; - $text =~ s/\/í/g; - $text =~ s/\/ó/g; - $text =~ s/\/ú/g; - $text =~ s/\/ñ/g; - $text =~ s/\/Á/g; - $text =~ s/\/É/g; - $text =~ s/\/Í/g; - $text =~ s/\/Ó/g; - $text =~ s/\/Ú/g; - $text =~ s/\/ä/g; - $text =~ s/\/ë/g; - $text =~ s/\/ï/g; - $text =~ s/\/ö/g; - $text =~ s/\/ü/g; - $text =~ s/\/Ñ/g; - $text =~ s/\/´/g; - $text =~ s/\/¡/g; - $text =~ s/\/¿/g; - $text =~ s/\/«/g; - $text =~ s/\/»/g; - $text =~ s/\/&/g; - - return $text; -} - # Quote metacaracters for shell use sub quote_shell { my ($text) = @_; -- 2.17.1