Changeset 22348
- Timestamp:
- 2010-07-05T15:01:12+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm
r22330 r22348 442 442 unless $dont_strip && ($dont_strip eq 'all' || $metaname =~ m/^($dont_strip)$/); 443 443 $metavalue =~ s/\s+/ /sg; 444 if ($metaname =~ /\./) { # has a namespace 445 $metaname = "ex.$metaname"; 446 } 444 447 if ($accumulate) { 445 448 $doc_obj->add_utf8_metadata($cursection, $metaname, $metavalue); … … 938 941 # if we don't want metadata, we may as well not be here ... 939 942 return if (!defined $self->{'metadata_fields'}); 940 943 941 944 my $separator = $self->{'metadata_field_separator'}; 942 945 if ($separator eq "") { … … 954 957 $field =~ s/^\s+//; # remove leading whitespace 955 958 $field =~ s/\s+$//; # remove trailing whitespace 956 959 957 960 # support tag<tagname> 958 961 if ($field =~ m/^(.*?)\s*<(.*?)>$/) { … … 1030 1033 next; 1031 1034 } 1032 1035 1033 1036 # clean up and add 1034 1037 $value =~ s/\s+/ /gs; … … 1051 1054 } 1052 1055 1053 # Do we still reply on the following? Surely there must 1054 # be a better way to go about this outside of the plugin? 1055 # 1056 #if ($tag =~ m/date.*/i){ 1057 # $tag = lc($tag); 1058 #} 1056 if ($tag =~ /\./) { 1057 # there is a . so has a namespace, add ex. 1058 $tag = "ex.$tag"; 1059 } 1059 1060 if (defined $separator) { 1060 1061 my @values = split($separator, $value);
Note:
See TracChangeset
for help on using the changeset viewer.