version 1.1, 2014/04/16 15:36:38
|
version 1.2, 2016/08/17 14:35:57
|
Line 1
|
Line 1
|
#!/usr/bin/perl |
#!/usr/bin/perl |
$|=1; |
$|=1; |
# Script to complete processing of course/community requests |
# Script to complete processing of course/community requests |
# for unofficial courses, textbook courses and communities |
# for unofficial courses, textbook courses, communities and |
# queued pending validation, once validated. |
# placement tests queued pending validation, once validated. |
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 188 sub main {
|
Line 188 sub main {
|
} |
} |
} |
} |
if ($field eq 'coursetype') { |
if ($field eq 'coursetype') { |
if ($query->param($field) =~ /^(unofficial|community|textbook)$/) { |
if ($query->param($field) =~ /^(unofficial|community|textbook|placement)$/) { |
$params{$field} = $query->param($field); |
$params{$field} = $query->param($field); |
} |
} |
} |
} |
Line 231 Inputs: $dom - domain of course to be cr
|
Line 231 Inputs: $dom - domain of course to be cr
|
(either query string or POSTed). Keys which will be |
(either query string or POSTed). Keys which will be |
used are fields specified in domain configuration |
used are fields specified in domain configuration |
for validation of pending unofficial courses, textbook courses, |
for validation of pending unofficial courses, textbook courses, |
and communities. |
communities and placement tests. |
|
|
Returns: $url,$code - If processing of the pending course request succeeds, |
Returns: $url,$code - If processing of the pending course request succeeds, |
a URL is returned which may be used by the requester to access |
a URL is returned which may be used by the requester to access |