version 1.45, 2001/09/26 16:26:49
|
version 1.47, 2001/10/08 19:00:50
|
Line 12
|
Line 12
|
# 05/03,05/05,05/07 Gerd Kortemeyer |
# 05/03,05/05,05/07 Gerd Kortemeyer |
# 05/28/2001 Scott Harrison |
# 05/28/2001 Scott Harrison |
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26 Gerd Kortemeyer |
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26 Gerd Kortemeyer |
|
# 10/3,10/8 Scott Harrison |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 154 sub urlfixup {
|
Line 155 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 480 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 500 sub publish {
|
Line 517 sub publish {
|
$keywordout.="</tr><tr>\n"; |
$keywordout.="</tr><tr>\n"; |
$colcount=0; |
$colcount=0; |
} |
} |
$colcount++; |
else { |
|
$colcount++; |
|
} |
} sort keys %keywords; |
} sort keys %keywords; |
$keywordout.='</tr></table>'; |
$keywordout.='</tr></table>'; |
|
|
} |
} |
|
|
$scrout.=$keywordout; |
$scrout.=$keywordout; |
|
|
$scrout.=&textfield('Additional Keywords','addkey',''); |
$scrout.=&textfield('Additional Keywords','addkey',''); |