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

(-)a/C4/Patroncards/Patroncard.pm (-9 / +8 lines)
Lines 97-104 sub draw_barcode { Link Here
97
    my $barcode_width_scale = $self->{'barcode_width_scale'};
97
    my $barcode_width_scale = $self->{'barcode_width_scale'};
98
98
99
    _draw_barcode(      $self,
99
    _draw_barcode(      $self,
100
                        llx     => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'},
100
                        llx     => $self->{'llx'} + $self->{'layout'}->{'barcode'}->[0]->{'llx'} * $self->{'unitvalue'},
101
                        lly     => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'},
101
                        lly     => $self->{'lly'} + $self->{'layout'}->{'barcode'}->[0]->{'lly'} * $self->{'unitvalue'},
102
                        width   => $self->{'width'} * $barcode_width_scale,
102
                        width   => $self->{'width'} * $barcode_width_scale,
103
                        y_scale_factor  => $self->{'height'} * $barcode_height_scale,
103
                        y_scale_factor  => $self->{'height'} * $barcode_height_scale,
104
                        barcode_type    => $self->{'layout'}->{'barcode'}->[0]->{'type'},
104
                        barcode_type    => $self->{'layout'}->{'barcode'}->[0]->{'type'},
Lines 378-385 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
378
        }
378
        }
379
        eval {
379
        eval {
380
            PDF::Reuse::Barcode::Code39(
380
            PDF::Reuse::Barcode::Code39(
381
                x                   => $params{'llx'} * $self->{'unitvalue'},
381
                x                   => $params{'llx'},
382
                y                   => $params{'lly'} * $self->{'unitvalue'},
382
                y                   => $params{'lly'},
383
                value               => "*$params{barcode_data}*",
383
                value               => "*$params{barcode_data}*",
384
                xSize               => $x_scale_factor,
384
                xSize               => $x_scale_factor,
385
                ySize               => $params{'y_scale_factor'},
385
                ySize               => $params{'y_scale_factor'},
Lines 398-405 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
398
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
398
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
399
        eval {
399
        eval {
400
            PDF::Reuse::Barcode::COOP2of5(
400
            PDF::Reuse::Barcode::COOP2of5(
401
                x                   => $params{'llx'}* $self->{'unitvalue'},
401
                x                   => $params{'llx'},
402
                y                   => $params{'lly'}* $self->{'unitvalue'},
402
                y                   => $params{'lly'},
403
                value               => $params{barcode_data},
403
                value               => $params{barcode_data},
404
                xSize               => $x_scale_factor,
404
                xSize               => $x_scale_factor,
405
                ySize               => $params{'y_scale_factor'},
405
                ySize               => $params{'y_scale_factor'},
Lines 416-423 sub _draw_barcode { # this is cut-and-paste from Label.pm because there is no Link Here
416
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
416
        $x_scale_factor = ($params{'width'} / $tot_bar_length) * 0.9;
417
        eval {
417
        eval {
418
            PDF::Reuse::Barcode::Industrial2of5(
418
            PDF::Reuse::Barcode::Industrial2of5(
419
                x                   => $params{'llx'}* $self->{'unitvalue'} ,
419
                x                   => $params{'llx'},
420
                y                   => $params{'lly'}* $self->{'unitvalue'},
420
                y                   => $params{'lly'},
421
                value               => $params{barcode_data},
421
                value               => $params{barcode_data},
422
                xSize               => $x_scale_factor,
422
                xSize               => $x_scale_factor,
423
                ySize               => $params{'y_scale_factor'},
423
                ySize               => $params{'y_scale_factor'},
424
- 

Return to bug 25459