version 1.83, 2004/02/06 19:29:00
|
version 1.84, 2004/02/10 16:47:25
|
Line 1016 END
|
Line 1016 END
|
# Put the names of the problems and parts into the sheet |
# Put the names of the problems and parts into the sheet |
my $count = 0; |
my $count = 0; |
foreach my $res (@{$seq->{'contents'}}) { |
foreach my $res (@{$seq->{'contents'}}) { |
next if ($res->{'type'} ne 'assessment'); |
if ($res->{'type'} ne 'assessment' || |
|
! exists($res->{'parts'}) || |
|
ref($res->{'parts'}) ne 'ARRAY' || |
|
scalar(@{$res->{'parts'}}) < 1) { |
|
next; |
|
} |
if (scalar(@{$res->{'parts'}}) > 1) { |
if (scalar(@{$res->{'parts'}}) > 1) { |
foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
$excel_sheet->write($rows_output, |
$excel_sheet->write($rows_output, |