TT#5554 CallRouting: domain part for caller subscribers

* include the domain part in peers lookup
      for identified caller subscribers

Change-Id: Ie05bbb567719a842ecff421f8d1978bb18b46e15

lib/NGCP/Panel/Controller/CallRouting.pm

@@ -97,19 +97,20 @@ sub callroutingverify :Chained('/') :PathPart('callroutingverify') :Args(0) {
                                     c => $c,
                                     lookup => $caller_uri
                                  );
+    }
     if ($data->{caller_subscriber}) {
         $data->{caller_subscriber_id} = $data->{caller_subscriber}->id;
-            my $sub = sprintf '%s@%s',
+        my $caller_uri = sprintf '%s@%s',
             $data->{caller_subscriber}->username,
             $data->{caller_subscriber}->domain->domain;
+        $data->{caller_domain} = $data->{caller_subscriber}->domain->domain;
         push @log, sprintf "found caller subscriber '%s' with id %d",
-                        $sub, $data->{caller_subscriber_id};
+            $caller_uri, $data->{caller_subscriber_id};
     } else {
         push @log, sprintf "no caller subscriber found.";
         goto RESULT;
 
     }
-    }
 
     # caller sum up
     push @log, sprintf "call from %s", $data->{caller};