loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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