Commit 40aa8dd8 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix.

parent 1b6f9e30
......@@ -3060,6 +3060,7 @@ sub RecordVLanDeletion($$)
sub RecordVLanModification($$$$)
{
my ($class, $lanid, $added, $removed) = @_;
my %current = ();
my $query_result =
DBQueryWarn("select members from vlans where id='$lanid'");
......@@ -3067,7 +3068,9 @@ sub RecordVLanModification($$$$)
return -1
if (!$query_result);
my ($current) = $query_result->fetchrow_array();
my %current = map { $_ => $_ } split(/\s+/, $current);
if (defined($current) && $current ne "") {
%current = map { $_ => $_ } split(/\s+/, $current);
}
if ($added) {
foreach my $port (@$added) {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment