loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.35, 2001/06/02 03:59:59	version 1.36, 2001/06/27 18:51:37
Line 79 sub start_textline {	Line 79 sub start_textline {
my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};	my $oldresponse = $Apache::lonhomework::history{"resource.$Apache::inputtags::part.$Apache::inputtags::response['-1'].submission"};
$result= '<input type="text" name="HWVAL'.$Apache::inputtags::response['-1'].'" value="'.$oldresponse.'" size="'.$size.'" />';	$result= '<input type="text" name="HWVAL'.$Apache::inputtags::response['-1'].'" value="'.$oldresponse.'" size="'.$size.'" />';
}	}
	if ($target eq 'edit') {
	$result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token));
	$result.=&Apache::edit::text_arg('Size:','size',$token,'5')."</td></tr>";
	$result.=&Apache::edit::end_table;
	}
	if ($target eq 'modified') {
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
	}
return $result;	return $result;
}	}

sub end_textline {	sub end_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	if ($target eq 'edit') { return ('','no'); }
return "";	return "";
}	}