version 1.49, 2002/09/09 16:40:01
|
version 1.50, 2002/09/09 17:20:14
|
Line 204 sub astatus {
|
Line 204 sub astatus {
|
if (&parmval($part.'.opendate.type',$symb) eq 'date_interval') { |
if (&parmval($part.'.opendate.type',$symb) eq 'date_interval') { |
$opendate{$part}=$duedate{$part}-$opendate{$part}; |
$opendate{$part}=$duedate{$part}-$opendate{$part}; |
} |
} |
if (&parmval($part,'.answerdate.type',$symb) eq 'date_interval') { |
if (&parmval($part.'.answerdate.type',$symb) eq 'date_interval') { |
$answerdate{$part}=$duedate{$part}+$answerdate{$part}; |
$answerdate{$part}=$duedate{$part}+$answerdate{$part}; |
} |
} |
} |
} |