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