X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=e9194b3d90e278e40c6443d00c34ad00199dbc78;hb=90916f5c0700c5ba54435feacfbe40c1c0a6dffb;hp=b8f041fddbd885c3e145b66113337fde1382b682;hpb=9179d80beebae7b2f9d6fdee92c9a446baa52d64;p=koha-bibliografija diff --git a/html.pl b/html.pl index b8f041f..e9194b3 100755 --- a/html.pl +++ b/html.pl @@ -11,12 +11,30 @@ use autodie; use locale; use Text::Unaccent; use Carp qw(confess); +use utf8; +use JSON; +use POSIX qw(strftime); +use Storable; use lib '/srv/koha_ffzg'; use C4::Context; use XML::LibXML; use XML::LibXSLT; +my $pid_file = '/dev/shm/bibliografija.pid'; +{ + if ( -e $pid_file ) { + open(my $fh, '<', $pid_file); + my $pid = <$fh>; + no autodie; # it will die on kill + kill 0, $pid || die "$0 allready running as pid $pid"; + } + open(my $fh, '>', $pid_file); + print $fh $$; + close($fh); +} + + my $dbh = C4::Context->dbh; sub debug { @@ -26,9 +44,23 @@ sub debug { my $xslfilename = 'compact.xsl'; +my $azvo_group_title = { +'znanstveno nastavni' => qr/(profes|docent|znanstveni savjetnik|znanstveni suradnik)/i, +'lektori i predavači' => qr/(lektor|predavač)/i, +'asistenti i novaci' => qr/(asistent|novak)/i, +}; + +my $department_groups = { +'AAB_humanističke' => qr/(anglistiku|arheologiju|antropologiju|filozofiju|fonetiku|germanistiku|hungarologiju|indologiju|slavenske|filologiju|komparativnu|kroatistiku|lingvistiku|povijest|romanistiku|talijanistiku)/i, +'AAC_društvene' => qr/(informacijske|pedagogiju|psihologiju|sociologiju)/i, +}; + my $auth_header; my $auth_department; +my $auth_group; my @authors; +my $department_in_sum; +my $department_in_group; my $skip; @@ -36,7 +68,8 @@ my $sth_auth = $dbh->prepare(q{ select authid, ExtractValue(marcxml,'//datafield[@tag="100"]/subfield[@code="a"]') as full_name, - ExtractValue(marcxml,'//datafield[@tag="680"]/subfield[@code="a"]') as department + ExtractValue(marcxml,'//datafield[@tag="680"]/subfield[@code="a"]') as department, + ExtractValue(marcxml,'//datafield[@tag="680"]/subfield[@code="i"]') as academic_title from auth_header }); @@ -49,13 +82,45 @@ while( my $row = $sth_auth->fetchrow_hashref ) { $auth_header->{ $row->{authid} } = $row->{full_name}; $row->{department} =~ s/, Filozofski fakultet u Zagrebu.*$//; $row->{department} =~ s/^.+\.\s*//; -# warn dump( $row ); + $row->{department} =~ s/\s+$//s; + my $group; + foreach my $title ( keys %$azvo_group_title ) { + if ( $row->{academic_title} =~ $azvo_group_title->{$title} ) { + $group = $title; + last; + } + } + if ( $group ) { + $row->{academic_group} = $group; + $auth_group->{ $row->{authid} } = $group; + $skip->{group_stat}->{$group}++; + } else { + push @{ $skip->{no_academic_group} }, $row; + } + +# warn "# ", dump( $row ); push @{ $auth_department->{ $row->{department} } }, $row->{authid}; push @authors, $row; + $department_in_sum->{ $row->{department} }++; + foreach my $name ( keys %$department_groups ) { + my $regex = $department_groups->{$name}; + if ( $row->{department} =~ $regex ) { + $department_in_group->{ $row->{department} } = $name; + last; + } + } +} + +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; } 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; my $authors; @@ -63,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 }); @@ -81,6 +147,7 @@ where =cut my $biblio_year; +my $biblio_full_name; my $type_stats; my $parser = XML::LibXML->new(); @@ -91,6 +158,8 @@ my $parsed = $xslt->parse_stylesheet($style_doc); my $biblio_html; my $biblio_parsed; +my $biblio_data; +my $biblio_author_external; open(my $xml_fh, '>', '/tmp/bibliografija.xml') if $ENV{XML}; @@ -148,9 +217,11 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { my $extract = { '008' => undef, - '100' => '9', - '700' => '(9|4)', - '942' => 't' + '100' => '(9|a)', + '245' => 'a', + '680' => 'i', + '700' => '(9|4|a)', + '942' => '(t|r|v)' }; my $data; @@ -162,12 +233,14 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { if ($elt->localname eq 'controlfield') { if ( $tag eq '008' ) { - my $year = substr($elt->textContent, 7, 4 ); + my $content = $elt->textContent; + my $year = substr($content, 7, 4 ); if ( $year !~ m/^\d+$/ ) { $year = 0; push @{ $skip->{invalid_year} }, $row->{biblionumber}; } $biblio_year->{ $row->{biblionumber} } = $data->{year} = $year; + $data->{'008'} = $content; } next; } elsif ($elt->localname eq 'datafield') { @@ -182,15 +255,19 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { } } push @{ $data->{$tag} }, $sf_data if $sf_data; - } - } + } + } - if ( $data->{year} < 2008 ) { + if ( ! defined $data->{year} ) { + warn "MISSING year in ", $row->{biblionumber}; +=for remove-year-limit + } elsif ( $data->{year} < 2008 ) { push @{ $skip->{year_lt_2008} }, $row->{biblionumber}; next; } elsif ( $data->{year} > 2013 ) { push @{ $skip->{year_gt_2013} }, $row->{biblionumber}; next; +=cut } # warn "# ", $row->{biblionumber}, " data ",dump($data); @@ -202,54 +279,97 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { next; } - my $have_100 = 1; if ( exists $data->{100} ) { - my @first_author = map { $_->{'9'} } @{ $data->{100} }; + my @first_author = + map { $_->{'9'} } + grep { + if ( ! exists $_->{9} ) { + $biblio_author_external->{ $row->{biblionumber} }++; + 0; + } elsif ( exists $auth_header->{ $_->{9} } ) { + 1; # from FFZXG + } else { + 0; + } + } + @{ $data->{100} }; 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} ) { - foreach my $auth ( @{ $data->{700} } ) { + my @other_authors = + grep { + if ( ! exists $_->{9} ) { + $biblio_author_external->{ $row->{biblionumber} }++; + 0; + } elsif ( exists $auth_header->{ $_->{9} } ) { + 1; # from FFZXG + } else { + 0; + } + } + @{ $data->{700} }; + foreach my $auth ( @other_authors ) { my $authid = $auth->{9} || next; my $type = $auth->{4} || next; #die "no 4 in ",dump($data); $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 ) { + my $type = substr($type,0,3); + $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}; } + $biblio_data->{ $row->{biblionumber} } = $data; + } 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; my $category_label; my $sth_categories = $dbh->prepare(q{ @@ -268,13 +388,18 @@ sub html_title { |, join(" ", @_), qq| + + |; } sub html_end { - return qq|\nZadnji puta osvježeno: |, + strftime("%Y-%m-%d %H:%M:%S\n", localtime()), + qq|\n\n|; } mkdir 'html' unless -d 'html'; @@ -288,30 +413,138 @@ debug 'authors' => \@authors; sub li_biblio { my ($biblionumber) = @_; - return qq|
  • |, + return qq|
  • |, qq|$biblionumber|, biblioitem_html($biblionumber), qq|edit|, qq|
    • \n|; } +sub unique { + my $unique; + $unique->{$_}++ foreach @_; + return keys %$unique; +} + +sub unique_biblionumber { + my @v = unique @_; + return sort { + $biblio_year->{$b} <=> $biblio_year->{$a} || + $biblio_full_name->{$a} cmp $biblio_full_name->{$b} || + $a <=> $b + } @v; +} + 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|; + } +} + +my @toc_type_label = ( +'aut' => 'Primarno autorstvo', +'edt' => 'UredniÅ¡tva', +'trl' => 'Prijevodi', +'_ostalo' => 'Ostalo', +); + + +sub count_author_years { + my $years = shift; + my ($authid) = @_; + foreach my $type ( keys %{ $authors->{$authid} } ) { +# next if $type =~ m/^_/; # FIXME + foreach my $category ( keys %{ $authors->{$authid}->{$type} } ) { + foreach my $biblionumber ( unique_biblionumber @{ $authors->{$authid}->{$type}->{$category} } ) { + $years->{ $biblio_year->{ $biblionumber } }->{ $type . '-' . $category }->{ $biblionumber }++; + } + } + } + return $years; +} + +sub html_year_selection { + my $fh = shift; + my @authids = unique @_; + + debug 'html_year_selection authids=', [ @authids ]; + + print $fh qq|Godine:\n|; + my $type_cat_count = {}; + my $years; + + foreach my $authid ( @authids ) { + $years = count_author_years( $years, $authid ); + } + + debug 'years' => $years; + + foreach my $year ( sort { $b <=> $a } keys %$years ) { + print $fh qq| \n|; + foreach my $type_cat ( keys %{ $years->{$year} } ) { + my $count = scalar keys %{ $years->{$year}->{$type_cat} }; + $years->{$year}->{$type_cat} = $count; # remove biblionumbers and use count + $type_cat_count->{ $type_cat } += $count; + my ($type,$cat) = split(/-/, $type_cat); + $type_cat_count->{_toc}->{$type}->{$cat}++; + $type_cat_count->{_toc_count}->{$type} += $count; + } } + + print $fh qq| + + + |; + + print $fh qq||; + + print $fh q| + + + |; + + debug 'type_cat_count' => $type_cat_count; + + # TOC + print $fh qq|\n|; + } +my $authid_fullname; + foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) { my $first = substr( $row->{full_name}, 0, 1 ); @@ -322,13 +555,21 @@ foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) { } print $index qq{
  • }, $row->{full_name}, "
    • \n"; + $authid_fullname->{ $row->{authid} } = $row->{full_name}; + my $path = "html/$row->{authid}"; open(my $fh, '>:encoding(utf-8)', "$path.new"); print $fh html_title($row->{full_name}, "bibliografija"); - print $fh qq|

    $row->{full_name} - bibliografija za razdoblje 2008-2013

    |; + print $fh qq|

    $row->{full_name} - bibliografija

    \n|; + + 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); @@ -342,111 +583,339 @@ rename 'html/index.new', 'html/index.html'; debug 'auth_header' => $auth_header; +debug 'authid_fullname' => $authid_fullname; my $department_category_author; foreach my $department ( sort keys %$auth_department ) { foreach my $authid ( sort @{ $auth_department->{$department} } ) { my @categories = keys %{ $authors->{$authid}->{aut} }; - push @categories, keys %{ $authors->{$authid}->{sec} }; + push @categories, keys %{ $authors->{$authid}->{__sec} }; foreach my $category ( sort @categories ) { push @{ $department_category_author->{$department}->{$category} }, $authid; + push @{ $department_category_author->{'AAA_ukupno'}->{$category} }, $authid if $department_in_sum->{$department}; + if ( my $group = $department_in_group->{ $department } ) { + push @{ $department_category_author->{$group}->{$category} }, $authid; + } else { + $skip->{'department_not_in_group'}->{ $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; -} +sub department_html { + my ( $fh, $department, $type, $label, $csv_fh ) = @_; -open(my $dep_fh, '>:encoding(utf-8)', 'html/departments/index.new'); -print $dep_fh html_title('Odsijeci Filozofskog fakulteta u Zagrebu'), qq|