Fix selection of current shared network https://sourceforge.net/p/webadmin/bugs/4601/

This commit is contained in:
Jamie Cameron
2015-05-20 20:57:59 -07:00
parent 8227e56084
commit 5cd13920a8

View File

@@ -72,12 +72,12 @@ print "</td></tr>\n";
if (!defined($in{'ret'})) { if (!defined($in{'ret'})) {
print "<tr><td valign=middle><b>$text{'esub_shnet'}</b></td>\n"; print "<tr><td valign=middle><b>$text{'esub_shnet'}</b></td>\n";
print "<td valign=middle>"; print "<td valign=middle>";
my @shn; my @shn;
push(@shn, [ "", "&lt;$text{'esub_none'}&gt;", ( $s_parent ? "" : "selected" ) ]); push(@shn, [ "", "&lt;$text{'esub_none'}&gt;" ]);
foreach $s (&find("shared-network", $conf)) { foreach $s (&find("shared-network", $conf)) {
push(@shn, [ $s->{'index'}, ( &can('rw', \%access, $s) ? $s->{'values'}->[0] : "" ), ( $s eq $s_parent ? "" : "selected" ) ]); push(@shn, [ $s->{'index'}, ( &can('rw', \%access, $s) ? $s->{'values'}->[0] : "" ) ]);
} }
print &ui_select("parent", undef, \@shn); print &ui_select("parent", $s_parent ? $s_parent->{'index'} : "", \@shn);
print "</td>\n"; print "</td>\n";
} }
else { else {