loncom/interface/statistics/lonstathelpers.pm - diff

Return to lonstathelpers.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.14, 2004/06/15 14:26:10	version 1.15, 2004/06/15 14:43:45
Line 262 sub get_prev_curr_next {	Line 262 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 ($granularity eq 'part_survey' && $partdata->{'Survey'}){	if ($partdata->{'Survey'}) {
push (@Resource,	if ($granularity eq 'part_survey'){
{ symb => $res->{symb},	push (@Resource,
part => $part,	{ symb => $res->{symb},
resource => $res,	part => $part,
} );	resource => $res,
	} );
	}
} elsif ($granularity eq 'part') {	} elsif ($granularity eq 'part') {
push (@Resource,	push (@Resource,
{ symb => $res->{symb},	{ symb => $res->{symb},