version 1.17, 2001/12/21 22:45:47
|
version 1.18, 2001/12/27 15:00:45
|
Line 366 sub start_data {
|
Line 366 sub start_data {
|
} |
} |
my $datatext = &Apache::lonxml::get_all_text("/data",$$parser[-1]); |
my $datatext = &Apache::lonxml::get_all_text("/data",$$parser[-1]); |
&Apache::lonxml::warning( |
&Apache::lonxml::warning( |
' Length of data string: '.length($datatext)); |
' Length of data string: '.length($datatext)); |
$datatext =~ s/\s+/ /g; |
$datatext =~ s/\s+/ /g; |
if ($datatext !~ /^(([+-]?\d*\.?\d*)[, ]?)+$/) { |
|
&Apache::lonxml::warning('Malformed data: '.$datatext); |
|
$datatext = ''; |
|
} |
|
# Need to do some error checking on the @data array - |
# Need to do some error checking on the @data array - |
# make sure it's all numbers and make sure each array |
# make sure it's all numbers and make sure each array |
# is of the same length. |
# is of the same length. |