loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.42, 2001/06/11 16:15:10	version 1.43, 2001/06/12 22:42:55
Line 368 sub end_startouttext {	Line 368 sub end_startouttext {

if ($target eq 'edit') {	if ($target eq 'edit') {
$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);	$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]);
$result.="<table width=\"100%\" border=\"2\"><tr><td>Text Block</td>	$result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td>
<td>Delete:".	<td>Delete:".
&Apache::edit::deletelist($target,$token)	&Apache::edit::deletelist($target,$token)
."</td>	."</td>
Line 387 sub end_startouttext {	Line 387 sub end_startouttext {
sub start_endouttext {	sub start_endouttext {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result='';	my $result='';
if ($target eq "edit" ) { $result="</td></tr></table>\n"; }	if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; }
if ($target eq "modified") { $result='<endouttext />'; }	if ($target eq "modified") { $result='<endouttext />'; }
return $result;	return $result;
}	}