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.80, 2002/05/07 18:07: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'}) && (ref($ENV{'form.keywords'}))) {
foreach (@Keywords) {	my @Keywords = @{$ENV{'form.keywords'}};
$allkeywords.=','.$_;	foreach (@Keywords) {
	$allkeywords.=','.$_;
	}
}	}
$allkeywords=~s/\W+/\,/;	$allkeywords=~s/\W+/\,/;
$allkeywords=~s/^\,//;	$allkeywords=~s/^\,//;
Line 988 sub handler {	Line 990 sub handler {

# Get query string for limited number of parameters	# Get query string for limited number of parameters

foreach (split(/&/,$ENV{'QUERY_STRING'})) {	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
my ($name, $value) = split(/=/,$_);	['filename']);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'filename') {
unless ($ENV{'form.'.$name}) {
$ENV{'form.'.$name}=$value;
}
}
}


# -------------------------------------------------------------- Check filename	# -------------------------------------------------------------- Check filename