Changeset 1448 for trunk

Timestamp:

2000-08-25T15:18:08+12:00 (24 years ago)

Author:

paynter

Message:

Changed regular expressions for extracting metadata from META tags
becuase they were notworking for "GENERATOR".

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -348 +348 @@
 
     # see if there's a <meta> tag for this field
-    if ($$textref =~ /<meta(.*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/is) {
+    if ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/is) {
         my $content = $1 . $2;
-        if ($content =~ /content\s*=\s*\"?(.*?)\"?/is) {
+        if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {
         if (defined $1) {
             my $value = $1;
+            $value =~ s/\"$//;
             $value =~ s/\s+/ /gs;
             $doc_obj->add_utf8_metadata($section, $field, $value);