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',''); |