--- loncom/lonnet/perl/lonnet.pm	2011/08/01 22:13:49	1.1123
+++ loncom/lonnet/perl/lonnet.pm	2011/08/02 03:11:42	1.1124
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1123 2011/08/01 22:13:49 raeburn Exp $
+# $Id: lonnet.pm,v 1.1124 2011/08/02 03:11:42 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -344,6 +344,12 @@ sub get_remote_globals {
     return %returnhash;
 }
 
+sub remote_devalidate_cache {
+    my ($lonhost,$name,$id) = @_;
+    my $response = &reply('devalidatecache',&escape($name).':'.&escape($id),$lonhost);
+    return $response;
+}
+
 # -------------------------------------------------- Non-critical communication
 sub subreply {
     my ($cmd,$server)=@_;