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

(-)a/svc/barcode (-1 / +5 lines)
Lines 106-111 my $height = $input->param('height') || 50; Link Here
106 
my $qrcode_modulesize = $input->param('modulesize') || "5"; # 1+
 106 
my $qrcode_modulesize = $input->param('modulesize') || "5"; # 1+
107 
my $image;
 107 
my $image;
108 

          108
          

        

            

              
              
              109
              
if ($type eq 'Code39'){

            

            

              110
              
    $barcode = '*' . $barcode unless $barcode =~ /^\*/;

            

            

              111
              
    $barcode = $barcode . '*' unless $barcode =~ /\*$/;

            

            

              112
              
}

            

            

              113
              

            

        

          109
          
eval {

          114
          
eval {

        

        

          110
          
    if( $type eq "QRcode" ){

          115
          
    if( $type eq "QRcode" ){

        

        

          111
          
        $image = GD::Barcode->new('QRcode', $barcode, { Ecc => "M", ModuleSize => $qrcode_modulesize } )->plot->png();

          116
          
        $image = GD::Barcode->new('QRcode', $barcode, { Ecc => "M", ModuleSize => $qrcode_modulesize } )->plot->png();

        

            

              112
              
- 

              
              
            






  

  Return to bug 34732