Changeset 8225

Timestamp:

2004-10-07T10:32:49+13:00 (20 years ago)

Author:

jrm21

Message:

support tag<tagname> as described in the pluginfo for HTMLPlug. The
description isn't very clear - I assume it renames metadata named "tag"
in the html header <meta> tags to be called "tagname" as the greenstone
metadata.

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -584 +584 @@
 
     foreach my $field (split /,/, $self->{'metadata_fields'}) {
+    # support tag<tagname>
+    if ($field =~ /^(.*?)<(.*?)>$/) {
+        # "$2" is the user's preferred gs metadata name
+        $find_fields{lc($1)}=$2; # lc = lowercase
+    }
+    # "$field" is the user's preferred gs metadata name
     $find_fields{lc($field)}=$field; # lc = lowercase
     }