|
version 1.19, 2004/08/12 12:54:12
|
version 1.20, 2004/08/25 17:23:06
|
|
Line 261 sub get_prev_curr_next {
|
Line 261 sub get_prev_curr_next {
|
| next if ($res->{'type'} ne 'assessment'); |
next if ($res->{'type'} ne 'assessment'); |
| foreach my $part (@{$res->{'parts'}}) { |
foreach my $part (@{$res->{'parts'}}) { |
| my $partdata = $res->{'partdata'}->{$part}; |
my $partdata = $res->{'partdata'}->{$part}; |
| if ($partdata->{'Survey'}) { |
if ($partdata->{'Survey'} && ($granularity eq 'part_survey')){ |
| if ($granularity eq 'part_survey'){ |
push (@Resource, |
| push (@Resource, |
{ symb => $res->{symb}, |
| { symb => $res->{symb}, |
part => $part, |
| part => $part, |
resource => $res, |
| resource => $res, |
} ); |
| } ); |
|
| } |
|
| } elsif ($granularity eq 'part') { |
} elsif ($granularity eq 'part') { |
| push (@Resource, |
push (@Resource, |
| { symb => $res->{symb}, |
{ symb => $res->{symb}, |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonstathelpers.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface / statistics