loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.477, 2011/07/31 22:55:48	version 1.479, 2011/08/02 03:11:35
Line 1658 sub read_lonnet_global {	Line 1658 sub read_lonnet_global {
}	}
} else {	} else {
if (defined(${$lonnetglobal})) {	if (defined(${$lonnetglobal})) {
$response = &escape(${$item});	$response = &escape(${$lonnetglobal});
}	}
}	}
	$result .= &escape($what).'='.$response.'&';
}	}
$result .= &escape($what).'='.$response.'&';
}	}
$result =~ s/\&$//;	$result =~ s/\&$//;
&Reply($client,\$result,$userinput);	&Reply($client,\$result,$userinput);
Line 1670 sub read_lonnet_global {	Line 1670 sub read_lonnet_global {
}	}
&register_handler("readlonnetglobal", \&read_lonnet_global, 0, 1, 0);	&register_handler("readlonnetglobal", \&read_lonnet_global, 0, 1, 0);

	sub server_devalidatecache_handler {
	my ($cmd,$tail,$client) = @_;
	my $userinput = "$cmd:$tail";
	my ($name,$id) = map { &unescape($_); } split(/:/,$tail);
	&Apache::lonnet::devalidate_cache_new($name,$id);
	my $result = 'ok';
	&Reply($client,\$result,$userinput);
	return 1;
	}
	&register_handler("devalidatecache", \&devalidatecache_handler, 0, 1, 0);

sub server_timezone_handler {	sub server_timezone_handler {
my ($cmd,$tail,$client) = @_;	my ($cmd,$tail,$client) = @_;
my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";