--- loncom/homework/inputtags.pm 2006/07/14 18:12:16 1.200 +++ loncom/homework/inputtags.pm 2006/07/19 19:54:30 1.202 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # input definitons # -# $Id: inputtags.pm,v 1.200 2006/07/14 18:12:16 albertel Exp $ +# $Id: inputtags.pm,v 1.202 2006/07/19 19:54:30 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -541,10 +541,11 @@ sub decideoutput { my $bgcolor='orange'; my $added_computer_text=0; my %possiblecolors = - ( 'correct' => '#aaffaa', - 'charged_try' => '#ffaaaa', + ( 'correct' => '#aaffaa', + 'charged_try' => '#ffaaaa', 'not_charged_try' => '#ffffaa', - 'no_message' => '#fffff', + 'no_grade' => '#ffffaa', + 'no_message' => '#ffffff', ); my $part = $Apache::inputtags::part; @@ -552,7 +553,10 @@ sub decideoutput { ('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade"))); my $computer = ($handgrade)? '' - : " ".&mt("Computer's answer now shown above."); + : " ". + (($Apache::lonhomework::type eq 'exam')? + " ".&mt("Your answer now shown above."): + " ".&mt("Computer's answer now shown above.")); &Apache::lonxml::debug("handgrade has :$handgrade:"); if ($previous) { $previousmsg=&mt('You have entered that answer before'); } @@ -703,7 +707,7 @@ sub decideoutput { $button=1; } elsif ($award eq 'SUBMITTED') { $message = &mt("Your submission has been recorded."); - $bgcolor=$possiblecolors{'correct'}; + $bgcolor=$possiblecolors{'no_grade'}; $button=1; } elsif ($award eq 'DRAFT') { $message = &mt("A draft copy has been saved."); @@ -742,7 +746,7 @@ sub decideoutput { if (lc($Apache::lonhomework::problemstatus) eq 'no' && $Apache::inputtags::status[-1] ne 'SHOW_ANSWER') { $message = &mt("Answer Submitted: Your final submission will be graded after the due date."); - $bgcolor=$possiblecolors{'correct'}; + $bgcolor=$possiblecolors{'no_grade'}; $button=1; } if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&