Return to barcode.png CVS log | Up to [LON-CAPA] / loncom / cgi |
version 1.6, 2001/12/11 20:01:05 | version 1.7, 2001/12/21 14:45:36 |
---|---|
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/+/ /; |