From c648520e6b7875bafbd49271cf927c7ad5a9e91f Mon Sep 17 00:00:00 2001
From: KRKeegan <kevin@krkeegan.com>
Date: Fri, 1 Feb 2013 18:45:25 -0800
Subject: [PATCH] Fix for Issue 49

Object and linkdevice were transposed and link was listed as a responder instead of a controller.
---
 lib/Insteon/AllLinkDatabase.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Insteon/AllLinkDatabase.pm b/lib/Insteon/AllLinkDatabase.pm
index f6d8b6f60..fc85c1a1e 100755
--- a/lib/Insteon/AllLinkDatabase.pm
+++ b/lib/Insteon/AllLinkDatabase.pm
@@ -1967,9 +1967,9 @@ sub delete_orphan_links
                                                         }
                                                         else
                                                         {
-						       		my %delete_req = (object => $self, group => $group, is_controller => 0,
+						       		my %delete_req = (object => $device, group => $group, is_controller => 1,
 							       		callback => "$selfname->_aldb->_process_delete_queue(1)",
-									linkdevice => $device, data3 => $data3);
+									linkdevice => $self, data3 => $data3);
 								push @{$$self{delete_queue}}, \%delete_req;
                                                         }
 						}