From 572203249d2e608aa728f3bd7fed3073e8cdde72 Mon Sep 17 00:00:00 2001 From: Matthias Le Gac Date: Fri, 16 Feb 2024 10:43:18 -0500 Subject: [PATCH] Bug 34157: Exporting labels as a barcode range can cause 500 error MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Tadeusz „tadzik” Sośnierz --- C4/Labels/Label.pm | 8 +++++--- labels/label-create-pdf.pl | 1 + 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index dc77111cf2..cb6f8277b6 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -385,8 +385,11 @@ sub draw_label_text { my $font = $self->{'font'}; my $item = _get_label_item( $self->{'item_number'} ); my $label_fields = _get_text_fields( $self->{'format_string'} ); - my $biblio = Koha::Biblios->find( $item->{biblionumber} ); - my $record = $biblio->metadata->record; + my $biblio = Koha::Biblios->find($item->{'biblionumber'}); + my $record; + if (defined $biblio) { + $record = $biblio->metadata->record; + } # FIXME - returns all items, so you can't get data from an embedded holdings field. # TODO - add a GetMarcBiblio1item(bibnum,itemnum) or a GetMarcItem(itemnum). @@ -408,7 +411,6 @@ LABEL_FIELDS: # process data for requested fields on current label } else { $field->{'data'} = _get_barcode_data( $field->{'code'}, $item, $record ); } - # Find appropriate font it oblique title selected, except main font is oblique if ( ( $field->{'code'} eq 'title' ) and ( $self->{'oblique_title'} == 1 ) ) { if ( $font =~ /^TB$/ ) { diff --git a/labels/label-create-pdf.pl b/labels/label-create-pdf.pl index e6ca44873b..a299d2c6d8 100755 --- a/labels/label-create-pdf.pl +++ b/labels/label-create-pdf.pl @@ -156,6 +156,7 @@ foreach my $item ( @{$items} ) { ), ); $pdf->Add( $label_a->draw_guide_box ) if $layout->get_attr('guidebox'); + print STDERR "label_a: iffffffff"; my $label_a_text = $label_a->create_label(); _print_text($label_a_text); ( $row_count, $col_count, $llx, $lly ) = _calc_next_label_pos( $row_count, $col_count, $llx, $lly ); -- 2.34.1