version 1.8, 2002/01/03 14:22:58
|
version 1.9, 2002/01/03 14:47:23
|
Line 62 END
|
Line 62 END
|
unless(defined($ENV{'form.encode'}) and length($ENV{'form.encode'})) { |
unless(defined($ENV{'form.encode'}) and length($ENV{'form.encode'})) { |
$ENV{'form.encode'}='***ERROR***UNDEFINED***'; |
$ENV{'form.encode'}='***ERROR***UNDEFINED***'; |
} |
} |
my $text = '*'.$ENV{'form.encode'}.'*'; |
my $text = '*'.uc($ENV{'form.encode'}).'*'; |
my $oGdBar=GD::Barcode::Code39->new($text); |
my $oGdBar=GD::Barcode::Code39->new($text); |
if ($GD::Barcode::errStr or !defined($oGdBar)) { |
if ($GD::Barcode::errStr or !defined($oGdBar)) { |
warn($GD::Barcode::errStr); |
warn($GD::Barcode::errStr); |