version 1.92, 2005/04/07 06:56:21
|
version 1.94, 2005/08/30 15:36:07
|
Line 109 sub start_table {
|
Line 109 sub start_table {
|
sub end_table { |
sub end_table { |
$Apache::edit::colordepth--; |
$Apache::edit::colordepth--; |
my $result='</table></div>'; |
my $result='</table></div>'; |
$result.="<table><tr><td>"; |
$result.='<div align="left"><table><tr><td>'; |
|
|
my ($tagname,$closingtag); |
my ($tagname,$closingtag); |
if (defined($Apache::edit::inserttag[-2])) { |
if (defined($Apache::edit::inserttag[-2])) { |
Line 119 sub end_table {
|
Line 119 sub end_table {
|
$closingtag=$Apache::edit::inserttag[-1]; |
$closingtag=$Apache::edit::inserttag[-1]; |
} |
} |
$result.=&innerinsertlist('edit',$tagname,$closingtag). |
$result.=&innerinsertlist('edit',$tagname,$closingtag). |
"</td></tr></table>"; |
"</td></tr></table></div>"; |
pop(@Apache::edit::inserttag); |
pop(@Apache::edit::inserttag); |
return $result; |
return $result; |
} |
} |
Line 654 sub select_arg {
|
Line 654 sub select_arg {
|
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my ($text,$value); |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
$text=$$option[1]; |
$text=$$option[1]; |
$option=$$option[0]; |
$option=$$option[0]; |
} else { |
} else { |
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
Line 683 sub select_or_text_arg {
|
Line 683 sub select_or_text_arg {
|
foreach my $option (@$list) { |
foreach my $option (@$list) { |
my ($text,$value); |
my ($text,$value); |
if ( ref($option) eq 'ARRAY') { |
if ( ref($option) eq 'ARRAY') { |
$value='value="'.$$option[0].'"'; |
$value='value="'.&HTML::Entities::encode($$option[0]).'"'; |
$text=$$option[1]; |
$text=$$option[1]; |
$option=$$option[0]; |
$option=$$option[0]; |
} else { |
} else { |
$text=$option; |
$text=$option; |
$value='value="'.$option.'"'; |
$value='value="'.&HTML::Entities::encode($option,'\'"&<>').'"'; |
} |
} |
if ( $selected eq $option ) { |
if ( $selected eq $option ) { |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |
$optionlist.="<option $value selected=\"selected\">$text</option>\n"; |