X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=ac4aeb3d047bbfa968a7895cae07dc453a36dde6;hb=7e31766306311ff51ff691ea631ccd9a5a126138;hp=ee4970331ed279f3f1883668b4a7e2de113929a5;hpb=df7f21629079e538e9b0ce02c30fd4013bf38c17;p=koha-bibliografija diff --git a/html.pl b/html.pl index ee49703..ac4aeb3 100755 --- a/html.pl +++ b/html.pl @@ -14,6 +14,7 @@ use Carp qw(confess); use utf8; use JSON; use POSIX qw(strftime); +use Storable; use lib '/srv/koha_ffzg'; use C4::Context; @@ -103,6 +104,7 @@ foreach my $department ( keys %$department_in_sum ) { } debug 'auth_department' => $auth_department; +store $auth_department, '/dev/shm/auth_department.storable'; debug 'auth_group' => $auth_group; debug 'department_in_sum' => $department_in_sum; @@ -130,6 +132,7 @@ where =cut my $biblio_year; +my $biblio_full_name; my $type_stats; my $parser = XML::LibXML->new(); @@ -200,6 +203,7 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { my $extract = { '008' => undef, '100' => '(9|a)', + '245' => 'a', '680' => 'i', '700' => '(9|4|a)', '942' => '(t|r|v)' @@ -279,10 +283,13 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { foreach my $authid ( @first_author ) { push @{ $authors->{$authid}->{aut}->{ $category } }, $row->{biblionumber}; } + $biblio_full_name->{ $row->{biblionumber} } = $data->{100}->[0]->{a}; } else { $have_100 = 0; } + $biblio_full_name->{ $row->{biblionumber} } ||= $data->{245}->[0]->{a}; + my $have_edt; if ( exists $data->{700} ) { @@ -304,23 +311,32 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { $type_stats->{$type}++; - if ( $type =~ m/(edt|trl|com|ctb)/ ) { - push @{ $authors->{$authid}->{sec}->{ $category } }, $row->{biblionumber}; - push @{ $authors->{$authid}->{$1}->{ $category } }, $row->{biblionumber}; - } elsif ( $type =~ m/aut/ ) { - if ( ! $have_100 ) { - $have_edt = grep { exists $_->{4} && $_->{4} =~ m/edt/ } @{ $data->{700} } if ! defined $have_edt; - if ( $have_edt ) { - $skip->{ have_700_edt }->{ $row->{biblionumber} }++; + my @types = split(/\s+/, $type); + + foreach my $type ( @types ) { + $type_stats->{_count_each_type}->{$type}++; + + if ( $type =~ m/(edt|trl|com|ctb)/ ) { + push @{ $authors->{$authid}->{sec}->{ $category } }, $row->{biblionumber}; + push @{ $authors->{$authid}->{$type}->{ $category } }, $row->{biblionumber}; + $type =~ s/(com|ctb)/_ostalo/; + push @{ $authors->{$authid}->{$type}->{ $category } }, $row->{biblionumber}; + + } elsif ( $type =~ m/aut/ ) { + if ( ! $have_100 ) { + $have_edt = grep { exists $_->{4} && $_->{4} =~ m/edt/ } @{ $data->{700} } if ! defined $have_edt; + if ( $have_edt ) { + $skip->{ have_700_edt }->{ $row->{biblionumber} }++; + } else { + push @{ $authors->{$authid}->{aut}->{ $category } }, $row->{biblionumber}; + } } else { push @{ $authors->{$authid}->{aut}->{ $category } }, $row->{biblionumber}; } } else { - push @{ $authors->{$authid}->{aut}->{ $category } }, $row->{biblionumber}; +# warn "# SKIP ", $row->{biblionumber}, ' no 700$4 in ', dump($data); + $skip->{ 'no_700$4' }->{ $row->{biblionumber} }++; } - } else { -# warn "# SKIP ", $row->{biblionumber}, ' no 700$4 in ', dump($data); - $skip->{ 'no_700$4' }->{ $row->{biblionumber} }++; } } delete $data->{700}; @@ -331,9 +347,11 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { } debug 'authors' => $authors; +store $authors, '/dev/shm/authors.storable'; debug 'type_stats' => $type_stats; debug 'skip' => $skip; debug 'biblio_year' => $biblio_year; +debug 'biblio_full_name' => $biblio_full_name; debug 'biblio_data' => $biblio_data; debug 'biblio_author_external' => $biblio_author_external; @@ -385,25 +403,35 @@ sub li_biblio { qq|\n|; } +sub unique_biblionumber { + my @v = @_; + my $u; + $u->{$_}++ foreach @v; + return sort { + $biblio_year->{$b} <=> $biblio_year->{$a} || + $biblio_full_name->{$a} cmp $biblio_full_name->{$b} || + $a <=> $b + } keys %$u; +} + sub author_html { my ( $fh, $authid, $type, $label ) = @_; return unless exists $authors->{$authid}->{$type}; - print $fh qq|

$label

\n|; + print $fh qq|

$label

\n|; foreach my $category ( sort keys %{ $authors->{$authid}->{$type} } ) { my $label = $category_label->{$category} || 'Bez kategorije'; - print $fh qq|

$label

\n\n|; + print $fh qq|\n|; } } + sub count_author_years { my $years = shift; my ($authid) = @_; @@ -417,6 +445,13 @@ sub count_author_years { return $years; } +my @toc_type_label = ( +'aut' => 'Primarno autorstvo', +'edt' => 'UredniÅ¡tva', +'trl' => 'Prijevodi', +'_ostalo' => 'Ostalo', +); + sub html_year_selection { my $fh = shift; my @authids = @_; @@ -433,6 +468,9 @@ sub html_year_selection { print $fh qq| \n|; foreach my $type_cat ( keys %{ $years->{$year} } ) { $type_cat_count->{ $type_cat } += $years->{$year}->{$type_cat}; + my ($type,$cat) = split(/-/, $type_cat); + $type_cat_count->{_toc}->{$type}->{$cat}++; + $type_cat_count->{_toc_count}->{$type} += $years->{$year}->{$type_cat}; } } @@ -458,6 +496,7 @@ function year_show(year) { $('a[name="'+type_cat+'"]').show(); console.debug(type_cat, 'show'); } + $('#toc-count-'+type_cat.replace('.','-')).text( type_cat_count[ type_cat ] ); } } @@ -469,6 +508,7 @@ function year_hide(year) { $('a[name="'+type_cat+'"]').hide(); console.debug(type_cat, 'hide'); } + $('#toc-count-'+type_cat.replace('.','-')).text( type_cat_count[ type_cat ] ); } } @@ -507,9 +547,31 @@ $(document).ready( function() { }); + |; + + # TOC + print $fh qq|\n|; + } + foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) { my $first = substr( $row->{full_name}, 0, 1 ); @@ -527,8 +589,12 @@ foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) { html_year_selection $fh => $row->{authid}; - author_html( $fh, $row->{authid}, 'aut' => 'Primarno autorstvo' ); - author_html( $fh, $row->{authid}, 'sec' => 'UredniÅ¡tva, prijevodi, krička izdanja' ); + my $i = 0; + while ( $i < $#toc_type_label ) { + my $type = $toc_type_label[$i++] || die "type"; + my $label = $toc_type_label[$i++] || die "label"; + author_html( $fh, $row->{authid}, $type => $label ); + } print $fh html_end; close($fh); @@ -562,67 +628,57 @@ foreach my $department ( sort keys %$auth_department ) { debug 'department_category_author' => $department_category_author; -mkdir 'html/departments' unless -d 'html/departments'; - -sub unique_biblionumber { - my @v = @_; - my $u; - $u->{$_}++ foreach @v; - return sort { $biblio_year->{$b} <=> $biblio_year->{$a} || $a <=> $b } keys %$u; -} - -open(my $dep_fh, '>:encoding(utf-8)', 'html/departments/index.new'); -print $dep_fh html_title('Odsijeci Filozofskog fakulteta u Zagrebu'), qq|