version 1.469, 2011/01/20 10:55:02
|
version 1.470, 2011/01/22 21:10:18
|
Line 5008 sub get_sections_handler {
|
Line 5008 sub get_sections_handler {
|
sub validate_course_owner_handler { |
sub validate_course_owner_handler { |
my ($cmd, $tail, $client) = @_; |
my ($cmd, $tail, $client) = @_; |
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
my ($inst_course_id, $owner, $cdom) = split(/:/, $tail); |
my ($inst_course_id, $owner, $cdom, $coowners) = split(/:/, $tail); |
|
|
$owner = &unescape($owner); |
$owner = &unescape($owner); |
my $outcome = &localenroll::new_course($inst_course_id,$owner,$cdom); |
$coowners = &unescape($coowners); |
|
my $outcome = &localenroll::new_course($inst_course_id,$owner,$cdom,$coowners); |
&Reply($client, \$outcome, $userinput); |
&Reply($client, \$outcome, $userinput); |
|
|
|
|