Changeset 6651 for trunk/gsdl/perllib
- Timestamp:
- 2004-01-29T09:45:28+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/HTMLPlug.pm
r6649 r6651 605 605 for my $name (split /,/, "AUTHOR,AUTHOR.EMAIL,CREATOR,DC.CREATOR,DC.CREATOR.CORPORATENAME") { 606 606 #if ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) { 607 if ($$textref =~ /<meta( .*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) {607 if ($$textref =~ /<meta(\s*?[^<>]*?\s*?)(?:name|http-equiv)\s*=\s*\"?$name\"?([^>]*)/is) { 608 608 my $content = $1 . $2; 609 609 if ($content =~ /content\s*=\s*\"?(.*)\"?/is) { … … 630 630 # see if there's a <meta> tag for this field 631 631 #while ($$textref =~ /<meta(\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) { 632 while ($$textref =~ /<meta( .*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) {632 while ($$textref =~ /<meta(\s*?[^<>]*?\s*?)(?:name|http-equiv)\s*=\s*\"?$field\"?([^>]*)/isg) { 633 633 my $content = $1 . $2; 634 634 if ($content =~ /content\s*=\s*\"?(.*)\"?/is) {
Note:
See TracChangeset
for help on using the changeset viewer.