[BACK]Return to inputtags.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/inputtags.pm between versions 1.107 and 1.111

version 1.107, 2003/06/24 19:18:01 version 1.111, 2003/08/01 18:04:10
Line 343  sub decideoutput { Line 343  sub decideoutput {
   } else {    } else {
       $message = "<b>You are correct.</b>";        $message = "<b>You are correct.</b>";
   }    }
   $message.=' Your receipt is '.&Apache::lonnet::receipt;            unless ($ENV{'course.'.
      $ENV{'request.course.id'}.
      '.disable_receipt_display'} eq 'yes') { 
         $message.=(($target eq 'web')?'<br />':' ').
     'Your receipt is '.&Apache::lonnet::receipt().
          (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
     }
       }        }
       $bgcolor=$possiblecolors{'correct'};        $bgcolor=$possiblecolors{'correct'};
       $button=0;        $button=0;
       $previousmsg='';        $previousmsg='';
   } elsif ($solved =~ /^excused/) {    } elsif ($solved =~ /^excused/) {
       $message = "<b>You are excused from the problem.</b>";        if ($target eq 'tex') {
     $message = ' \textbf{You are excused from the problem.} ';
         } else {
     $message = "<b>You are excused from the problem.</b>";
         }
       $bgcolor=$possiblecolors{'charged_try'};        $bgcolor=$possiblecolors{'charged_try'};
       $button=0;        $button=0;
       $previousmsg='';        $previousmsg='';
Line 359  sub decideoutput { Line 369  sub decideoutput {
   $bgcolor=$possiblecolors{'charged_try'};    $bgcolor=$possiblecolors{'charged_try'};
   $button=1;    $button=1;
       } else {        } else {
   $message = "<b>You are correct.</b> Your receipt is ".    $message = "<b>You are correct.</b>";
    &Apache::lonnet::receipt;            unless ($ENV{'course.'.
      $ENV{'request.course.id'}.
      '.disable_receipt_display'} eq 'yes') { 
         $message.=(($target eq 'web')?'<br />':' ').
     'Your receipt is '.&Apache::lonnet::receipt().
          (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):'');
     }
   $bgcolor=$possiblecolors{'correct'};    $bgcolor=$possiblecolors{'correct'};
   $button=0;    $button=0;
   $previousmsg='';    $previousmsg='';
Removed from v.1.107  
changed lines
  Added in v.1.111

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>