|
version 1.6, 2001/12/11 20:01:05
|
version 1.8, 2002/01/03 14:22:58
|
|
Line 43
|
Line 43
|
| use strict; |
use strict; |
| use GD::Barcode::Code39; |
use GD::Barcode::Code39; |
| |
|
| |
$|=1; # Autoflush after each print/write |
| foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
| my ($name, $value) = split(/=/,$_); |
my ($name, $value) = split(/=/,$_); |
| $value =~ tr/+/ /; |
$value =~ tr/+/ /; |
|
Line 61 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 $oGdBar=GD::Barcode::Code39->new($ENV{'form.encode'}); |
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); |
| $oGdBar=GD::Barcode::Code39->new('***ERROR***INVALID***'); |
$oGdBar=GD::Barcode::Code39->new('***ERROR***INVALID***'); |
![[BACK]](/cgi-bin/cvsweb.cgi/loncom/cgi/barcode.png?f=h#rev1.8){kind=small}
Return to barcode.png CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / cgi
