Lines 208-222
my $biblio_fields;
Link Here
|
208 |
while (my ($tagfield) = $sth->fetchrow) { |
208 |
while (my ($tagfield) = $sth->fetchrow) { |
209 |
$biblio_fields.= $tagfield."9,"; |
209 |
$biblio_fields.= $tagfield."9,"; |
210 |
} |
210 |
} |
211 |
chop $biblio_fields; |
211 |
chop $biblio_fields if $biblio_fields; |
212 |
|
212 |
|
213 |
build_tabs ($template, $record, $dbh,"",$query); |
213 |
build_tabs ($template, $record, $dbh,"",$query); |
214 |
|
214 |
|
|
|
215 |
my $type = $authority_types->find($authtypecode); |
215 |
$template->param( |
216 |
$template->param( |
216 |
authid => $authid, |
217 |
authid => $authid, |
217 |
count => $count, |
218 |
count => $count, |
218 |
biblio_fields => $biblio_fields, |
219 |
biblio_fields => $biblio_fields, |
219 |
authtypetext => $authority_types->find($authtypecode)->authtypetext, |
220 |
authtypetext => $type ? $type->authtypetext: "", |
220 |
authtypecode => $authtypecode, |
221 |
authtypecode => $authtypecode, |
221 |
authority_types => $authority_types, |
222 |
authority_types => $authority_types, |
222 |
); |
223 |
); |