loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.77, 2002/04/14 16:25:39	version 1.79, 2002/04/17 18:32:35
Line 714 sub phasetwo {	Line 714 sub phasetwo {
$metadatafields{'dependencies'}=$ENV{'form.dependencies'};	$metadatafields{'dependencies'}=$ENV{'form.dependencies'};

my $allkeywords=$ENV{'form.addkey'};	my $allkeywords=$ENV{'form.addkey'};
my @Keywords = @{$ENV{'form.keywords'}};	if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) {
foreach (@Keywords) {	my @Keywords = @{$ENV{'form.keywords'}};
$allkeywords.=','.$_;	foreach (@Keywords) {
	$allkeywords.=','.$_;
	}
}	}
$allkeywords=~s/\W+/\,/;	$allkeywords=~s/\W+/\,/;
$allkeywords=~s/^\,//;	$allkeywords=~s/^\,//;