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

People
Owner: Nobody in particular
Requestors: stauss.berlin [...] gmx.de
Cc:
AdminCc:

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.
From: KWITKNR
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 Perl.org infrastructure.

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