--- loncom/lonnet/perl/lonnet.pm	2003/06/19 19:37:45	1.382
+++ loncom/lonnet/perl/lonnet.pm	2003/06/30 18:30:42	1.383
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.382 2003/06/19 19:37:45 albertel Exp $
+# $Id: lonnet.pm,v 1.383 2003/06/30 18:30:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3190,12 +3190,12 @@ sub courseresdata {
 #
 
 sub clear_EXT_cache_status {
-    &delenv('cache.');
+    &delenv('cache.EXT.');
 }
 
 sub EXT_cache_status {
     my ($target_domain,$target_user) = @_;
-    my $cachename = 'cache.'.$target_user.'.'.$target_domain;
+    my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
     if (exists($ENV{$cachename}) && ($ENV{$cachename}+1800) > time) {
         # We know already the user has no data
         return 1;
@@ -3206,7 +3206,7 @@ sub EXT_cache_status {
 
 sub EXT_cache_set {
     my ($target_domain,$target_user) = @_;
-    my $cachename = 'cache.'.$target_user.'.'.$target_domain;
+    my $cachename = 'cache.EXT.'.$target_user.'.'.$target_domain;
     &appenv($cachename => time);
 }