version 1.502, 2013/08/10 01:27:31
|
version 1.505, 2014/01/01 17:41:37
|
Line 1685 sub read_lonnet_global {
|
Line 1685 sub read_lonnet_global {
|
sub server_devalidatecache_handler { |
sub server_devalidatecache_handler { |
my ($cmd,$tail,$client) = @_; |
my ($cmd,$tail,$client) = @_; |
my $userinput = "$cmd:$tail"; |
my $userinput = "$cmd:$tail"; |
my ($name,$id) = map { &unescape($_); } split(/:/,$tail); |
my $items = &unescape($tail); |
&Apache::lonnet::devalidate_cache_new($name,$id); |
my @cached = split(/\&/,$items); |
|
foreach my $key (@cached) { |
|
if ($key =~ /:/) { |
|
my ($name,$id) = map { &unescape($_); } split(/:/,$key); |
|
&Apache::lonnet::devalidate_cache_new($name,$id); |
|
} |
|
} |
my $result = 'ok'; |
my $result = 'ok'; |
&Reply($client,\$result,$userinput); |
&Reply($client,\$result,$userinput); |
return 1; |
return 1; |
Line 3831 sub put_course_id_hash_handler {
|
Line 3837 sub put_course_id_hash_handler {
|
# 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. |
# domcloner - flag to indicate if user can create CCs in course's domain. |
# If so, ability to clone course is automatic. |
# If so, ability to clone course is automatic. |
|
# hasuniquecode - filter by courses for which a six character unique code has |
|
# been set. |
# |
# |
# $client - The socket open on the client. |
# $client - The socket open on the client. |
# Returns: |
# Returns: |
Line 3856 sub dump_course_id_handler {
|
Line 3864 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,$domcloner) =split(/:/,$tail); |
$creationcontext,$domcloner,$hasuniquecode) =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 3929 sub dump_course_id_handler {
|
Line 3937 sub dump_course_id_handler {
|
} else { |
} else { |
$creationcontext = '.'; |
$creationcontext = '.'; |
} |
} |
|
unless ($hasuniquecode) { |
|
$hasuniquecode = '.'; |
|
} |
my $unpack = 1; |
my $unpack = 1; |
if ($description eq '.' && $instcodefilter eq '.' && $ownerfilter eq '.' && |
if ($description eq '.' && $instcodefilter eq '.' && $ownerfilter eq '.' && |
$typefilter eq '.') { |
$typefilter eq '.') { |
Line 4017 sub dump_course_id_handler {
|
Line 4028 sub dump_course_id_handler {
|
$selfenroll_end = $items->{'selfenroll_end_date'}; |
$selfenroll_end = $items->{'selfenroll_end_date'}; |
$created = $items->{'created'}; |
$created = $items->{'created'}; |
$context = $items->{'context'}; |
$context = $items->{'context'}; |
|
if ($hasuniquecode ne '.') { |
|
next unless ($items->{'uniquecode'}); |
|
} |
if ($selfenrollonly) { |
if ($selfenrollonly) { |
next if (!$selfenroll_types); |
next if (!$selfenroll_types); |
if (($selfenroll_end > 0) && ($selfenroll_end <= $now)) { |
if (($selfenroll_end > 0) && ($selfenroll_end <= $now)) { |
Line 6496 sub make_new_child {
|
Line 6510 sub make_new_child {
|
&Authen::Krb5::init_context(); |
&Authen::Krb5::init_context(); |
unless (($dist eq 'fedora5') || ($dist eq 'fedora4') || |
unless (($dist eq 'fedora5') || ($dist eq 'fedora4') || |
($dist eq 'fedora6') || ($dist eq 'suse9.3') || |
($dist eq 'fedora6') || ($dist eq 'suse9.3') || |
($dist eq 'suse12.2') || ($dist eq 'suse12.3')) { |
($dist eq 'suse12.2') || ($dist eq 'suse12.3') || |
|
($dist eq 'suse13.1')) { |
&Authen::Krb5::init_ets(); |
&Authen::Krb5::init_ets(); |
} |
} |
|
|