version 1.175, 2006/08/10 21:07:01
|
version 1.176, 2006/10/06 19:02:20
|
Line 2723 sub get_response_data {
|
Line 2723 sub get_response_data {
|
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
# Clear the \'s from around the submission |
# Clear the \'s from around the submission |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
$dataset->[$i]->[3] =~ s/(\'$|^\')//g; |
$dataset->[$i]->[&RD_submission()] =~ s/(\'$|^\')//g; |
} |
} |
return $dataset; |
return $dataset; |
} |
} |
Line 2784 sub get_response_data_by_student {
|
Line 2784 sub get_response_data_by_student {
|
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
if (ref($dataset) eq 'ARRAY' && scalar(@$dataset)>0) { |
# Clear the \'s from around the submission |
# Clear the \'s from around the submission |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
for (my $i =0;$i<scalar(@$dataset);$i++) { |
$dataset->[$i]->[2] =~ s/(\'$|^\')//g; |
$dataset->[$i]->[&RDs_submission] =~ s/(\'$|^\')//g; |
} |
} |
return $dataset; |
return $dataset; |
} |
} |