--- loncom/lonnet/perl/lonnet.pm	2001/10/16 18:41:01	1.165
+++ loncom/lonnet/perl/lonnet.pm	2001/10/30 19:19:09	1.167
@@ -854,6 +854,37 @@ sub devalidate {
     }
 }
 
+# -------------------------------------------------------------------Temp Store
+
+sub tmpstore {
+    my ($storehash,$symb,$namespace,$domain,$stuname) = @_;
+    my $home='';
+
+    if ($stuname) {
+	$home=&homeserver($stuname,$domain);
+
+    }
+
+    if (!$symb) {
+      $symb=&symbread();
+      if (!$symb) {
+	$symb= $ENV{'request.url'};
+      }
+    }
+
+    $symb=escape($symb);
+    if (!$namespace) { unless ($namespace=$ENV{'request.course.id'}) { return ''; } }
+    if (!$domain) { $domain=$ENV{'user.domain'}; }
+    if (!$stuname) { $stuname=$ENV{'user.name'}; }
+    if (!$home) { $home=$ENV{'user.home'}; }
+    my $namevalue='';
+    map {
+        $namevalue.=escape($_).'='.escape($$storehash{$_}).'&';
+    } keys %$storehash;
+    $namevalue=~s/\&$//;
+
+}
+
 # ----------------------------------------------------------------------- Store
 
 sub store {
@@ -1241,7 +1272,7 @@ sub allowed {
 
 # If this is generating or modifying users, exit with special codes
 
-    if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:'=~/\:$priv\:/) {
+    if (':csu:cdc:ccc:cin:cta:cep:ccr:cst:cad:cli:cau:cdg:cca:'=~/\:$priv\:/) {
 	return $thisallowed;
     }
 #