--- loncom/homework/inputtags.pm 2002/10/29 06:12:32 1.71
+++ loncom/homework/inputtags.pm 2002/11/06 22:40:29 1.72
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.71 2002/10/29 06:12:32 albertel Exp $
+# $Id: inputtags.pm,v 1.72 2002/11/06 22:40:29 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -146,12 +146,15 @@ sub start_textline {
$Apache::lonxml::evaluate--;
if ($Apache::inputtags::status[-1] eq 'CAN_ANSWER') {
my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
- if ($size eq '') { $size=20; }
+ my $maxlength;
+ if ($size eq '') { $size=20; } else {
+ if ($size < 20) { $maxlength=$size; }
+ }
my $partid=$Apache::inputtags::part;
my $id=$Apache::inputtags::response[-1];
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"});
$result= '';
+ $oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';
} else {
#right or wrong don't show what was last typed in.
#$result=''.$oldresponse.'';