Skip Menu |

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

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

Owner: Nobody in particular
Requestors: [...]

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

Subject: 1515
Download (untitled) / with headers
text/plain 878b
my script: my ($s, $sth, $cell); my $id = "1515";# get_param("id"); my $artnr = get_param("artnr"); page_start("", "", "", "/css/common.css", $ud->{"Skin"}); #$s = qq| # select CellName # from adb_artnr_cells # where artnr = $artnr #|; # $sth = $dbh->prepare($s); # $sth->execute(); # $cell = $sth->fetchrow(); # $sth->finish(); # barcode erzeugen #my $bar = GD::Barcode->new('Code39', "*$id*")->plot->png; my $bar = GD::Barcode::Code39->new( "*$id*")->plot->png; die $GD::Barcode::code39::errStr unless $bar; open (FLOG, ">>$barcode"); printf FLOG "$bar"; close (FLOG); `/bin/chmod 644 $barcode`; only by '*1515*' or '*1516*' if no image or image with error all another images are ok.
Why did you use "printf"? Show quoted text
> printf FLOG "$bar";
How about this? print FLOG $bar;

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

Please report any issues with to