projects
/
koha-bibliografija
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
c0f0e1e
)
added category labels
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 17 Nov 2013 21:27:44 +0000
(22:27 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 17 Nov 2013 21:27:44 +0000
(22:27 +0100)
html.pl
patch
|
blob
|
history
diff --git
a/html.pl
b/html.pl
index
725da92
..
ca22592
100755
(executable)
--- a/
html.pl
+++ b/
html.pl
@@
-61,6
+61,17
@@
while( my $row = $sth_auth->fetchrow_hashref ) {
}
}
+my $category_label;
+my $sth_categories = $dbh->prepare(q{
+select authorised_value, lib from authorised_values where category = 'BIBCAT'
+});
+$sth_categories->execute();
+while( my $row = $sth_categories->fetchrow_hashref ) {
+ $category_label->{ $row->{authorised_value} } = $row->{lib};
+
+}
+warn dump( $category_label );
+
sub html_title {
return qq|<html>
<head>
sub html_title {
return qq|<html>
<head>
@@
-119,7
+130,8
@@
foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) {
open(my $fh, '>:encoding(utf-8)', "html/$row->{authid}.html");
print $fh html_title($row->{full_name}, "bibliografija");
foreach my $category ( sort keys %{ $authors->{ $row->{authid} } } ) {
open(my $fh, '>:encoding(utf-8)', "html/$row->{authid}.html");
print $fh html_title($row->{full_name}, "bibliografija");
foreach my $category ( sort keys %{ $authors->{ $row->{authid} } } ) {
- print $fh qq|<h1>$category</h1>\n<ul>\n|;
+ my $label = $category_label->{$category} || 'Bez kategorije';
+ print $fh qq|<h1>$label</h1>\n<ul>\n|;
foreach my $biblionumber ( @{ $authors->{ $row->{authid} }->{$category} } ) {
print $fh qq|<li><a href="https://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$biblionumber</a>|, biblioitem_html($biblionumber), qq|</li>\n|;
}
foreach my $biblionumber ( @{ $authors->{ $row->{authid} }->{$category} } ) {
print $fh qq|<li><a href="https://koha.ffzg.hr/cgi-bin/koha/opac-detail.pl?biblionumber=$biblionumber">$biblionumber</a>|, biblioitem_html($biblionumber), qq|</li>\n|;
}