loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.78, 2002/04/17 16:21:46	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'};
if (exists($ENV{'form.keywords'})) {	if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) {
my @Keywords = @{$ENV{'form.keywords'}};	my @Keywords = @{$ENV{'form.keywords'}};
foreach (@Keywords) {	foreach (@Keywords) {
$allkeywords.=','.$_;	$allkeywords.=','.$_;
Line 990 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