TT#28460 Fix RTC networks and RTC apps get-put use case

Set empty networks and apps to empty array.

Change-Id: I2e23de8a3fe206808766b0abf485dc6a59903c48

lib/NGCP/Panel/Role/API/RtcApps.pm

@@ -22,7 +22,7 @@ sub get_form {
 sub hal_from_item {
     my ($self, $c, $item, $include_id) = @_;
 
-    my $resource = { reseller_id => $item->id};
+    my $resource = { reseller_id => $item->id };
     if ($item->rtc_user) {
         my $rtc_user_id = $item->rtc_user->rtc_user_id;
         $resource->{rtc_user_id} = $rtc_user_id if $include_id;
@@ -35,6 +35,10 @@ sub hal_from_item {
             });
     } else {
     }
+    #for get=>put compatibility
+    if ('ARRAY' ne ref $resource->{apps}) {
+        $resource->{apps} = [];
+    }
 
     my $hal = Data::HAL->new(
         links => [

lib/NGCP/Panel/Role/API/RtcNetworks.pm

@@ -22,7 +22,7 @@ sub get_form {
 sub hal_from_item {
     my ($self, $c, $item, $include_id) = @_;
 
-    my $resource = { reseller_id => $item->id};
+    my $resource = { reseller_id => $item->id };
     if ($item->rtc_user) {
         my $rtc_user_id = $item->rtc_user->rtc_user_id;
         $resource->{rtc_user_id} = $rtc_user_id if $include_id;
@@ -38,6 +38,10 @@ sub hal_from_item {
             });
     } else {
     }
+    #for get=>put compatibility
+    if ('ARRAY' ne ref $resource->{networks}) {
+        $resource->{networks} = [];
+    }
 
     my $hal = Data::HAL->new(
         links => [
@@ -127,8 +131,8 @@ sub update_item {
     try {
 
     } catch($e) {
-        $c->log->error("failed to update autoattendants: $e");
-        $self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Failed to update autoattendants.");
+        $c->log->error("failed to update rtcnetworks: $e");
+        $self->error($c, HTTP_INTERNAL_SERVER_ERROR, "Failed to update rtcnetworks.");
         return;
     };