loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.421, 2009/08/16 21:49:21	version 1.422, 2009/08/18 20:08:13
Line 4888 sub enrollment_enabled_handler {	Line 4888 sub enrollment_enabled_handler {
sub validate_instcode_handler {	sub validate_instcode_handler {
my ($cmd, $tail, $client) = @_;	my ($cmd, $tail, $client) = @_;
my $userinput = "$cmd:$tail";	my $userinput = "$cmd:$tail";
my ($dom,$instcode,$owner) = split(/:/, $tail);	my ($dom,$instcode,$owner,$inststatus,$instseclist) = split(/:/, $tail);
my $outcome=&localenroll::validate_instcode($dom,$instcode,$owner);	$instcode = &unescape($instcode);
	$owner = &unescape($owner);
	$inststatus = &unescape($inststatus);
	$instseclist = &unescape($instseclist);
	my $outcome=&localenroll::validate_instcode($dom,$instcode,$owner,
	$inststatus,$instseclist);
&Reply($client, \$outcome, $userinput);	&Reply($client, \$outcome, $userinput);

return 1;	return 1;