';
my $colcount=0;
my %keywords=();
@@ -594,7 +613,7 @@ sub publish {
}
foreach (sort keys %keywords) {
- $keywordout.='new('>>'.$source.'.log')) {
return
'No write permission to user directory, FAIL';
@@ -696,9 +714,10 @@ sub phasetwo {
$metadatafields{'dependencies'}=$ENV{'form.dependencies'};
my $allkeywords=$ENV{'form.addkey'};
- foreach (keys %ENV) {
- if ($_=~/^form\.key\.(\w+)/) {
- $allkeywords.=','.$1;
+ if (exists($ENV{'form.keywords'}) && (ref($ENV{'form.keywords'}))) {
+ my @Keywords = @{$ENV{'form.keywords'}};
+ foreach (@Keywords) {
+ $allkeywords.=','.$_;
}
}
$allkeywords=~s/\W+/\,/;
@@ -971,17 +990,8 @@ sub handler {
# Get query string for limited number of parameters
- foreach (split(/&/,$ENV{'QUERY_STRING'})) {
- my ($name, $value) = split(/=/,$_);
- $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;
- }
- }
- }
-
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['filename']);
# -------------------------------------------------------------- Check filename
|