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.78, 2002/04/17 16:21:46
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'})) {
foreach (@Keywords) {	my @Keywords = @{$ENV{'form.keywords'}};
$allkeywords.=','.$_;	foreach (@Keywords) {
	$allkeywords.=','.$_;
	}
}	}
$allkeywords=~s/\W+/\,/;	$allkeywords=~s/\W+/\,/;
$allkeywords=~s/^\,//;	$allkeywords=~s/^\,//;