View | Details | Raw Unified | Return to bug 34532
Collapse All | Expand All

(-)a/C4/Patroncards/Patroncard.pm (-3 / +2 lines)
Lines 103-109 sub draw_barcode { Link Here
103
    _draw_barcode(
103
    _draw_barcode(
104
        $self,
104
        $self,
105
        llx            => $llx + $llx_layout * $self->{'unitvalue'},
105
        llx            => $llx + $llx_layout * $self->{'unitvalue'},
106
        lly            => $llx + $llx_layout * $self->{'unitvalue'},
106
        lly            => $lly + $lly_layout * $self->{'unitvalue'},
107
        width          => $self->{'width'} * $barcode_width_scale,
107
        width          => $self->{'width'} * $barcode_width_scale,
108
        y_scale_factor => $self->{'height'} * $barcode_height_scale,
108
        y_scale_factor => $self->{'height'} * $barcode_height_scale,
109
        barcode_type   => $self->{'layout'}->{'barcode'}->[0]->{'type'},
109
        barcode_type   => $self->{'layout'}->{'barcode'}->[0]->{'type'},
Lines 249-255 sub draw_text { Link Here
249
        my $text_attribs  = shift @$text;
249
        my $text_attribs  = shift @$text;
250
        my $llx           = $self->{'llx'} || 0;
250
        my $llx           = $self->{'llx'} || 0;
251
        my $llx_text_attr = $text_attribs->{'llx'} || 0;
251
        my $llx_text_attr = $text_attribs->{'llx'} || 0;
252
        my $lly           = $self->{'llx'} || 0;
252
        my $lly           = $self->{'lly'} || 0;
253
        my $lly_text_attr = $text_attribs->{'lly'} || 0;
253
        my $lly_text_attr = $text_attribs->{'lly'} || 0;
254
254
255
        my $origin_llx = $llx + $llx_text_attr * $self->{'unitvalue'};
255
        my $origin_llx = $llx + $llx_text_attr * $self->{'unitvalue'};
256
- 

Return to bug 34532