Changeset 1231

Timestamp:

2000-06-23T11:54:30+12:00 (24 years ago)

Author:

gwp

Message:

Bug fix on the H1 metadata option: if the file has no <H1> tag,
nothing is added.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -418 +418 @@
         my $tmptext = $$textref;
         $tmptext =~ s/\s+/ /gs;
-        $tmptext =~ s/.*<H1[^>]*>//i;
-        $tmptext =~ s/<\/H1[^>]*>.*//i;
-        $tmptext =~ s/^\s+//;
-        $tmptext =~ s/\s+$//;
-        $doc_obj->add_utf8_metadata ($section, $field, $tmptext);
+        if ($tmptext =~ /<H1[^>]*>/i) {
+        $tmptext =~ s/.*<H1[^>]*>//i;
+        $tmptext =~ s/<\/H1[^>]*>.*//i;
+        $tmptext =~ s/^\s+//;
+        $tmptext =~ s/\s+$//;
+        $doc_obj->add_utf8_metadata ($section, $field, $tmptext);
+        }
         next;
     }