loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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