Changeset 6651

Timestamp:

2004-01-29T09:45:28+13:00 (20 years ago)

Author:

kjdon

Message:

fixed a bug I introduced last time

File:

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

trunk/gsdl/perllib/plugins/HTMLPlug.pm

@@ -605 +605 @@
     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(.*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {
+        if ($$textref =~ /<meta(\s*?[^<>]*?\s*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {
         my $content = $1 . $2;
         if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {
@@ -630 +630 @@
     # see if there's a <meta> tag for this field
     #while ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
-    while ($$textref =~ /<meta(.*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
+    while ($$textref =~ /<meta(\s*?[^<>]*?\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {
         my $content = $1 . $2;
         if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {