--- loncom/homework/inputtags.pm 2004/03/31 05:23:59 1.138
+++ loncom/homework/inputtags.pm 2005/03/31 21:34:34 1.163
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.138 2004/03/31 05:23:59 albertel Exp $
+# $Id: inputtags.pm,v 1.163 2005/03/31 21:34:34 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -65,6 +65,9 @@ sub initialize_inputtags {
@Apache::inputtags::importlist=();
# just used to note whether we have seen a response that isn't in a part
$Apache::inputtags::response_with_no_part=0;
+ # storage location so the begin <*response> tag can generate the correct
+ # answer string for display by the
+ %Apache::inputtags::answertxt=();
}
sub check_for_duplicate_ids {
@@ -122,15 +125,17 @@ sub start_textfield {
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
- if ( $rows eq '') { $rows = 10; }
+ if ( $rows eq '') { $rows = 16; }
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
$result='';
if ($addchars) {
$result.=&addchars('HWVAL_'.$resid,$addchars);
}
- $result.= '