--- loncom/interface/lonnavmaps.pm 2002/03/15 21:40:27 1.29 +++ loncom/interface/lonnavmaps.pm 2002/03/15 21:56:11 1.30 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.29 2002/03/15 21:40:27 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.30 2002/03/15 21:56:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -239,10 +239,10 @@ sub astatus { my $status=$returnhash{'resource.'.$_.'.solved'}; if ($status eq 'correct_by_student') { - if ($code==0) { $code=3; } else { $code=4; } + if ($code==0||$code==3) { $code=3; } else { $code=4; } $ctext.=' solved'; } elsif ($status eq 'correct_by_override') { - if ($code==0) { $code=3; } else { $code=4; } + if ($code==0||$code==3) { $code=3; } else { $code=4; } $ctext.=' override'; } elsif ($status eq 'incorrect_attempted') { if ($code!=4 && $code!=3) { $code=2; } @@ -258,7 +258,7 @@ sub astatus { if ($code==3) { $code=4; } $ctext.=' override'; } elsif ($status eq 'excused') { - if ($code==0) { $code=3; } else { $code=4; } + if ($code==0||$code==3) { $code=3; } else { $code=4; } $ctext.=' excused'; } else { if ($code==0) { $code=1; } @@ -283,7 +283,7 @@ sub tracetable { eq 'sequence') { $tprefix='h'; } else { - # it's a page we need to grab out the problems only + #if it's a page we need to still pull out the problems } if (defined($rows[$sofar])) { $rows[$sofar].='&'.$tprefix.$rid; @@ -603,6 +603,8 @@ sub handler { } if ($code eq '3') { $add=''; + } elsif ($code eq '4') { + $add=''; } else { $add=''; if ($tcode eq '2') { @@ -618,7 +620,7 @@ sub handler { if ($code eq '1') { $hwke=' ('.$ctext.')'; } - if ($code eq '2') { + if ($code eq '2' || $code eq '4') { $hwk=''; $hwke=' ('.$ctext.')'; } @@ -626,10 +628,6 @@ sub handler { $hwk=''; $hwke=' ('.$ctext.')'; } - if ($code eq '4') { - $hwk=''; - $hwke=' ('.$ctext.')'; - } } if ($hash{'src_'.$rid} eq $currenturl) { $add=$add.''.