|
Lines 134-140
sub SearchAuthorities {
Link Here
|
| 134 |
my @authtypecode; |
134 |
my @authtypecode; |
| 135 |
my @auths = split / /, $authtypecode; |
135 |
my @auths = split / /, $authtypecode; |
| 136 |
foreach my $auth (@auths) { |
136 |
foreach my $auth (@auths) { |
| 137 |
$query .= " \@attr 1=authtype \@attr 5=100 " . $auth; ##No truncation on authtype |
137 |
$query .= " \@attr 1=authtype \@attr 5=100 \@attr 6=3 " . $auth; ##No truncation on authtype |
| 138 |
push @authtypecode, $auth; |
138 |
push @authtypecode, $auth; |
| 139 |
$n++; |
139 |
$n++; |
| 140 |
} |
140 |
} |
| 141 |
- |
|
|