version 1.15, 2001/06/27 18:51:12
|
version 1.17, 2001/07/10 22:06:42
|
Line 146 $optionlist
|
Line 146 $optionlist
|
} |
} |
|
|
sub handle_insert { |
sub handle_insert { |
&Apache::lonxml::debug("Er handle insert called"); |
|
if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; } |
if ($ENV{"form.insert_$Apache::lonxml::curdepth"} eq '') { return ''; } |
my $result; |
my $result; |
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
&Apache::lonxml::debug("Looking for :$func:"); |
|
if ($func eq 'default') { |
if ($func eq 'default') { |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
my $namespace; |
my $namespace; |
Line 171 sub handle_insert {
|
Line 169 sub handle_insert {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub insert_responseparam { |
|
return ' |
|
<responseparam />'; |
|
} |
|
|
sub insert_numericalresponse { |
sub insert_numericalresponse { |
return ' |
return ' |
<numericalresponse answer=""> |
<numericalresponse answer=""> |
Line 259 sub rebuild_tag {
|
Line 262 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:"::g; #" |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
&Apache::lonxml::debug("setting :$key: to :$val:"); |
$result.=' '.$key.'="'.$val.'"'; |
$result.=' '.$key.'="'.$val.'"'; |
} |
} |