version 1.7, 2001/05/15 20:48:43
|
version 1.8, 2001/05/31 22:37:56
|
Line 14 sub tag_start {
|
Line 14 sub tag_start {
|
# my $color = sprintf("#%06lx",(hex("ffffff")) >> scalar(split(/_/,$Apache::lonxml::curdepth))); |
# my $color = sprintf("#%06lx",(hex("ffffff")) >> scalar(split(/_/,$Apache::lonxml::curdepth))); |
my $color = sprintf("#%02lxffff",33* scalar(split(/_/,$Apache::lonxml::curdepth))); |
my $color = sprintf("#%02lxffff",33* scalar(split(/_/,$Apache::lonxml::curdepth))); |
$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td><$tag></td> |
$result.="<table bgcolor=\"$color\" width=\"100%\" border=\"2\"><tr><td><$tag></td> |
<td>Delete: |
<td>Delete:". |
<select name=\"delete_$Apache::lonxml::curdepth\"> |
&deletelist($target,$token) |
<option>Nothing</option> |
."</td> |
<option>Tag</option> |
|
<option>Subtags</option> |
|
</select></td> |
|
<td>". |
<td>". |
&insertlist($token,$target). |
&insertlist($target,$token). |
"</td> |
"</td> |
</tr><tr><td colspan=\"3\">\n"; |
</tr><tr><td colspan=\"3\">\n"; |
} |
} |
Line 38 sub tag_end {
|
Line 35 sub tag_end {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub deletelist { |
|
my ($target,$token) = @_; |
|
my $result = "<select name=\"delete_$Apache::lonxml::curdepth\"> |
|
<option>Nothing</option> |
|
<option>Tag</option> |
|
<option>Subtags</option> |
|
</select>"; |
|
return $result; |
|
} |
|
|
sub get_insert_list { |
sub get_insert_list { |
my ($token) = @_; |
my ($token) = @_; |
my $result=''; |
my $result=''; |
Line 63 sub get_insert_list {
|
Line 70 sub get_insert_list {
|
} |
} |
|
|
sub insertlist { |
sub insertlist { |
my ($token,$target) = @_; |
my ($target,$token) = @_; |
my $result; |
my $result; |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $optionlist= &get_insert_list($token); |
my $optionlist= &get_insert_list($token); |