Skip Menu |
 

This queue is for tickets about the GD-Barcode CPAN distribution.

Report information
The Basics
Id: 70988
Status: new
Priority: 0/
Queue: GD-Barcode

People
Owner: Nobody in particular
Requestors: CDRAKE [...] cpan.org
Cc: christopher [...] pobox.com
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)

Attachments


CC: christopher [...] pobox.com
Subject: Feature Suggestion - allow scaling of barcodes
Download (untitled) / with headers
text/plain 634b
It would be nice if EAN13.pm supported the "ModuleSize" paramater, like the QRCode module does. Here is the tested DIFF to impliment such a feature:- *** EAN13.pm.original 2003-05-29 22:07:03.000000000 +0000 --- EAN13.pm.with_ModuleSize 2011-09-15 14:04:07.018203846 +0000 *************** *** 148,151 **** --- 148,156 ---- my($oGd, $cBlack); if($hParam{NoText}) { + if($hParam{ModuleSize}) { # Scale it + my($rc,$c); + while(($c=chop($sPtn)) ne '') {$rc.= $c x $hParam{ModuleSize}} + $sPtn=$rc; + } ($oGd, $cBlack) = GD::Barcode::plot($sPtn, length($sPtn), $iHeight, 0, 0); }
Subject: EAN13_with_ModuleSize.diff
*** EAN13.pm.original 2003-05-29 22:07:03.000000000 +0000 --- EAN13.pm.with_ModuleSize 2011-09-15 14:04:07.018203846 +0000 *************** *** 148,151 **** --- 148,156 ---- my($oGd, $cBlack); if($hParam{NoText}) { + if($hParam{ModuleSize}) { # Scale it + my($rc,$c); + while(($c=chop($sPtn)) ne '') {$rc.= $c x $hParam{ModuleSize}} + $sPtn=$rc; + } ($oGd, $cBlack) = GD::Barcode::plot($sPtn, length($sPtn), $iHeight, 0, 0); }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.