+sub author_html {
+ my ( $fh, $authid, $type, $label ) = @_;
+
+ print $fh qq|<h2>$label</h2>\n|;
+
+ foreach my $category ( sort keys %{ $authors->{$authid}->{$type} } ) {
+ my $label = $category_label->{$category} || 'Bez kategorije';
+ print $fh qq|<h3>$label</h3>\n<ul>\n|;
+ foreach my $biblionumber ( @{ $authors->{$authid}->{$type}->{$category} } ) {
+ print $fh qq|<li>|,
+ qq|<a href="https://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$biblionumber</a>|,
+ biblioitem_html($biblionumber),
+ qq|<a href="https://koha.ffzg.hr:8443/cgi-bin/koha/cataloguing/addbiblio.pl?biblionumber=$biblionumber">edit</a>|,
+ qq|</li>\n|;
+ }
+ print $fh qq|</ul>\n|;
+ }
+}
+