loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.28, 2001/06/02 03:59:59	version 1.29, 2001/06/29 18:53:50
Line 160 sub start_responseparam {	Line 160 sub start_responseparam {
$token->[2]->{'type'},	$token->[2]->{'type'},
$token->[2]->{'default'},	$token->[2]->{'default'},
$token->[2]->{'description'});	$token->[2]->{'description'});
	} elsif ($target eq 'edit') {
	my $result.=&Apache::edit::tag_start($target,$token,&Apache::lonxml::description($token));
	$result.=&Apache::edit::text_arg('Name:','name',$token).
	&Apache::edit::text_arg('Type:','type',$token).
	&Apache::edit::text_arg('Description:','description',$token).
	&Apache::edit::text_arg('Default:','default',$token).
	"</td></tr>";
	$result.=&Apache::edit::end_table;
	return $result;
	} elsif ($target eq 'modified') {
	my $result;
	my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
	'name','type','description',
	'default');
	if ($constructtag) { $result = &Apache::edit::rebuild_tag($token);}
	return $result;

} else {	} else {
return '';	return '';
}	}
}	}

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