loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.39, 2001/08/17 16:27:08	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 143 sub urlfixup {	Line 144 sub urlfixup {
$url=~s/^$host//;	$url=~s/^$host//;
}	}
} values %Apache::lonnet::hostname;	} values %Apache::lonnet::hostname;
	if ($url=~/^http\:\/\//) { return $url; }
$url=~s/\~$cuname/res\/$cudom\/$cuname/;	$url=~s/\~$cuname/res\/$cudom\/$cuname/;
if ($target) {	if ($target) {
$target=~s/\/[^\/]+$//;	$target=~s/\/[^\/]+$//;
Line 307 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];