- my $label = $category_label->{$category} || 'Bez kategorije';
- print $fh qq|<a name="$type-$category"><h3>$label</h3></a>\n<ol>\n|;
+ my $cat_label = $category_label->{$category} || 'Bez kategorije';
+ print $fh qq|<a name="$type-$category"><h3>$cat_label</h3></a>\n<ol>\n|;
+
+ foreach my $bib_num ( @biblionumber ) {
+ my @li = li_biblio( $bib_num );
+ my $li_html = join('', @li);
+ $li_html =~ s{<a name="col-\d+"></a>}{}gs;
+ print $fh $li_html;
+
+ next unless $csv_fh;
+
+ my $year = $li[1];
+ my @html;
+ foreach ( split(/<a name="col-/, $li[4]) ) {
+ if ( s{(\d+)"></a>}{} ) {
+ s{\s+}{ }gs;
+ $html[$1] = $_;
+ } else {
+ warn "SKIPPED: Can't find col in [$_] from $li[4]" unless m/^<[^>]+>$/;
+ }
+ }
+ my $html = join("\t", @html);