--- loncom/homework/inputtags.pm 2010/12/31 02:40:14 1.277
+++ loncom/homework/inputtags.pm 2011/03/05 20:06:33 1.279
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.277 2010/12/31 02:40:14 raeburn Exp $
+# $Id: inputtags.pm,v 1.279 2011/03/05 20:06:33 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1409,7 +1409,7 @@ sub get_grade_messages {
$trystr = '
'.&mt($tries_text)." $tries";
if ($Apache::lonhomework::parsing_a_task) {
} elsif($env{'request.state'} ne 'construct') {
- $trystr.="/$maxtries";
+ $trystr.="/".&Apache::lonhtmlcommon::direct_parm_link($maxtries,$env{'request.symb'},'maxtries',$id,$target);
} else {
if (defined($Apache::inputtags::params{'maxtries'})) {
$trystr.="/".$Apache::inputtags::params{'maxtries'};
@@ -1522,6 +1522,17 @@ sub previous_tries {
) {
my $txt_correct = &mt('Correct');
+ my $awarded = $Apache::lonhomework::history{"$prefix.awarded"};
+ my $txt_correct = &mt('Correct');
+ if ($awarded < 1 && $awarded > 0) {
+ $txt_correct=&mt('Partially correct');
+ } elsif ($awarded < 1) {
+ if ($awarded eq '') {
+ $txt_correct='';
+ } else {
+ $txt_correct=&mt('Incorrect');
+ }
+ }
$message =~ s{( | )(.*?)()}
{$1 $txt_correct. $3}s;
}