version 1.47, 2014/04/30 17:17:35
|
version 1.48, 2014/05/06 20:42:27
|
Line 2062 sub process_official_reqs {
|
Line 2062 sub process_official_reqs {
|
} |
} |
} |
} |
} |
} |
|
if (ref($postprocess->{'createdactions'}) eq 'HASH') { |
|
if (ref($postprocess->{'createdactions'}{'environment'}) eq 'HASH') { |
|
&postprocess_crsenv($dom,$cnum,$postprocess->{'createdactions'}{'environment'}); |
|
} |
|
} |
} |
} |
&send_selfserve_notification($owner,$approvedmsg, |
&send_selfserve_notification($owner,$approvedmsg, |
$cid,$cdescr,$now, |
$cid,$cdescr,$now, |
Line 2133 sub process_official_reqs {
|
Line 2138 sub process_official_reqs {
|
return $output; |
return $output; |
} |
} |
|
|
|
sub postprocess_crsenv { |
|
my ($dom,$cnum,$postprocessenv) = @_; |
|
if (ref($postprocessenv) eq 'HASH') { |
|
my $cid = $dom.'_'.$cnum; |
|
my %settablecrsenv = ( |
|
'internal.selfenroll_types' => 1, |
|
'internal.selfenroll_registered' => 1, |
|
'internal.selfenroll_section' => 1, |
|
'internal.selfenroll_start_access' => 1, |
|
'internal.selfenroll_end_access' => 1, |
|
'internal.selfenroll_limit' => 1, |
|
'internal.selfenroll_cap' => 1, |
|
'internal.selfenroll_approval' => 1, |
|
'internal.selfenroll_notifylist' => 1, |
|
); |
|
my %needcrsidput = ( |
|
'internal.selfenroll_types' => 1, |
|
'internal.selfenroll_start_date' => 1, |
|
'internal. selfenroll_end_date' => 1, |
|
); |
|
my (@needupdate,%newcrsenv); |
|
foreach my $key (keys(%{$postprocessenv})) { |
|
if ($settablecrsenv{$key}) { |
|
$newcrsenv{$key} = $postprocessenv->{$key}; |
|
if ($needcrsidput{$key}) { |
|
push(@needupdate,$key); |
|
} |
|
} |
|
if (keys(%newcrsenv)) { |
|
my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum); |
|
if ($putresult eq 'ok') { |
|
if (@needupdate) { |
|
my %crsinfo = |
|
&Apache::lonnet::courseiddump($dom,'.',1,'.','.',$cnum,undef,undef,'.'); |
|
if (ref($crsinfo{$cid}) eq 'HASH') { |
|
foreach my $key (@needupdate) { |
|
$crsinfo{$cid}{$key} = $newcrsenv{$key}; |
|
} |
|
my $chome = &Apache::lonnet::homeserver($cnum,$dom); |
|
&Apache::lonnet::courseidput($dom,\%crsinfo,$chome,'notime'); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return; |
|
} |
|
|
|
|
sub requestcourses_validation_types { |
sub requestcourses_validation_types { |
my @items = ('url','fields','button','markup'); |
my @items = ('url','fields','button','markup'); |
my %names = &Apache::lonlocal::texthash ( |
my %names = &Apache::lonlocal::texthash ( |