--- loncom/homework/inputtags.pm 2001/06/27 18:51:37 1.36
+++ loncom/homework/inputtags.pm 2001/07/12 19:27:48 1.37
@@ -158,9 +158,22 @@ sub decideoutput {
my ($award,$solved)=@_;
my $message='';
my $button=0;
- if ($solved =~ /^correct/ || $award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) {
- $message = "You are correct. Your receipt is ".&Apache::lonnet::receipt;
+ if ($solved =~ /^correct/) {
+ $message = "You are correct. Your receipt is ".
+ &Apache::lonnet::receipt;
$button=0;
+ } elsif ($solved =~ /^excused/) {
+ $message = "You are excused from the problem.";
+ $button=0;
+ } elsif ($award eq 'EXACT_ANS' || $award eq 'APPROX_ANS' ) {
+ if ($solved =~ /^incorrect/ || $solved eq '') {
+ $message = "Incorrect";
+ $button=1;
+ } else {
+ $message = "You are correct. Your receipt is ".
+ &Apache::lonnet::receipt;
+ $button=0;
+ }
} elsif ($award eq 'NO_RESPONSE') {
$message = '';
$button=1;