Changeset 6649

Timestamp:

2004-01-28T16:13:18+13:00 (20 years ago)

Author:

kjdon

Message:

changed the regex for getting info out of meta tags so it now works if the content attribute comes before the name attribute

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -604 +604 @@
     if (defined $self->{'hunt_creator_metadata'}) {
     for my $name (split /,/, "AUTHOR,AUTHOR.EMAIL,CREATOR,DC.CREATOR,DC.CREATOR.CORPORATENAME") {
-        if ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {
+        #if ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {
+        if ($$textref =~ /<meta(.*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {
         my $content = $1 . $2;
         if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {
@@ -628 +629 @@
 
     # see if there's a <meta> tag for this field
-    while ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
+    #while ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
+    while ($$textref =~ /<meta(.*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
         my $content = $1 . $2;
         if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {