Changeset 732 for trunk/gsdl/perllib/plugins/HTMLPlug.pm

Timestamp:

1999-10-20T17:23:48+13:00 (25 years ago)

Author:

sjboddie

Message:

prevent from overriding Title metadata that may have been passed
in from another plugin (e.g. IndexPlug)

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -263 +263 @@
     $text =~ s/\s+/ /g;
 
-    # see if there's a <title> tag
     my $foundtitle = 0;
-    if ($text =~ /<title[^>]*>([^<]*)<\/title[^>]*>/i) {
-    if (defined $1) {
-        my $title = $1;
-        if ($title =~ /\w/) {
-        $doc_obj->add_metadata ($cursection, "Title", $title);
-        $foundtitle = 1;
+    # don't use title tag if Title has been passed
+    # in from another plugin
+    if (defined $metadata->{'Title'}) {
+    $foundtitle = 1;
+    }
+    if (!$foundtitle) {
+    # see if there's a <title> tag
+    if ($text =~ /<title[^>]*>([^<]*)<\/title[^>]*>/i) {
+        if (defined $1) {
+        my $title = $1;
+        if ($title =~ /\w/) {
+            $doc_obj->add_metadata ($cursection, "Title", $title);
+            $foundtitle = 1;
+        }
         }
     }