X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=html.pl;h=e8a959b98f701aa06480bfbf1552073368774813;hb=d3a5d2d0e37c55ea15e119b89e3c4e6173397623;hp=ef041d24777fc9f24f8d5a71ec2a6a983dbe2cc6;hpb=59327403c1ef86af01e67daf50edadc86933d33f;p=koha-bibliografija diff --git a/html.pl b/html.pl index ef041d2..e8a959b 100755 --- a/html.pl +++ b/html.pl @@ -21,7 +21,7 @@ my $dbh = C4::Context->dbh; sub debug { my ($title, $data) = @_; - print "# $title ",dump($data), $/; + print "# $title ",dump($data), $/ if $ENV{DEBUG}; } my $xslfilename = 'compact.xsl'; @@ -90,13 +90,14 @@ my $xslt = XML::LibXSLT->new(); my $parsed = $xslt->parse_stylesheet($style_doc); my $biblio_html; +my $biblio_parsed; open(my $xml_fh, '>', '/tmp/bibliografija.xml') if $ENV{XML}; sub biblioitem_html { - my $biblionumber = shift; + my ($biblionumber, $parse_only) = @_; - return $biblio_html->{$biblionumber} if exists $biblio_html->{$biblionumber}; + return $biblio_html->{$biblionumber} if exists $biblio_html->{$biblionumber} && ! $parse_only; my $xmlrecord = $marcxml->{$biblionumber} || confess "missing $biblionumber marcxml"; @@ -109,10 +110,16 @@ sub biblioitem_html { return; } + if ( $parse_only ) { + $biblio_parsed->{$biblionumber} = $source; + return $source; + } + my $transformed = $parsed->transform($source); $biblio_html->{$biblionumber} = $parsed->output_string( $transformed ); - return ( $biblio_html->{$biblionumber}, $source ) if wantarray; + delete $biblio_parsed->{$biblionumber}; + return $biblio_html->{$biblionumber}; } @@ -124,7 +131,7 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { $marcxml->{ $row->{biblionumber} } = $row->{marcxml}; - my ( undef, $doc ) = biblioitem_html( $row->{biblionumber} ); + my $doc = biblioitem_html( $row->{biblionumber}, 1 ); if ( ! $doc ) { # warn "ERROR can't parse MARCXML ", $row->{biblionumber}, " ", $row->{marcxml}, "\n"; next; @@ -155,7 +162,12 @@ while( my $row = $sth_select_authors->fetchrow_hashref ) { if ($elt->localname eq 'controlfield') { if ( $tag eq '008' ) { - $biblio_year->{ $row->{biblionumber} } = $data->{year} = substr($elt->textContent, 7, 4 ); + my $year = substr($elt->textContent, 7, 4 ); + if ( $year !~ m/^\d+$/ ) { + $year = 0; + push @{ $skip->{invalid_year} }, $row->{biblionumber}; + } + $biblio_year->{ $row->{biblionumber} } = $data->{year} = $year; } next; } elsif ($elt->localname eq 'datafield') { @@ -316,7 +328,7 @@ foreach my $row ( sort { $a->{full_name} cmp $b->{full_name} } @authors ) { print $fh qq|