--- loncom/interface/lonprintout.pm 2013/06/05 14:16:18 1.627.2.6 +++ loncom/interface/lonprintout.pm 2013/08/28 14:31:54 1.627.2.8 @@ -1,7 +1,7 @@ # The LearningOnline Network # Printout # -# $Id: lonprintout.pm,v 1.627.2.6 2013/06/05 14:16:18 raeburn Exp $ +# $Id: lonprintout.pm,v 1.627.2.8 2013/08/28 14:31:54 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1231,6 +1231,7 @@ sub is_code_valid { my ($code_type, $code_length) = ('letter', 6); # defaults. my @lines = &Apache::grades::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; @@ -3313,7 +3314,7 @@ ENDPART $moreenv{'CODE'}=&num_to_letters($code); } my $actual_seq = \@master_seq; - if ($randomorder) { + if ($randomorder || $randompick) { $env{'form.CODE'} = $moreenv{'CODE'}; $actual_seq = master_seq_to_person_seq($map, \@master_seq, undef, @@ -4141,13 +4142,13 @@ sub printHelper { my $start_new_option; if ($perm{'pav'}) { $start_new_option = - "