loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.489.2.8, 2013/08/10 14:20:52	version 1.489.2.9, 2013/10/17 00:36:01
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;