loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.78, 2014/04/16 14:40:17	version 1.79, 2014/05/06 18:09:40
Line 3739 sub process_request {	Line 3739 sub process_request {
if ($code) {	if ($code) {
$reqhash{'code'} = $code;	$reqhash{'code'} = $code;
}	}
	if (ref($postprocess) eq 'HASH') {
	if (ref($postprocess->{'createdactions'}) eq 'HASH') {
	if (ref($postprocess->{'createdactions'}{'environment'} eq 'HASH') {
	my %newcrsenv;
	foreach my $key (%{$postprocess->{'createdactions'}{'environment'}}) {
	$newcrsenv{$key} = $postprocess->{'createdactions'}{'environment'}{$key};
	}
	if (keys(%newcrsenv)) {
	my $putresult = &Apache::lonnet::put('environment',\%newcrsenv,$dom,$cnum);

	}
	}
	}
	}
$output .= '<br />'.$role_result.'</p>';	$output .= '<br />'.$role_result.'</p>';
$creationresult = 'created';	$creationresult = 'created';
} else {	} else {
Line 4390 sub print_textbook_form {	Line 4404 sub print_textbook_form {
#	#
# Retrieve list of textbook courses cloneable by user	# Retrieve list of textbook courses cloneable by user
#	#
my $numbook;	my $numbook = 0;
if (ref($settings) eq 'HASH') {	if (ref($settings) eq 'HASH') {
$bookshash = $settings->{'textbooks'};	$bookshash = $settings->{'textbooks'};
if (ref($bookshash) eq 'HASH') {	if (ref($bookshash) eq 'HASH') {