loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.45, 2001/09/26 16:26:49	version 1.46, 2001/10/03 11:04:57
Line 154 sub urlfixup {	Line 154 sub urlfixup {
}	}

sub publish {	sub publish {

my ($source,$target,$style)=@_;	my ($source,$target,$style)=@_;
my $logfile;	my $logfile;
my $scrout='';	my $scrout='';
Line 480 sub publish {	Line 479 sub publish {
$textonly=~s/[^a-z\s]//g;	$textonly=~s/[^a-z\s]//g;

my %keywords=();	my %keywords=();
map {	my $j=0;
unless ($nokey{$_}) {	my $word;
$keywords{$_}=1;	for (my $i=0; $i<length($textonly); $i++) {
}	my $ch.=substr($textonly,$i,1);
} ($textonly=~m/(\w+)/g);	if ($ch=~/\s/) {
	if (length($word)) {
	unless ($nokey{$word}) {
	$keywords{$word}=1;
	}
	}
	$word='';
	}
	else {
	$word.=$ch;
	}
	# map {
	# unless ($nokey{$_}) {
	# $keywords{$_}=1;
	# }
	# } ($textonly=~m/(\w+)/g);
	}

	my $sizkeys=scalar(keys %keywords); # use this value at some point
map {	map {
$keywords{$_}=1;	$keywords{$_}=1;
} split(/\W+/,$metadatafields{'keywords'});	} split(/\W+/,$metadatafields{'keywords'});
Line 505 sub publish {	Line 521 sub publish {
$keywordout.='</tr></table>';	$keywordout.='</tr></table>';

}	}

$scrout.=$keywordout;	$scrout.=$keywordout;

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