|
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 |
- |
|
|