loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.17, 2001/07/10 22:06:42	version 1.18, 2001/07/13 16:15:01
Line 183 sub insert_numericalresponse {	Line 183 sub insert_numericalresponse {
</numericalresponse>';	</numericalresponse>';
}	}

	sub insert_stringresponse {
	return '
	<stringresponse answer="" type="">
	<textline />
	<hintgroup>
	</hintgroup>
	</stringresponse>';
	}

sub insert_optionresponse {	sub insert_optionresponse {
return '	return '
<optionresponse max="10">	<optionresponse max="10">
Line 262 sub rebuild_tag {	Line 271 sub rebuild_tag {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
while (my ($key,$val)= each(%{$token->[2]})) {	while (my ($key,$val)= each(%{$token->[2]})) {
	$val=~s:^\s\|\s$::g;
$val=~s:"::g; #"	$val=~s:"::g; #"
&Apache::lonxml::debug("setting :$key: to :$val:");	&Apache::lonxml::debug("setting :$key: to :$val:");
$result.=' '.$key.'="'.$val.'"';	$result.=' '.$key.'="'.$val.'"';