version 1.6, 2004/03/08 19:12:18
|
version 1.7, 2004/03/12 21:05:08
|
Line 644 sub get_problem_data {
|
Line 644 sub get_problem_data {
|
while (my($key,$value) = each(%Answer)) { |
while (my($key,$value) = each(%Answer)) { |
# |
# |
# Logging code: |
# Logging code: |
if (1) { |
if (0) { |
&Apache::lonnet::logthis($part.' got key "'.$key.'"'); |
&Apache::lonnet::logthis($part.' got key "'.$key.'"'); |
if (ref($value) eq 'ARRAY') { |
if (ref($value) eq 'ARRAY') { |
&Apache::lonnet::logthis(' @'.join(',',@$value)); |
&Apache::lonnet::logthis(' @'.join(',',@$value)); |