loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.169, 2005/06/20 21:31:07
+version 1.171, 2005/07/11 19:41:53
  Line 418  sub decideoutput {
      if      ($solved =~ /^correct/) {
  	$bgcolor=$possiblecolors{'correct'};
- 	if ($award eq 'ASSIGNED_SCORE') {
+ 	$message=&mt('You are correct.');
- 	    $message = &mt("A score has been assigned.");
+ 	if ($awarded < 1 && $awarded > 0) {
- 	    if ($awarded < 1 && $awarded > 0) {
+ 	    $message=&mt('You are partially correct.');
- 		$bgcolor=$possiblecolors{'not_charged_try'};
+ 	    $bgcolor=$possiblecolors{'not_charged_try'};
- 	    } elsif ($awarded < 1) {
+ 	} elsif ($awarded < 1) {
- 		$bgcolor=$possiblecolors{'charged_try'};
+ 	    $message=&mt('Incorrect.');
- 	    }
+ 	    $bgcolor=$possiblecolors{'charged_try'};
+ 	}
+ 	if ($target eq 'tex') {
+ 	    $message = '\textbf{'.$message.'}';
  	} else {
- 	    if ($target eq 'tex') {
+ 	    $message = "<b>".$message."</b>";
- 		$message = '\textbf{'.&mt('You are correct.').'}';
+ 	}
- 	    } else {
+ 	$added_computer_text=1;
- 		$message = "<b>".&mt('You are correct.')."</b>";
+ 	if ($env{'request.filename'} !~
+ 	    m|/res/lib/templates/examupload.problem$|) {
+ 	    if ($target ne 'tex') {
  		$message.=" ".&mt("Computer's answer now shown above.");
  	    }
- 	    $added_computer_text=1;
  	    unless ($env{'course.'.
  			     $env{'request.course.id'}.
  			     '.disable_receipt_display'} eq 'yes') {