loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.386, 2005/08/16 10:25:15	version 1.387, 2005/08/22 09:48:25
Line 87 sub letters_to_num {	Line 87 sub letters_to_num {
sub is_valid_numeric_code {	sub is_valid_numeric_code {
my ($value, $num_digits) = @_;	my ($value, $num_digits) = @_;
# Remove leading/trailing whitespace;	# Remove leading/trailing whitespace;
$value =~ s/^\s*//;	$value =~ s/^\s*//g;
$value =~ s/\s*$//;	$value =~ s/\s*$//g;

# All digits?	# All digits?
if ($value =~ /^[0-9]+$/) {	if ($value !~ /^[0-9]+$/) {
return "Numeric code $value has invalid characters - must only be digits";	return "Numeric code $value has invalid characters - must only be digits";
}	}
if (length($value) != $num_digits) {	if (length($value) != $num_digits) {
Line 1386 ENDPART	Line 1386 ENDPART
$num_todo=scalar(@allcodes);	$num_todo=scalar(@allcodes);
} elsif ($single_code) {	} elsif ($single_code) {

	$num_todo = 1; # Unconditionally one code to do.
# If an alpha code have to convert to numbers so it can be	# If an alpha code have to convert to numbers so it can be
# converted back to letters again :-)	# converted back to letters again :-)
#	#
if ($code_type ne 'number') {	if ($code_type ne 'number') {
$single_code = &letters_to_num($single_code);	$single_code = &letters_to_num($single_code);
$num_todo = 1;
}	}
@allcodes = ($single_code);	@allcodes = ($single_code);
} else {	} else {