version 1.425, 2009/08/24 20:08:31
|
version 1.426, 2009/09/13 03:13:21
|
Line 4745 sub validate_instcode_handler {
|
Line 4745 sub validate_instcode_handler {
|
my ($dom,$instcode,$owner) = split(/:/, $tail); |
my ($dom,$instcode,$owner) = split(/:/, $tail); |
$instcode = &unescape($instcode); |
$instcode = &unescape($instcode); |
$owner = &unescape($owner); |
$owner = &unescape($owner); |
my $outcome=&localenroll::validate_instcode($dom,$instcode,$owner); |
my ($outcome,$description) = |
&Reply($client, \$outcome, $userinput); |
&localenroll::validate_instcode($dom,$instcode,$owner); |
|
my $result = &escape($outcome).'&'.&escape($description); |
|
&Reply($client, \$result, $userinput); |
|
|
return 1; |
return 1; |
} |
} |