Changeset 7903

Timestamp:

2004-08-06T16:37:25+12:00 (20 years ago)

Author:

chi

Message:

Added unescaping routine for HTML entities < > &. Used in METSPlug.

File:

• trunk/gsdl/perllib/ghtml.pm (modified) (1 diff)

trunk/gsdl/perllib/ghtml.pm

@@ -40 +40 @@
     $_[0] =~ s/>/>/osg;
     $_[0] =~ s/\"/"/osg;
+}
+
+# unescape_html(TEXT)
+# 
+# Converts HTML entities into their original form.
+# 
+sub unescape_html
+{
+    my ($html) = @_;
+
+    $html =~ s/&/&/osg;
+    $html =~ s/&lt;/</osg;
+    $html =~ s/&gt;/>/osg;
+    $html =~ s/&quot;/\"/osg;
+
+    return $html;
 }