Changeset 10725

Timestamp:

2005-10-14T13:39:40+13:00 (18 years ago)

Author:

chi

Message:

For some reasons, to change the date format to "yyymmdd" used "date" and can't recognise "Date". Therefore, adding some code to convert the metadata "Date" to "date" in the early stage.

File:

• trunk/gsdl/perllib/plugins/HTMLPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -786 +786 @@
 
     my $html_header=$1;
+
     # go through every <meta... tag defined in the html and see if it is
     # one of the tags we want to match.
-
+    
     # special case for title - we want to remember if its been found
     my $found_title = 0;
@@ -811 +812 @@
         next;
     }
-
+    
     # don't need to assign this field if it was passed in from a previous 
     # (recursive) plugin
@@ -819 +820 @@
     $metatag =~ /content\s*=\s*([\"\'])?(.*?)\1/is;
     $value=$2;
+
     if (! $value) {
         $metatag =~ /(?:name|http-equiv)\s*=\s*([^\s\>]+)/is;
@@ -835 +837 @@
         $tag='Creator';
     } elsif (!exists $find_fields{lc($tag)}) {
-        next; # don't want this tag
+         next; # don't want this tag
     } else {
         # get the user's preferred capitalisation
@@ -845 +847 @@
     print $outhandle " extracted \"$tag\" metadata \"$value\"\n" 
         if ($self->{'verbosity'} > 2);
+    if ($tag =~ /date.*/i){
+        $tag = lc($tag);
+    }
     $doc_obj->add_utf8_metadata($section, $tag, $value);