version 1.46, 2014/04/19 20:48:43
|
version 1.47, 2014/04/30 17:17:35
|
Line 1605 sub course_creation {
|
Line 1605 sub course_creation {
|
my ($result,$ownername,$ownerdom); |
my ($result,$ownername,$ownerdom); |
my $crstype = $details->{'crstype'}; |
my $crstype = $details->{'crstype'}; |
my $coursedesc = $details->{'cdescr'}; |
my $coursedesc = $details->{'cdescr'}; |
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestauthor'],$dom); |
my $accessstart = $details->{'accessstart'}; |
|
my $accessend = $details->{'accessend'}; |
|
my %domconfig = &Apache::lonnet::get_dom('configuration',['requestcourses'],$dom); |
if (ref($domconfig{'requestcourses'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') { |
if (ref($domconfig{'requestcourses'}{'uniquecode'}) eq 'HASH') { |
if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) { |
if ($domconfig{'requestcourses'}{'uniquecode'}{$crstype}) { |
Line 1639 sub course_creation {
|
Line 1641 sub course_creation {
|
$code = $$coderef; |
$code = $$coderef; |
} |
} |
$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername, |
$postprocess = &Apache::lonnet::auto_crsreq_update($dom,$cnum,$crstype,$result,$ownername, |
$ownerdom,$fullname,$coursedesc,$code,$customhash); |
$ownerdom,$fullname,$coursedesc,$code, |
|
$accessstart,$accessend,$customhash); |
} else { |
} else { |
$result = 'error: '.$cid; |
$result = 'error: '.$cid; |
} |
} |