X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=8467a5591c30bf55389836ce4701a9257162a7f0;hb=18d433ab44358cf0393da0f95754d3f17d669013;hp=ac4aeb3d047bbfa968a7895cae07dc453a36dde6;hpb=7e31766306311ff51ff691ea631ccd9a5a126138;p=koha-bibliografija diff --git a/html.pl b/html.pl index ac4aeb3..8467a55 100755 --- a/html.pl +++ b/html.pl @@ -21,6 +21,20 @@ 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 { @@ -100,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; @@ -311,13 +325,14 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { $type_stats->{$type}++; - my @types = split(/\s+/, $type); + 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}->{__sec}->{ $category } }, $row->{biblionumber}; push @{ $authors->{$authid}->{$type}->{ $category } }, $row->{biblionumber}; $type =~ s/(com|ctb)/_ostalo/; push @{ $authors->{$authid}->{$type}->{ $category } }, $row->{biblionumber}; @@ -373,6 +388,7 @@ sub html_title { |, join(" ", @_), qq| + |; @@ -403,15 +419,19 @@ sub li_biblio { qq|\n|; } +sub unique { + my $unique; + $unique->{$_}++ foreach @_; + return keys %$unique; +} + sub unique_biblionumber { - my @v = @_; - my $u; - $u->{$_}++ foreach @v; + my @v = unique @_; return sort { $biblio_year->{$b} <=> $biblio_year->{$a} || $biblio_full_name->{$a} cmp $biblio_full_name->{$b} || $a <=> $b - } keys %$u; + } @v; } sub author_html { @@ -431,30 +451,33 @@ sub author_html { } } +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 ( @{ $authors->{$authid}->{$type}->{$category} } ) { - $years->{ $biblio_year->{ $biblionumber } }->{ $type . '-' . $category }++; + foreach my $biblionumber ( unique_biblionumber @{ $authors->{$authid}->{$type}->{$category} } ) { + $years->{ $biblio_year->{ $biblionumber } }->{ $type . '-' . $category }->{ $biblionumber }++; } } } 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 = @_; + my @authids = unique @_; + + debug 'html_year_selection authids=', [ @authids ]; print $fh qq|Godine:\n|; my $type_cat_count = {}; @@ -464,13 +487,17 @@ sub html_year_selection { $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} } ) { - $type_cat_count->{ $type_cat } += $years->{$year}->{$type_cat}; + 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} += $years->{$year}->{$type_cat}; + $type_cat_count->{_toc_count}->{$type} += $count; } } @@ -488,68 +515,12 @@ var years = |, encode_json($years), q|; var type_cat_count = |, encode_json($type_cat_count), q|; -function year_show(year) { - $('.y'+year).show(); - console.debug('show', year); - for(var type_cat in years[year]) { - if ( ( type_cat_count[ type_cat ] += years[year][type_cat] ) == years[year][type_cat]) { - $('a[name="'+type_cat+'"]').show(); - console.debug(type_cat, 'show'); - } - $('#toc-count-'+type_cat.replace('.','-')).text( type_cat_count[ type_cat ] ); - } -} - -function year_hide(year) { - $('.y'+year).hide(); - console.debug('hide', year); - for(var type_cat in years[year]) { - if ( ( type_cat_count[ type_cat ] -= years[year][type_cat] ) == 0 ) { - $('a[name="'+type_cat+'"]').hide(); - console.debug(type_cat, 'hide'); - } - $('#toc-count-'+type_cat.replace('.','-')).text( type_cat_count[ type_cat ] ); - } -} - -function toggle_year(year, el) { - if ( el.checked ) { - year_show(year); - } else { - year_hide(year); - } -} - -function all_years( turn_on ) { - $('input[name=year_selection]').each( function(i,el) { - if ( turn_on ) { - if ( ! el.checked ) { - el.checked = true; - year_show( el.value ); - } - } else { - if ( el.checked ) { - el.checked = false; - year_hide( el.value ); - } - } - } ); -} - -$(document).ready( function() { - console.info('ready'); - - $('input[name=year_selection]').each( function(i, el) { - var year = el.value; - console.debug( 'on load', year, el.checked ); - if (! el.checked) year_hide(year); - }); - -}); |; + debug 'type_cat_count' => $type_cat_count; + # TOC print $fh qq|