--- loncom/lonnet/perl/lonnet.pm	2003/06/19 19:37:45	1.382
+++ loncom/lonnet/perl/lonnet.pm	2003/07/01 20:45:17	1.384
@@ -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.384 2003/07/01 20:45:17 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);
 }
 
@@ -3297,7 +3297,8 @@ sub EXT {
         }
     } elsif ($realm eq 'query') {
 # ---------------------------------------------- pull stuff out of query string
-        &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},[$space]);
+        &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+						[$spacequalifierrest]);
 	return $ENV{'form.'.$spacequalifierrest}; 
    } elsif ($realm eq 'request') {
 # ------------------------------------------------------------- request.browser