loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.627.2.7, 2013/08/08 15:40:59	version 1.627.2.8, 2013/08/28 14:31:54
Line 1231 sub is_code_valid {	Line 1231 sub is_code_valid {
my ($code_type, $code_length) = ('letter', 6); # defaults.	my ($code_type, $code_length) = ('letter', 6); # defaults.
my @lines = &Apache::grades::get_scantronformat_file();	my @lines = &Apache::grades::get_scantronformat_file();
foreach my $line (@lines) {	foreach my $line (@lines) {
	next if (($line =~ /^\#/) \|\| ($line eq ''));
my ($name, $type, $length) = (split(/:/, $line))[0,2,4];	my ($name, $type, $length) = (split(/:/, $line))[0,2,4];
if($name eq $code_option) {	if($name eq $code_option) {
$code_length = $length;	$code_length = $length;