--- loncom/interface/lonprintout.pm 2022/06/11 14:20:41 1.677 +++ loncom/interface/lonprintout.pm 2022/06/11 14:38:27 1.678 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.677 2022/06/11 14:20:41 raeburn Exp $ +# $Id: lonprintout.pm,v 1.678 2022/06/11 14:38:27 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1236,6 +1236,7 @@ sub is_code_valid { my ($code_type, $code_length) = ('letter', 6); # defaults. my @lines = &Apache::lonnet::get_scantronformat_file(); foreach my $line (@lines) { + next if (($line =~ /^\#/) || ($line eq '')); my ($name, $type, $length) = (split(/:/, $line))[0,2,4]; if($name eq $code_option) { $code_length = $length; @@ -3240,6 +3241,7 @@ ENDPART my @lines = &Apache::lonnet::get_scantronformat_file(); my ($code_type,$code_length,$bubbles_per_row)=('letter',6,10); foreach my $line (@lines) { + next if (($line =~ /^\#/) || ($line eq '')); my ($name,$type,$length,$bubbles_per_item) = (split(/:/,$line))[0,2,4,17]; if ($name eq $code_option) {