Lines 274-281
sub SearchAuthorities {
Link Here
|
274 |
my %newline; |
274 |
my %newline; |
275 |
$newline{authid} = $authid; |
275 |
$newline{authid} = $authid; |
276 |
if ( !$skipmetadata ) { |
276 |
if ( !$skipmetadata ) { |
277 |
my $summary = |
|
|
278 |
BuildSummary( $authrecord, $authid, $authtypecode ); |
279 |
my $query_auth_tag = |
277 |
my $query_auth_tag = |
280 |
"SELECT auth_tag_to_report FROM auth_types WHERE authtypecode=?"; |
278 |
"SELECT auth_tag_to_report FROM auth_types WHERE authtypecode=?"; |
281 |
my $sth = $dbh->prepare($query_auth_tag); |
279 |
my $sth = $dbh->prepare($query_auth_tag); |
Lines 284-298
sub SearchAuthorities {
Link Here
|
284 |
my $reported_tag; |
282 |
my $reported_tag; |
285 |
my $mainentry = $authrecord->field($auth_tag_to_report); |
283 |
my $mainentry = $authrecord->field($auth_tag_to_report); |
286 |
if ($mainentry) { |
284 |
if ($mainentry) { |
287 |
|
|
|
288 |
foreach ( $mainentry->subfields() ) { |
285 |
foreach ( $mainentry->subfields() ) { |
289 |
$reported_tag .= '$' . $_->[0] . $_->[1]; |
286 |
$reported_tag .= '$' . $_->[0] . $_->[1]; |
290 |
} |
287 |
} |
291 |
} |
288 |
} |
292 |
my $thisauthtype = GetAuthType(GetAuthTypeCode($authid)); |
289 |
my $thisauthtypecode = GetAuthTypeCode($authid); |
|
|
290 |
my $thisauthtype = GetAuthType($thisauthtypecode); |
293 |
unless (defined $thisauthtype) { |
291 |
unless (defined $thisauthtype) { |
294 |
$thisauthtype = GetAuthType($authtypecode) if $authtypecode; |
292 |
$thisauthtypecode = $authtypecode; |
|
|
293 |
$thisauthtype = GetAuthType($authtypecode); |
295 |
} |
294 |
} |
|
|
295 |
my $summary = BuildSummary( $authrecord, $authid, $thisauthtypecode ); |
296 |
|
296 |
$newline{authtype} = defined($thisauthtype) ? |
297 |
$newline{authtype} = defined($thisauthtype) ? |
297 |
$thisauthtype->{'authtypetext'} : ''; |
298 |
$thisauthtype->{'authtypetext'} : ''; |
298 |
$newline{summary} = $summary; |
299 |
$newline{summary} = $summary; |
299 |
- |
|
|