version 1.283, 2005/11/08 03:08:15
|
version 1.287, 2005/11/10 18:05:47
|
Line 1149 sub domain_select {
|
Line 1149 sub domain_select {
|
} &get_domains; |
} &get_domains; |
if ($multiple) { |
if ($multiple) { |
$domains{''}=&mt('Any domain'); |
$domains{''}=&mt('Any domain'); |
return &multiple_select_form($name,$value,4,%domains); |
return &multiple_select_form($name,$value,4,\%domains); |
} else { |
} else { |
return &select_form($name,$value,%domains); |
return &select_form($name,$value,%domains); |
} |
} |
Line 1159 sub domain_select {
|
Line 1159 sub domain_select {
|
|
|
=pod |
=pod |
|
|
=item * multiple_select_form($name,$value,$size,%hash) |
=item * multiple_select_form($name,$value,$size,$hash,$order) |
|
|
Returns a string containing a <select> element int multiple mode |
Returns a string containing a <select> element int multiple mode |
|
|
Line 1170 Args:
|
Line 1170 Args:
|
$size - number of rows long the select element is |
$size - number of rows long the select element is |
$hash - the elements should be 'option' => 'shown text' |
$hash - the elements should be 'option' => 'shown text' |
(shown text should already have been &mt()) |
(shown text should already have been &mt()) |
|
$order - (optional) array ref of the order to show the elments in |
|
|
=cut |
=cut |
|
|
#------------------------------------------- |
#------------------------------------------- |
sub multiple_select_form { |
sub multiple_select_form { |
my ($name,$value,$size,$hash)=@_; |
my ($name,$value,$size,$hash,$order)=@_; |
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
my %selected = map { $_ => 1 } ref($value)?@{$value}:($value); |
my $output=''; |
my $output=''; |
if (! defined($size)) { |
if (! defined($size)) { |
Line 1185 sub multiple_select_form {
|
Line 1186 sub multiple_select_form {
|
} |
} |
} |
} |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
$output.="\n<select name='$name' size='$size' multiple='1'>"; |
foreach (sort(keys(%$hash))) { |
my @order = ref($order) ? @$order |
$output.='<option value="'.$_.'" '; |
: sort(keys(%$hash)); |
$output.='selected="selected" ' if ($selected{$_}); |
foreach my $key (@order) { |
$output.='>'.$hash->{$_}."</option>\n"; |
$output.='<option value="'.$key.'" '; |
|
$output.='selected="selected" ' if ($selected{$key}); |
|
$output.='>'.$hash->{$key}."</option>\n"; |
} |
} |
$output.="</select>\n"; |
$output.="</select>\n"; |
return $output; |
return $output; |
Line 2771 sub bodytag {
|
Line 2774 sub bodytag {
|
<style type="text/css"> |
<style type="text/css"> |
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
h1, h2, h3, th { font-family: Arial, Helvetica, sans-serif } |
a:focus { color: red; background: yellow } |
a:focus { color: red; background: yellow } |
|
table.thinborder { border-collapse: collapse; } |
|
table.thinborder tr th { border-style: solid; border-width: 1px} |
|
table.thinborder tr td { border-style: solid; border-width: 1px} |
|
.center { text-align: center; } |
</style> |
</style> |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
<body bgcolor="$pgbg" text="$font" alink="$alink" vlink="$vlink" link="$link" |
style="margin-top: 0px;$addstyle" $addentries> |
style="margin-top: 0px;$addstyle" $addentries> |
Line 2879 ENDROLE
|
Line 2886 ENDROLE
|
# |
# |
return(<<ENDBODY); |
return(<<ENDBODY); |
$bodytag |
$bodytag |
<table width="100%" cellspacing="0" border="0" cellpadding="0"> |
<table class="thinborder" width="100%" cellspacing="0" border="0" cellpadding="0"> |
<tr><td bgcolor="$sidebg"> |
<tr><td bgcolor="$sidebg"> |
$upperleft</td> |
$upperleft</td> |
<td bgcolor="$sidebg" align="right">$messages </td> |
<td bgcolor="$sidebg" align="right">$messages </td> |