loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.1166, 2013/12/25 09:52:42	version 1.1167, 2013/12/25 20:43:46
Line 14168 sub construct_course {	Line 14168 sub construct_course {
}	}

#	#
# course should have uniquecode (available to course requester).	# generate and store uniquecode (available to course requester), if course should have one.
#	#
if ($args->{'uniquecode'}) {	if ($args->{'uniquecode'}) {
my ($code,$error) = &make_unique_code($$crsudom,$$crsunum);	my ($code,$error) = &make_unique_code($$crsudom,$$crsunum);
if ($code) {	if ($code) {
$cenv{'internal.uniquecode'} = $code;	$cenv{'internal.uniquecode'} = $code;
	my %crsinfo =
	&Apache::lonnet::courseiddump($$crsudom,'.',1,'.','.',$$crsunum,undef,undef,'.');
	if (ref($crsinfo{$$crsudom.'_'.$$crsunum}) eq 'HASH') {
	$crsinfo{$$crsudom.'_'.$$crsunum}{'uniquecode'} = $code;
	my $putres = &Apache::lonnet::courseidput($$crsudom,\%crsinfo,$crsuhome,'notime');
	}
if (ref($coderef)) {	if (ref($coderef)) {
$$coderef = $code;	$$coderef = $code;
}	}