version 1.79, 2014/05/06 18:09:40
|
version 1.80, 2014/05/06 20:42:27
|
Line 3741 sub process_request {
|
Line 3741 sub process_request {
|
} |
} |
if (ref($postprocess) eq 'HASH') { |
if (ref($postprocess) eq 'HASH') { |
if (ref($postprocess->{'createdactions'}) eq 'HASH') { |
if (ref($postprocess->{'createdactions'}) eq 'HASH') { |
if (ref($postprocess->{'createdactions'}{'environment'} eq 'HASH') { |
if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') { |
my %newcrsenv; |
&Apache::loncoursequeueadmin::postprocess_crsenv($dom,$cnum, |
foreach my $key (%{$postprocess->{'createdactions'}{'environment'}}) { |
$postprocess->{'createdactions'}{'environment'}); |
$newcrsenv{$key} = $postprocess->{'createdactions'}{'environment'}{$key}; |
|
} |
|
if (keys(%newcrsenv)) { |
|
my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum); |
|
|
|
} |
|
} |
} |
} |
} |
} |
} |