version 1.1, 2017/12/07 15:36:25
|
version 1.2, 2017/12/09 16:24:03
|
Line 290 sub verify_lis_item {
|
Line 290 sub verify_lis_item {
|
if ($expected_sig eq $sigrec) { |
if ($expected_sig eq $sigrec) { |
return 1; |
return 1; |
} else { |
} else { |
$errors->{16} = 1; |
$errors->{17} = 1; |
} |
} |
} elsif ($context eq 'roster') { |
} elsif ($context eq 'roster') { |
my $uniqid = $digsymb.':::'.$cdom.'_'.$cnum; |
my $uniqid = $digsymb.':::'.$cdom.'_'.$cnum; |
Line 298 sub verify_lis_item {
|
Line 298 sub verify_lis_item {
|
if ($expected_sig eq $sigrec) { |
if ($expected_sig eq $sigrec) { |
return 1; |
return 1; |
} else { |
} else { |
$errors->{17} = 1; |
$errors->{18} = 1; |
} |
} |
} |
} |
} else { |
} else { |
$errors->{18} = 1; |
$errors->{19} = 1; |
} |
} |
} else { |
} else { |
$errors->{19} = 1; |
$errors->{20} = 1; |
} |
} |
return; |
return; |
} |
} |