|
Lines 338-343
sub SearchAuthorities {
Link Here
|
| 338 |
$newline{summary} = $summary; |
338 |
$newline{summary} = $summary; |
| 339 |
$newline{even} = $counter % 2; |
339 |
$newline{even} = $counter % 2; |
| 340 |
$newline{reported_tag} = $reported_tag; |
340 |
$newline{reported_tag} = $reported_tag; |
|
|
341 |
$newline{origincode} = CalculateOriginCode( $authrecord, $authtypecode ); |
| 341 |
} |
342 |
} |
| 342 |
$counter++; |
343 |
$counter++; |
| 343 |
push @finalresult, \%newline; |
344 |
push @finalresult, \%newline; |
| 344 |
- |
|
|