loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1018, 2009/08/16 21:49:32	version 1.1019, 2009/08/18 20:08:25
Line 5645 sub auto_validate_courseID {	Line 5645 sub auto_validate_courseID {
}	}

sub auto_validate_instcode {	sub auto_validate_instcode {
my ($cnum,$cdom,$instcode,$owner) = @_;	my ($cnum,$cdom,$instcode,$owner,$inststatuslist,$instseclist) = @_;
my ($homeserver,$response);	my ($homeserver,$response);
if (($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/)) {	if (($cdom =~ /^$match_domain$/) && ($cnum =~ /^$match_courseid$/)) {
$homeserver = &homeserver($cnum,$cdom);	$homeserver = &homeserver($cnum,$cdom);
Line 5656 sub auto_validate_instcode {	Line 5656 sub auto_validate_instcode {
}	}
}	}
my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.	my $response=&unescape(&reply('autovalidateinstcode:'.$cdom.':'.
&escape($instcode).':'.&escape($owner),$homeserver));	&escape($instcode).':'.&escape($owner).':'.
	&escape($inststatuslist).':'.&escape($instseclist),
	$homeserver));
return $response;	return $response;
}	}

Line 5878 sub auto_courserequest_checks {	Line 5880 sub auto_courserequest_checks {
return %validations;	return %validations;
}	}

sub auto_courserequest_validation {
my ($dom,$details,$inststatuses,$message) = @_;
return 'pending';
}

sub auto_validate_class_sec {	sub auto_validate_class_sec {
my ($cdom,$cnum,$owners,$inst_class) = @_;	my ($cdom,$cnum,$owners,$inst_class) = @_;
my $homeserver = &homeserver($cnum,$cdom);	my $homeserver = &homeserver($cnum,$cdom);