version 1.37, 2002/10/25 19:02:38
|
version 1.40, 2002/11/08 14:38:47
|
Line 39 use HTML::Entities();
|
Line 39 use HTML::Entities();
|
@Apache::edit::colorlist=('#ffffff','#ff0000','#00ff00','#0000ff','#0ff000','#000ff0','#f0000f'); |
@Apache::edit::colorlist=('#ffffff','#ff0000','#00ff00','#0000ff','#0ff000','#000ff0','#f0000f'); |
# depth of nesting of edit |
# depth of nesting of edit |
$Apache::edit::colordepth=0; |
$Apache::edit::colordepth=0; |
|
@Apache::edit::inserttag=(); |
|
|
sub initialize_edit { |
sub initialize_edit { |
$Apache::edit::colordepth=0; |
$Apache::edit::colordepth=0; |
|
@Apache::edit::inserttag=(); |
} |
} |
|
|
sub tag_start { |
sub tag_start { |
Line 96 sub start_table {
|
Line 98 sub start_table {
|
$color = $Apache::edit::colorlist[$Apache::edit::colordepth]; |
$color = $Apache::edit::colorlist[$Apache::edit::colordepth]; |
} |
} |
$Apache::edit::colordepth++; |
$Apache::edit::colordepth++; |
my $result="<table bgcolor=\"$color\" width=\"100%\" border=\"5\">"; |
push(@Apache::edit::inserttag,$token->[1]); |
|
my $result='<div align="right">'; |
|
$result.='<table bgcolor="'.$color.'" width="97%" border="2">'; |
return $result; |
return $result; |
} |
} |
|
|
sub end_table { |
sub end_table { |
$Apache::edit::colordepth--; |
$Apache::edit::colordepth--; |
my $result="</table>"; |
my $result='</table></div>'; |
|
$result.="<table><tr><td>"; |
|
|
|
my ($tagname,$closingtag); |
|
if (defined($Apache::edit::inserttag[-2])) { |
|
$tagname=$Apache::edit::inserttag[-2]; |
|
} else {$tagname='problem';} |
|
if (defined($Apache::edit::inserttag[-1])) { |
|
$closingtag=$Apache::edit::inserttag[-1]; |
|
} |
|
$result.=&innerinsertlist('edit',$tagname,$closingtag). |
|
"</td></tr></table>"; |
|
pop(@Apache::edit::inserttag); |
return $result; |
return $result; |
} |
} |
|
|
Line 152 sub handle_delete {
|
Line 168 sub handle_delete {
|
} |
} |
|
|
sub get_insert_list { |
sub get_insert_list { |
my ($token) = @_; |
my ($tagname) = @_; |
my $result=''; |
my $result=''; |
my @tagnums= (); |
my @tagnums= (); |
#&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist)))); |
#&Apache::lonxml::debug("keys ".join("\n",sort(keys(%Apache::lonxml::insertlist)))); |
if ($Apache::lonxml::insertlist{"$token->[1].which"}) { |
if ($Apache::lonxml::insertlist{"$tagname.which"}) { |
push (@tagnums, @{ $Apache::lonxml::insertlist{"$token->[1].which"} }); |
push (@tagnums, @{ $Apache::lonxml::insertlist{"$tagname.which"} }); |
} |
} |
foreach my $namespace (@Apache::lonxml::namespace) { |
foreach my $namespace (@Apache::lonxml::namespace) { |
if ($Apache::lonxml::insertlist{"$namespace".'::'."$token->[1].which"}) { |
if ($Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"}) { |
push (@tagnums, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$token->[1].which"} }); |
push (@tagnums, @{ $Apache::lonxml::insertlist{"$namespace".'::'."$tagname.which"} }); |
} |
} |
} |
} |
if (@tagnums) { |
if (@tagnums) { |
Line 178 sub get_insert_list {
|
Line 194 sub get_insert_list {
|
|
|
sub insertlist { |
sub insertlist { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
|
return &innerinsertlist($target,$token->[1]); |
|
} |
|
|
|
sub innerinsertlist { |
|
my ($target,$tagname,$closingtag) = @_; |
my $result; |
my $result; |
|
my $after=''; |
|
if ($closingtag) { |
|
$after='_after_'.$closingtag; |
|
} |
if ($target eq 'edit') { |
if ($target eq 'edit') { |
my $optionlist= &get_insert_list($token); |
my $optionlist= &get_insert_list($tagname); |
if ($optionlist) { |
if ($optionlist) { |
$result = "Insert: |
$result = "Insert: |
<select name=\"insert_$Apache::lonxml::curdepth\"> |
<select name=\"insert$after\_$Apache::lonxml::curdepth\"> |
$optionlist |
$optionlist |
</select>" |
</select>" |
} else { |
} else { |
Line 217 sub handle_insert {
|
Line 242 sub handle_insert {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub handle_insertafter { |
|
my $tagname=shift; |
|
if ($ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"} eq '') |
|
{ return ''; } |
|
my $result; |
|
my $tagnum =$ENV{"form.insert_after_$tagname\_$Apache::lonxml::curdepth"}; |
|
my $func=$Apache::lonxml::insertlist{"$tagnum.function"}; |
|
if ($func eq 'default') { |
|
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
|
my $namespace; |
|
if ($newtag =~ /::/) { ($namespace,$newtag) = split(/::/,$newtag); } |
|
$result.="\n<$newtag>\n</$newtag>"; |
|
} else { |
|
if (defined(&$func)) { |
|
{ |
|
no strict 'refs'; |
|
$result.=&$func(); |
|
} |
|
} else { |
|
my $newtag=$Apache::lonxml::insertlist{"$tagnum.tag"}; |
|
&Apache::lonxml::error("Unable to insert (after) tag $newtag, $func was not defined. ($tagname $tagnum)"); |
|
} |
|
} |
|
return $result; |
|
} |
|
|
sub insert_responseparam { |
sub insert_responseparam { |
return ' |
return ' |
<responseparam />'; |
<responseparam />'; |
Line 407 sub text_arg {
|
Line 458 sub text_arg {
|
} |
} |
|
|
sub select_arg { |
sub select_arg { |
my ($description,$name,$list,$token) = @_; |
my ($description,$name,$list,$token) = @_; |
my $result; |
my $result; |
my $optionlist=""; |
my $optionlist=""; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
if ( $selected eq $option ) { |
my $value; |
$optionlist.="<option selected=\"on\">$option</option>\n"; |
if ( ref($option) eq 'ARRAY') { |
} else { |
$value='value="'.$$option[0].'"'; |
$optionlist.="<option>$option</option>\n"; |
$option=$$option[1]; |
|
} else { |
|
$value='value="'.$option.'"'; |
|
} |
|
if ( $selected eq $option ) { |
|
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
|
} else { |
|
$optionlist.="<option $value >$option</option>\n"; |
|
} |
} |
} |
} |
$result.=$description.'<select name="'. |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
"$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
return $result; |
return $result; |
} |
} |
|
|
sub select_or_text_arg { |
sub select_or_text_arg { |
my ($description,$name,$list,$token,$size) = @_; |
my ($description,$name,$list,$token,$size) = @_; |
my $result; |
my $result; |
my $optionlist=""; |
my $optionlist=""; |
my $found=0; |
my $found=0; |
my $selected=$token->[2]{$name}; |
my $selected=$token->[2]{$name}; |
foreach my $option (@$list) { |
foreach my $option (@$list) { |
if ( $selected eq $option ) { |
my $value; |
$optionlist.="<option selected=\"on\">$option</option>\n"; |
if ( ref($option) eq 'ARRAY') { |
$found=1; |
$value='value="'.$$option[0].'"'; |
} else { |
$option=$$option[1]; |
$optionlist.="<option>$option</option>\n"; |
} else { |
} |
$value='value="'.$option.'"'; |
} |
} |
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
if ( $selected eq $option ) { |
if (($found) || (!$selected)) { |
$optionlist.="<option $value selected=\"on\">$option</option>\n"; |
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
$found=1; |
|
} else { |
|
$optionlist.="<option $value>$option</option>\n"; |
|
} |
|
} |
|
$optionlist.="<option value=\"TYPEDINVALUE\">Type in value</option>\n"; |
|
if (($found) || (!$selected)) { |
|
$result.=$description.'<select name="'."$Apache::lonxml::curdepth.$name".'"> |
'.$optionlist.' |
'.$optionlist.' |
</select>'; |
</select>'; |
} else { |
} else { |
$result.=&text_arg($description,$name,$token,$size); |
$result.=&text_arg($description,$name,$token,$size); |
} |
} |
return $result; |
return $result; |
} |
} |
|
|
#----------------------------------------------------- browse |
#----------------------------------------------------- browse |