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

[albertel]

albertel		Mon Jun 23 12:43:40 2003 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  - Fixes BUG#1868- default text kept growing.
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.105 loncom/homework/inputtags.pm:1.106
--- loncom/homework/inputtags.pm:1.105	Thu Jun 19 17:41:02 2003
+++ loncom/homework/inputtags.pm	Mon Jun 23 12:43:40 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.105 2003/06/19 21:41:02 albertel Exp $
+# $Id: inputtags.pm,v 1.106 2003/06/23 16:43:40 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -144,6 +144,7 @@
     } else {
       $result=$token->[4];
     }
+    my $bodytext=&Apache::lonxml::get_all_text("/textfield",$parser);
     $result.=&Apache::edit::modifiedfield();
   } elsif ($target eq 'tex') {
       my $number_of_lines = &Apache::lonxml::get_param('rows',$parstack,$safeeval);