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/^\,//; |