Lines 179-185
my ($template, $loggedinuser, $cookie) = get_template_and_user(
Link Here
|
179 |
my $authid = $query->param('authid'); |
179 |
my $authid = $query->param('authid'); |
180 |
|
180 |
|
181 |
my $authobj = Koha::Authorities->find($authid); |
181 |
my $authobj = Koha::Authorities->find($authid); |
182 |
my $authtypecode = $authobj ? $authobj->authtypecode: q{}; |
182 |
my $authtypecode = $authobj ? $authobj->authtypecode : q{}; |
183 |
$tagslib = &GetTagsLabels(1,$authtypecode); |
183 |
$tagslib = &GetTagsLabels(1,$authtypecode); |
184 |
|
184 |
|
185 |
# Build list of authtypes for showing them |
185 |
# Build list of authtypes for showing them |
Lines 210-224
my $biblio_fields;
Link Here
|
210 |
while (my ($tagfield) = $sth->fetchrow) { |
210 |
while (my ($tagfield) = $sth->fetchrow) { |
211 |
$biblio_fields.= $tagfield."9,"; |
211 |
$biblio_fields.= $tagfield."9,"; |
212 |
} |
212 |
} |
213 |
chop $biblio_fields; |
213 |
chop $biblio_fields if $biblio_fields; |
214 |
|
214 |
|
215 |
build_tabs ($template, $record, $dbh,"",$query); |
215 |
build_tabs ($template, $record, $dbh,"",$query); |
216 |
|
216 |
|
|
|
217 |
my $type = $authority_types->find($authtypecode); |
217 |
$template->param( |
218 |
$template->param( |
218 |
authid => $authid, |
219 |
authid => $authid, |
219 |
count => $count, |
220 |
count => $count, |
220 |
biblio_fields => $biblio_fields, |
221 |
biblio_fields => $biblio_fields, |
221 |
authtypetext => $authority_types->find($authtypecode)->authtypetext, |
222 |
authtypetext => $type ? $type->authtypetext: "", |
222 |
authtypecode => $authtypecode, |
223 |
authtypecode => $authtypecode, |
223 |
authority_types => $authority_types, |
224 |
authority_types => $authority_types, |
224 |
csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $query->cookie('CGISESSID') }), |
225 |
csrf_token => Koha::Token->new->generate_csrf({ session_id => scalar $query->cookie('CGISESSID') }), |
225 |
- |
|
|