--- loncom/cgi/barcode.png 2002/01/03 14:22:58 1.8 +++ loncom/cgi/barcode.png 2002/01/03 14:47:23 1.9 @@ -3,7 +3,7 @@ # The LearningOnline Network with CAPA # barcode.gif - A CGI script that dynamically outputs a barcode. # -# $Id: barcode.png,v 1.8 2002/01/03 14:22:58 matthew Exp $ +# $Id: barcode.png,v 1.9 2002/01/03 14:47:23 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -62,7 +62,7 @@ END unless(defined($ENV{'form.encode'}) and length($ENV{'form.encode'})) { $ENV{'form.encode'}='***ERROR***UNDEFINED***'; } -my $text = '*'.$ENV{'form.encode'}.'*'; +my $text = '*'.uc($ENV{'form.encode'}).'*'; my $oGdBar=GD::Barcode::Code39->new($text); if ($GD::Barcode::errStr or !defined($oGdBar)) { warn($GD::Barcode::errStr);