loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.142, 2004/05/20 23:11:12	version 1.143, 2004/06/03 14:28:39
Line 122 sub start_textfield {	Line 122 sub start_textfield {
my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);	my $cols = &Apache::lonxml::get_param('cols',$parstack,$safeeval);
if ( $cols eq '') { $cols = 80; }	if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);	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);	my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
$result='';	$result='';
if ($addchars) {	if ($addchars) {
$result.=&addchars('HWVAL_'.$resid,$addchars);	$result.=&addchars('HWVAL_'.$resid,$addchars);
}	}
$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" '.	push @Apache::lonxml::htmlareafields,'HWVAL_'.$resid;
	$result.= '<textarea wrap="hard" name="HWVAL_'.$resid.'" id="HWVAL_'.$resid.'" '.
"rows=\"$rows\" cols=\"$cols\">".$oldresponse;	"rows=\"$rows\" cols=\"$cols\">".$oldresponse;
if ($oldresponse ne '') {	if ($oldresponse ne '') {

#get rid of any startup text if the user has already responded	#get rid of any startup text if the user has already responded
&Apache::lonxml::get_all_text("/textfield",$parser);	&Apache::lonxml::get_all_text("/textfield",$parser);
}	}