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