X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=f23e38be12cf7a7a0fe5563d236e5c16f61ccd17;hb=37f76cb9ed121b9507b040bf4530aa9d78d4465d;hp=18ad509cda309294820cb138bb4c6fbd93da01d2;hpb=373c951884ed78c6aadc06beea978d5050927a1e;p=koha-bibliografija
diff --git a/html.pl b/html.pl
index 18ad509..f23e38b 100755
--- a/html.pl
+++ b/html.pl
@@ -114,7 +114,7 @@ while( my $row = $sth_auth->fetchrow_hashref ) {
debug 'department_in_group' => $department_in_group;
foreach my $department ( keys %$department_in_sum ) {
- $department_in_sum->{$department} = 0 unless $department =~ m/(centar|croaticum|katedra|odsjek)/i;
+# $department_in_sum->{$department} = 0 unless $department =~ m/(centar|croaticum|katedra|odsjek)/i;
}
debug 'auth_department' => $auth_department;
@@ -128,10 +128,11 @@ my $marcxml;
my $sth_select_authors = $dbh->prepare(q{
select
- biblionumber,
+ biblioitems.biblionumber,
itemtype,
- marcxml
+ metadata as marcxml
from biblioitems
+join biblio_metadata on (biblio_metadata.biblionumber = biblioitems.biblionumber)
where
agerestriction > 0
});
@@ -601,7 +602,7 @@ debug 'department_category_author' => $department_category_author;
sub department_html {
- my ( $fh, $department, $type, $label ) = @_;
+ my ( $fh, $department, $type, $label, $csv_fh ) = @_;
print $fh qq|$label
\n|;
@@ -614,10 +615,32 @@ sub department_html {
next unless @biblionumber;
- my $label = $category_label->{$category} || 'Bez kategorije';
- print $fh qq|$label
\n