From 5cd13920a82e34b94d2dfe6073299e7c31fc5862 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 20 May 2015 20:57:59 -0700
Subject: [PATCH] Fix selection of current shared network
 https://sourceforge.net/p/webadmin/bugs/4601/

---
 dhcpd/edit_subnet.cgi | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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