version 1.5, 2001/05/13 20:01:34
|
version 1.6, 2001/05/13 21:40:32
|
Line 36 sub tag_end {
|
Line 36 sub tag_end {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub get_insert_list2 { |
|
my ($token) = @_; |
|
my $result=''; |
|
if ($Apache::lonxml::insertlist{"$token->[1].which"}) { |
|
my @tagnums= @{ $Apache::lonxml::insertlist{"$token->[1].which"} }; |
|
foreach my $tagnum (@tagnums) { |
|
$result.='<option value="'.$tagnum.'">'.$Apache::lonxml::insertlist{"$tag.description"}."</option>\n"; |
|
} |
|
if ($result) { $result='<option selected="on"></option>'.$result; } |
|
} |
|
return $result; |
|
} |
|
|
sub get_insert_list { |
sub get_insert_list { |
my ($token) = @_; |
my ($token) = @_; |
my $result=''; |
my $result=''; |
Line 62 $optionlist
|
Line 75 $optionlist
|
} |
} |
} |
} |
return $result; |
return $result; |
|
} |
|
|
|
sub handle_insert2 { |
|
if (!$ENV{"form.insert_$Apache::lonxml::curdepth"}) { return ''; } |
|
my $result; |
|
my $tagnum = $ENV{"form.insert_$Apache::lonxml::curdepth"}; |
|
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
|
if ($func eq 'default') { |
|
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
|
$result.="\n<$newtag>\n</$newtag>"; |
|
} else { |
|
{ |
|
no strict 'refs'; |
|
$result.=&$func; |
|
} |
|
} |
|
return $result; |
} |
} |
|
|
sub handle_insert { |
sub handle_insert { |