loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.167, 2004/05/21 19:27:02	version 1.168, 2004/05/21 20:01:15
Line 1102 sub publish {	Line 1102 sub publish {
}	}


foreach (split(/\W+/,$metadatafields{'keywords'})) {	foreach my $addkey (split(/[\"\'\,\;]/,$metadatafields{'keywords'})) {
$keywords{$_}=1;	$addkey=~s/\s+/ /g;
	$addkey=~s/^\s//;
	$addkey=~s/\s$//;
	if ($addkey=~/\w/) {
	$keywords{$addkey}=1;
	}
}	}
# --------------------------------------------------- Now we also have keywords	# --------------------------------------------------- Now we also have keywords
# =============================================================================	# =============================================================================
Line 1373 sub phasetwo {	Line 1378 sub phasetwo {
$allkeywords .= ','.$ENV{'form.keywords'};	$allkeywords .= ','.$ENV{'form.keywords'};
}	}
}	}
$allkeywords=~s/\W+/\,/;	$allkeywords=~s/[\;\,]/\,/;
$allkeywords=~s/^\,//;	$allkeywords=~s/[\"\']//g;
	$allkeywords=~s/\s+/ /g;
	$allkeywords=~s/^[ \,]//;
	$allkeywords=~s/[ \,]$//;
$metadatafields{'keywords'}=$allkeywords;	$metadatafields{'keywords'}=$allkeywords;

# check if custom distribution file is specified	# check if custom distribution file is specified