--- loncom/lonnet/perl/lonnet.pm	2009/08/16 21:49:32	1.1018
+++ loncom/lonnet/perl/lonnet.pm	2009/08/18 20:08:25	1.1019
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1018 2009/08/16 21:49:32 raeburn Exp $
+# $Id: lonnet.pm,v 1.1019 2009/08/18 20:08:25 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -5645,7 +5645,7 @@ sub auto_validate_courseID {
 }
 
 sub auto_validate_instcode {
-    my ($cnum,$cdom,$instcode,$owner) = @_;
+    my ($cnum,$cdom,$instcode,$owner,$inststatuslist,$instseclist) = @_;
     my ($homeserver,$response);
     if (($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/)) {
         $homeserver = &homeserver($cnum,$cdom);
@@ -5656,7 +5656,9 @@ sub auto_validate_instcode {
         }
     }
     my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.
-                           &escape($instcode).':'.&escape($owner),$homeserver));
+                           &escape($instcode).':'.&escape($owner).':'.
+                           &escape($inststatuslist).':'.&escape($instseclist),
+                           $homeserver));
     return $response;
 }
 
@@ -5878,11 +5880,6 @@ 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);