loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);

}
}	}
}	}
}	}