version 1.3, 2001/04/26 21:21:48
|
version 1.4, 2001/05/04 21:22:05
|
Line 7 use strict;
|
Line 7 use strict;
|
use Apache::lonnet; |
use Apache::lonnet; |
|
|
sub tag_start { |
sub tag_start { |
my ($tag) = @_; |
my ($token,$target) = @_; |
my $result=''; |
my $result=''; |
|
if ($target eq "web") { |
$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td> |
my $tag=$token->[1]; |
|
$result.="<table width=\"100%\" border=\"2\"><tr><td><$tag></td> |
<td>Delete: |
<td>Delete: |
<select name=\"delete_$Apache::lonxml::curdepth\"> |
<select name=\"delete_$Apache::lonxml::curdepth\"> |
<option>Nothing</option> |
<option>Nothing</option> |
<option>Tag</option> |
<option>Tag</option> |
<option>Subtags</option> |
<option>Subtags</option> |
</select></td> |
</select></td> |
<td>Insert: |
<td>". |
<select name=\"insert_$Apache::lonxml::curdepth\"> |
&insertlist($token,$target). |
<option>Nothing</option> |
"</td> |
<option>Text Block</option> |
|
<option>Script Block</option> |
|
</select> |
|
</td> |
|
</tr><tr><td colspan=\"3\">\n"; |
</tr><tr><td colspan=\"3\">\n"; |
|
} |
return $result; |
return $result; |
} |
} |
|
|
sub tag_end { |
sub tag_end { |
my ($tag) = @_; |
my ($token,$target) = @_; |
my $result=''; |
my $result=''; |
|
if ($target eq 'edit') { |
|
my $tag=$token->[1]; |
|
$result.="</td></tr><tr><td></$tag></td></tr></table>\n"; |
|
} |
|
return $result; |
|
} |
|
|
$result.="</td></tr><tr><td></$tag></td></tr></table>\n"; |
sub insertlist { |
|
my ($token,$target) = @_; |
|
my $result; |
|
if ($target eq 'edit') { |
|
$result = "Insert: |
|
<select name=\"insert_$Apache::lonxml::curdepth\"> |
|
<option>Nothing</option> |
|
<option>Text Block</option> |
|
<option>Script Block</option> |
|
</select>" |
|
} |
return $result; |
return $result; |
} |
} |
|
|