--- loncom/lonnet/perl/lonnet.pm	2009/08/10 23:32:35	1.1012
+++ loncom/lonnet/perl/lonnet.pm	2009/08/11 01:39:44	1.1013
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1012 2009/08/10 23:32:35 raeburn Exp $
+# $Id: lonnet.pm,v 1.1013 2009/08/11 01:39:44 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5878,6 +5878,11 @@ sub auto_courserequest_checks {
     return %validations; 
 }
 
+sub auto_courserequest_validation {
+    my ($dom,$details,$inststatuses,$message) = @_;
+    return 'pending';
+}
+
 sub auto_validate_class_sec {
     my ($cdom,$cnum,$owners,$inst_class) = @_;
     my $homeserver = &homeserver($cnum,$cdom);
@@ -6524,6 +6529,36 @@ sub is_course {
     return 0;
 }
 
+sub store_coursereq {
+    my ($requestkey,$storehash) = @_;
+    my $result;
+    if ($requestkey =~ /^($match_domain)_($match_courseid)$/) {
+        if (ref($storehash) eq 'HASH') {
+            my $namespace = 'courserequests';
+            my $uhome=&homeserver();
+            if (($uhome eq '') || ($uhome eq 'no_host')) {
+                $result = 'error: no_host';
+            } else {
+                $storehash->{'ip'} = $ENV{'REMOTE_ADDR'};
+                $storehash->{'host'} = $perlvar{'lonHostID'};
+
+                my $namevalue='';
+                foreach my $key (keys(%{$storehash})) {
+                    $namevalue.=&escape($key).'='.&freeze_escape($$storehash{$key}).'&';
+                }
+                $namevalue=~s/\&$//;
+                $result =  &reply("store:$env{'user.domain'}:$env{'user.name'}:".
+                                  "$namespace:$requestkey:$namevalue",$uhome);
+            }
+        } else {
+            $result = 'error: data to store was not a hash reference'; 
+        }
+    } else {
+        $result= 'error: invalid requestkey'; 
+    }
+    return $result;
+}
+
 # ---------------------------------------------------------- Assign Custom Role
 
 sub assigncustomrole {