--- loncom/homework/inputtags.pm 2006/09/29 23:04:37 1.207
+++ loncom/homework/inputtags.pm 2006/10/12 16:28:21 1.208
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.207 2006/09/29 23:04:37 albertel Exp $
+# $Id: inputtags.pm,v 1.208 2006/10/12 16:28:21 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -283,6 +283,7 @@ sub needs_exam_box {
sub start_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result = "";
+ my $id = &start_input($parstack,$safeeval);
if ($target eq 'web') {
$Apache::lonxml::evaluate--;
my $partid=$Apache::inputtags::part;
@@ -321,7 +322,8 @@ sub start_textline {
}
} else {
#right or wrong don't show what was last typed in.
- $result=''.$Apache::inputtags::answertxt{$id}.'';
+ my $count = scalar(@Apache::inputtags::inputlist)-1;
+ $result=''.$Apache::inputtags::answertxt{$id}[$count].'';
#$result='';
}
} elsif ($target eq 'edit') {
@@ -356,6 +358,7 @@ sub end_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
if ($target eq 'web') { $Apache::lonxml::evaluate++; }
elsif ($target eq 'edit') { return ('','no'); }
+ &end_input();
return "";
}
@@ -514,7 +517,7 @@ sub valid_award {
my %fwd_awards = map { ($_,$i++) } @awards;
my $max=scalar(@awards);
@awards=reverse(@awards);
- my $i=0;
+ $i=0;
my %rev_awards = map { ($_,$i++) } @awards;
sub finalizeawards {