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

(-)a/C4/Patroncards/Patroncard.pm (-9 / +8 lines)
Lines 93-100 sub draw_barcode { Link Here
93
    my $barcode_width_scale = $self->{'barcode_width_scale'};
93
    my $barcode_width_scale = $self->{'barcode_width_scale'};
94
94
95
    _draw_barcode(      $self,
95
    _draw_barcode(      $self,
96
                        llx     => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'},
96
                        llx     => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'} * $self->{'unitvalue'},
97
                        lly     => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'},
97
                        lly     => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'} * $self->{'unitvalue'},
98
                        width   => $self->{'width'} * $barcode_width_scale,
98
                        width   => $self->{'width'} * $barcode_width_scale,
99
                        y_scale_factor  => $self->{'height'} * $barcode_height_scale,
99
                        y_scale_factor  => $self->{'height'} * $barcode_height_scale,
100
                        barcode_type    => $self->{'layout'}->{'barcode'}->[0]->{'type'},
100
                        barcode_type    => $self->{'layout'}->{'barcode'}->[0]->{'type'},
Lines 373-380 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
373
        }
373
        }
374
        eval {
374
        eval {
375
            PDF::Reuse::Barcode::Code39(
375
            PDF::Reuse::Barcode::Code39(
376
                x                   => $params{'llx'} * $self->{'unitvalue'},
376
                x                   => $params{'llx'},
377
                y                   => $params{'lly'} * $self->{'unitvalue'},
377
                y                   => $params{'lly'},
378
                value               => "*$params{barcode_data}*",
378
                value               => "*$params{barcode_data}*",
379
                xSize               => $x_scale_factor,
379
                xSize               => $x_scale_factor,
380
                ySize               => $params{'y_scale_factor'},
380
                ySize               => $params{'y_scale_factor'},
Lines 393-400 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
393
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
393
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
394
        eval {
394
        eval {
395
            PDF::Reuse::Barcode::COOP2of5(
395
            PDF::Reuse::Barcode::COOP2of5(
396
                x                   => $params{'llx'}* $self->{'unitvalue'},
396
                x                   => $params{'llx'},
397
                y                   => $params{'lly'}* $self->{'unitvalue'},
397
                y                   => $params{'lly'},
398
                value               => $params{barcode_data},
398
                value               => $params{barcode_data},
399
                xSize               => $x_scale_factor,
399
                xSize               => $x_scale_factor,
400
                ySize               => $params{'y_scale_factor'},
400
                ySize               => $params{'y_scale_factor'},
Lines 411-418 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
411
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
411
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
412
        eval {
412
        eval {
413
            PDF::Reuse::Barcode::Industrial2of5(
413
            PDF::Reuse::Barcode::Industrial2of5(
414
                x                   => $params{'llx'}* $self->{'unitvalue'} ,
414
                x                   => $params{'llx'},
415
                y                   => $params{'lly'}* $self->{'unitvalue'},
415
                y                   => $params{'lly'},
416
                value               => $params{barcode_data},
416
                value               => $params{barcode_data},
417
                xSize               => $x_scale_factor,
417
                xSize               => $x_scale_factor,
418
                ySize               => $params{'y_scale_factor'},
418
                ySize               => $params{'y_scale_factor'},
419
- 

Return to bug 25459