version 1.48, 2002/09/05 19:47:29
|
version 1.50, 2002/09/09 17:20:14
|
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; |