TT#102056 fix registration entry removal

* Registration entries are now removed by
  registration username + registration domain
  instead of subscriber username + subscriber domain.
  That is to account registrations by the device.

Change-Id: I86a0d97fabc2dcd0eda6042a018ed35f64c3f031
(cherry picked from commit 59a1ba298b)

lib/NGCP/Panel/Controller/API/SubscriberRegistrationsItem.pm

@@ -201,8 +201,9 @@ sub delete_item {
 
     my $sub = $self->subscriber_from_item($c, $item);
     return unless($sub);
+    my $aor = $item->username . '@' . $item->domain;
     NGCP::Panel::Utils::Kamailio::delete_location_contact($c,
-        $sub, $item->contact);
+        $aor, $item->contact);
     NGCP::Panel::Utils::Kamailio::flush($c) unless $self->suppress_flush($c);
     return 1;
 }

lib/NGCP/Panel/Controller/Subscriber.pm

@@ -4334,9 +4334,9 @@ sub delete_registered :Chained('registered') :PathPart('delete') :Args(0) {
     my $ret;
 
     try {
-        NGCP::Panel::Utils::Kamailio::delete_location_contact($c,
-            $c->stash->{subscriber}->provisioning_voip_subscriber,
-            $c->stash->{registered}->contact);
+        my $reg = $c->stash->{registered} // die "No registration data";
+        my $aor = $reg->username . '@' . $reg->domain;
+        NGCP::Panel::Utils::Kamailio::delete_location_contact($c, $aor, $reg->contact);
     } catch($e) {
         NGCP::Panel::Utils::Message::error(
             c     => $c,

lib/NGCP/Panel/Utils/Kamailio.pm

@@ -6,9 +6,8 @@ use NGCP::Panel::Utils::DateTime;
 use Data::Dumper;
 
 sub delete_location_contact {
-    my ($c, $prov_subscriber, $contact) = @_;
+    my ($c, $aor, $contact) = @_;
 
-    my $aor = $prov_subscriber->username . '@' . $prov_subscriber->domain->domain;
     my $ret = NGCP::Panel::Utils::XMLDispatcher::dispatch($c, "proxy-ng", 1, 1, <<EOF );
 <?xml version="1.0" ?>
 <methodCall>
@@ -24,9 +23,8 @@ EOF
 }
 
 sub delete_location {
-    my ($c, $prov_subscriber) = @_;
+    my ($c, $aor) = @_;
 
-    my $aor = $prov_subscriber->username . '@' . $prov_subscriber->domain->domain;
     my $ret = NGCP::Panel::Utils::XMLDispatcher::dispatch($c, "proxy-ng", 1, 1, <<EOF );
 <?xml version="1.0" ?>
 <methodCall>