loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.48, 2002/09/05 19:47:29	version 1.49, 2002/09/09 16:40:01
Line 195 sub astatus {	Line 195 sub astatus {
my %opendate=();	my %opendate=();
my %answerdate=();	my %answerdate=();
# need to always check part 0's open/due/answer status	# need to always check part 0's open/due/answer status
foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'keys')))) {	foreach (sort(split(/\,/,&Apache::lonnet::metadata($hash{'src_'.$rid},'allpossiblekeys')))) {
if ($_=~/^parameter\_(.*)\_opendate$/) {	if ($_=~/^parameter\_(.*)\_opendate$/) {
my $part=$1;	my $part=$1;
$duedate{$part}=&parmval($part.'.duedate',$symb);	$duedate{$part}=&parmval($part.'.duedate',$symb);
$opendate{$part}=&parmval($part.'.opendate',$symb);	$opendate{$part}=&parmval($part.'.opendate',$symb);
$answerdate{$part}=&parmval($part.'.answerdate',$symb);	$answerdate{$part}=&parmval($part.'.answerdate',$symb);
	if (&parmval($part.'.opendate.type',$symb) eq 'date_interval') {
	$opendate{$part}=$duedate{$part}-$opendate{$part};
	}
	if (&parmval($part,'.answerdate.type',$symb) eq 'date_interval') {
	$answerdate{$part}=$duedate{$part}+$answerdate{$part};
	}
}	}
}	}
my $now=time;	my $now=time;