loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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];