version 1.444, 2010/06/18 19:19:33
|
version 1.445, 2010/06/25 04:37:44
|
Line 3728 sub put_course_id_hash_handler {
|
Line 3728 sub put_course_id_hash_handler {
|
# createdafter - include courses for which creation date followed this date. |
# createdafter - include courses for which creation date followed this date. |
# creationcontext - include courses created in specified context |
# creationcontext - include courses created in specified context |
# |
# |
|
# domcloner - flag to indicate if user can create CCs in course's domain. |
|
# If so, ability to clone course is automatic. |
|
# |
# $client - The socket open on the client. |
# $client - The socket open on the client. |
# Returns: |
# Returns: |
# 1 - Continue processing. |
# 1 - Continue processing. |
Line 3740 sub dump_course_id_handler {
|
Line 3743 sub dump_course_id_handler {
|
my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
my ($udom,$since,$description,$instcodefilter,$ownerfilter,$coursefilter, |
$typefilter,$regexp_ok,$rtn_as_hash,$selfenrollonly,$catfilter,$showhidden, |
$typefilter,$regexp_ok,$rtn_as_hash,$selfenrollonly,$catfilter,$showhidden, |
$caller,$cloner,$cc_clone_list,$cloneonly,$createdbefore,$createdafter, |
$caller,$cloner,$cc_clone_list,$cloneonly,$createdbefore,$createdafter, |
$creationcontext) =split(/:/,$tail); |
$creationcontext,$domcloner) =split(/:/,$tail); |
my $now = time; |
my $now = time; |
my ($cloneruname,$clonerudom,%cc_clone); |
my ($cloneruname,$clonerudom,%cc_clone); |
if (defined($description)) { |
if (defined($description)) { |
Line 3813 sub dump_course_id_handler {
|
Line 3816 sub dump_course_id_handler {
|
} else { |
} else { |
$creationcontext = '.'; |
$creationcontext = '.'; |
} |
} |
|
|
my $unpack = 1; |
my $unpack = 1; |
if ($description eq '.' && $instcodefilter eq '.' && $coursefilter eq '.' && |
if ($description eq '.' && $instcodefilter eq '.' && $coursefilter eq '.' && |
$typefilter eq '.') { |
$typefilter eq '.') { |
Line 3844 sub dump_course_id_handler {
|
Line 3846 sub dump_course_id_handler {
|
next if ($since > 1); |
next if ($since > 1); |
} |
} |
$is_hash = 1; |
$is_hash = 1; |
if (defined($clonerudom)) { |
if ($domcloner) { |
|
$canclone = 1; |
|
} elsif (defined($clonerudom)) { |
if ($items->{'cloners'}) { |
if ($items->{'cloners'}) { |
my @cloneable = split(',',$items->{'cloners'}); |
my @cloneable = split(',',$items->{'cloners'}); |
if (@cloneable) { |
if (@cloneable) { |