version 1.92, 2002/08/09 19:49:30
|
version 1.93, 2002/08/12 14:48:32
|
Line 1076 sub phasetwo {
|
Line 1076 sub phasetwo {
|
$metadatafields{'abstract'}=$ENV{'form.abstract'}; |
$metadatafields{'abstract'}=$ENV{'form.abstract'}; |
$metadatafields{'mime'}=$ENV{'form.mime'}; |
$metadatafields{'mime'}=$ENV{'form.mime'}; |
$metadatafields{'language'}=$ENV{'form.language'}; |
$metadatafields{'language'}=$ENV{'form.language'}; |
$metadatafields{'creationdate'}=$ENV{'form.creationdate'}; |
$metadatafields{'creationdate'}= |
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
&sqltime($ENV{'form.creationdate'}); |
|
$metadatafields{'lastrevisiondate'}= |
|
&sqltime($ENV{'form.lastrevisiondate'}); |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
|
|
my $allkeywords=$ENV{'form.addkey'}; |
my $allkeywords=$ENV{'form.addkey'}; |
if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) { |
if (exists($ENV{'form.keywords'})) { |
my @Keywords = @{$ENV{'form.keywords'}}; |
if (ref($ENV{'form.keywords'})) { |
foreach (@Keywords) { |
$allkeywords .= ','.join(',',@{$ENV{'form.keywords'}}); |
$allkeywords.=','.$_; |
} else { |
|
$allkeywords .= ','.$ENV{'form.keywords'}; |
} |
} |
} |
} |
$allkeywords=~s/\W+/\,/; |
$allkeywords=~s/\W+/\,/; |