--- loncom/homework/inputtags.pm 2003/07/15 21:26:23 1.109 +++ loncom/homework/inputtags.pm 2003/08/01 18:04:10 1.111 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.109 2003/07/15 21:26:23 www Exp $ +# $Id: inputtags.pm,v 1.111 2003/08/01 18:04:10 sakharuk Exp $ # # Copyright Michigan State University Board of Trustees # @@ -346,15 +346,20 @@ sub decideoutput { unless ($ENV{'course.'. $ENV{'request.course.id'}. '.disable_receipt_display'} eq 'yes') { - $message.='
Your receipt is '.&Apache::lonnet::receipt(). - &Apache::loncommon::help_open_topic('Receipt'); + $message.=(($target eq 'web')?'
':' '). + 'Your receipt is '.&Apache::lonnet::receipt(). + (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); } } $bgcolor=$possiblecolors{'correct'}; $button=0; $previousmsg=''; } elsif ($solved =~ /^excused/) { - $message = "You are excused from the problem."; + if ($target eq 'tex') { + $message = ' \textbf{You are excused from the problem.} '; + } else { + $message = "You are excused from the problem."; + } $bgcolor=$possiblecolors{'charged_try'}; $button=0; $previousmsg=''; @@ -368,8 +373,9 @@ sub decideoutput { unless ($ENV{'course.'. $ENV{'request.course.id'}. '.disable_receipt_display'} eq 'yes') { - $message.='
Your receipt is '.&Apache::lonnet::receipt(). - &Apache::loncommon::help_open_topic('Receipt'); + $message.=(($target eq 'web')?'
':' '). + 'Your receipt is '.&Apache::lonnet::receipt(). + (($target eq 'web')?&Apache::loncommon::help_open_topic('Receipt'):''); } $bgcolor=$possiblecolors{'correct'}; $button=0;