loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.48, 2001/10/16 08:53:19	version 1.51, 2001/10/16 19:33:26
Line 56 sub metaeval {	Line 56 sub metaeval {
$unikey.='_'.$token->[2]->{'part'};	$unikey.='_'.$token->[2]->{'part'};
}	}
if (defined($token->[2]->{'id'})) {	if (defined($token->[2]->{'id'})) {
$unikey.='.'.$token->[2]->{'id'};	$unikey.='_'.$token->[2]->{'id'};
}	}
if (defined($token->[2]->{'name'})) {	if (defined($token->[2]->{'name'})) {
$unikey.='_'.$token->[2]->{'name'};	$unikey.='_'.$token->[2]->{'name'};
Line 470 sub publish {	Line 470 sub publish {
my $keywordout='<p><b>Keywords:</b><br><table border=2><tr>';	my $keywordout='<p><b>Keywords:</b><br><table border=2><tr>';
my $colcount=0;	my $colcount=0;

if (length($content)<500000) {	if (length($content<500000) {
my $textonly=$content;	my $textonly=$content;
$textonly=~s/\<script[^\<]+\<\/script\>//g;	$textonly=~s/\<script[^\<]+\<\/script\>//g;
$textonly=~s/\<m\>[^\<]+\<\/m\>//g;	$textonly=~s/\<m\>[^\<]+\<\/m\>//g;
Line 502 sub publish {	Line 502 sub publish {
}	}
$colcount++;	$colcount++;
} sort keys %keywords;	} sort keys %keywords;

} else {	} else {
$keywordout.='<td>File too large, scan omitted</td>';	$keywordout.='<td>File too long for keyword analysis</td>';
}	}

$keywordout.='</tr></table>';

$scrout.=$keywordout;	$keywordout.='</tr></table>';

	$scrout.=$keywordout;

$scrout.=&textfield('Additional Keywords','addkey','');	$scrout.=&textfield('Additional Keywords','addkey','');