--- loncom/homework/inputtags.pm 2005/11/10 22:19:27 1.179
+++ loncom/homework/inputtags.pm 2005/11/15 22:28:30 1.180
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.179 2005/11/10 22:19:27 albertel Exp $
+# $Id: inputtags.pm,v 1.180 2005/11/15 22:28:30 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -448,6 +448,14 @@ sub decideoutput {
'no_message' => '#fffff',
);
+ my $part = $Apache::inputtags::part;
+ my $handgrade =
+ ('yes' eq lc(&Apache::lonnet::EXT("resource.$part.handgrade")));
+
+ my $computer = ($handgrade)? ''
+ : " ".&mt("Computer's answer now shown above.");
+ &Apache::lonxml::debug("handgrade has :$handgrade:");
+
if ($previous) { $previousmsg=&mt('You have entered that answer before'); }
if ($solved =~ /^correct/) {
@@ -469,7 +477,7 @@ sub decideoutput {
$message = '\textbf{'.$message.'}';
} else {
$message = "".$message."";
- $message.=" ".&mt("Computer's answer now shown above.");
+ $message.= $computer;
}
$added_computer_text=1;
unless ($env{'course.'.
@@ -501,7 +509,7 @@ sub decideoutput {
$message = '\textbf{'.&mt('You are correct.').'}';
} else {
$message = "".&mt('You are correct.')."";
- $message.=" ".&mt("Computer's answer now shown above.");
+ $message.= $computer;
}
$added_computer_text=1;
unless ($env{'course.'.
@@ -617,7 +625,7 @@ sub decideoutput {
}
if ($Apache::inputtags::status[-1] eq 'SHOW_ANSWER' &&
!$added_computer_text && $target ne 'tex') {
- $message.=" ".&mt("Computer's answer now shown above.");
+ $message.= $computer;
$added_computer_text=1;
}
return ($button,$bgcolor,$message,$previousmsg);