[LON-CAPA-cvs] cvs: loncom /homework inputtags.pm

[albertel]

albertel		Wed Nov  6 17:40:29 2002 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - now if size is set, and it is less than 20, the student is restricted from typing in more than size characters
  - BUG#890
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.71 loncom/homework/inputtags.pm:1.72
--- loncom/homework/inputtags.pm:1.71	Tue Oct 29 01:12:32 2002
+++ loncom/homework/inputtags.pm	Wed Nov  6 17:40:29 2002
@@ -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 @@
     $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= '<input type="text" name="HWVAL'.$id.'" value="'.
-	$oldresponse.'" size="'.$size.'" />';
+	$oldresponse.'" size="'.$size.'" maxlength="'.$maxlength.'" />';
     } else {
       #right or wrong don't show what was last typed in.
       #$result='<i>'.$oldresponse.'</i>';