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.'"'; |