loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.46, 2001/10/03 11:04:57	version 1.50, 2001/10/16 19:28:38
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 479 sub publish {	Line 480 sub publish {
$textonly=~s/[^a-z\s]//g;	$textonly=~s/[^a-z\s]//g;

my %keywords=();	my %keywords=();
my $j=0;	map {
my $word;	unless ($nokey{$_}) {
for (my $i=0; $i<length($textonly); $i++) {	$keywords{$_}=1;
my $ch.=substr($textonly,$i,1);	}
if ($ch=~/\s/) {	} ($textonly=~m/(\w+)/g);
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 521 sub publish {	Line 505 sub publish {
$keywordout.='</tr></table>';	$keywordout.='</tr></table>';

}	}

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

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