| Subject: | 1515 |
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.