version 1.40, 2001/08/17 16:49:04
|
version 1.41, 2001/08/17 21:25:36
|
Line 71 sub metaeval {
|
Line 71 sub metaeval {
|
} @{$token->[3]}; |
} @{$token->[3]}; |
if ($metadatafields{$unikey}) { |
if ($metadatafields{$unikey}) { |
my $newentry=$parser->get_text('/'.$entry); |
my $newentry=$parser->get_text('/'.$entry); |
unless ($metadatafields{$unikey}=~/$newentry/) { |
unless (($metadatafields{$unikey}=~/$newentry/) || |
|
($newentry eq '')) { |
$metadatafields{$unikey}.=', '.$newentry; |
$metadatafields{$unikey}.=', '.$newentry; |
} |
} |
} else { |
} else { |
Line 308 sub publish {
|
Line 309 sub publish {
|
} |
} |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
unless ($token->[1] eq 'allow') { |
unless ($token->[1] eq 'allow') { |
$outstring.=$token->[2]; |
$outstring.='</'.$token->[1].'>'; |
} |
} |
} else { |
} else { |
$outstring.=$token->[1]; |
$outstring.=$token->[1]; |