TT#30379 billing profile currency for call conversations

Change-Id: I31aa601f14aeb242cd6a30f6126570ee95fc1007

lib/NGCP/Panel/Form/Conversation/API.pm

@@ -117,4 +117,10 @@ has_field 'total_customer_cost' => (
     required => 0,
 );
 
+has_field 'currency' => (
+    type => 'Text',
+    label => 'Call cost currency.',
+    required => 0,
+);
+
 1;

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

@@ -70,6 +70,8 @@ $call_fields{rating_status} = 'me.rating_status';
 $call_fields{source_customer_cost} = 'me.source_customer_cost';
 $call_fields{destination_customer_cost} = 'me.destination_customer_cost';
 $call_fields{source_customer_free_time} = 'me.source_customer_free_time';
+$call_fields{source_customer_billing_fee_id} = 'me.source_customer_billing_fee_id';
+$call_fields{destination_customer_billing_fee_id} = 'me.destination_customer_billing_fee_id';
 
 #this is exactly cdr item, although we take call fields.
 #Call fields contain everyithing that process_cdr_item  requires
@@ -761,8 +763,20 @@ sub process_hal_resource {
         );
         @{$resource}{qw/caller callee/} = @{$resource}{qw/own_cli other_cli/};
         $resource->{type} = $item->{type};
+        my $fee;
+        if ($fee = $schema->resultset('billing_fees_history')->search_rs({
+                'id' => ($resource->{direction} eq "out" ? $item_mock_obj->source_customer_billing_fee_id : $item_mock_obj->destination_customer_billing_fee_id),
+            })->first
+            and
+            my $profile = $schema->resultset('billing_profiles')->search_rs({ #we dont want a cascade relationship in billing_fees_history
+                'id' => $fee->billing_profile_id,
+            })->first) {
+            $resource->{currency} = $profile->currency // '';
+        } else {
+            $resource->{currency} = '';
+        }
     }elsif('fax' eq $item->{type}){
-        my $fax_subscriber_provisioning = $c->model('DB')->resultset('provisioning_voip_subscribers')->search_rs({
+        my $fax_subscriber_provisioning = $schema->resultset('provisioning_voip_subscribers')->search_rs({
             'id' => $item_mock_obj->subscriber_id,
         })->first;
         my $fax_subscriber_billing = $fax_subscriber_provisioning->voip_subscriber;
@@ -775,7 +789,7 @@ sub process_hal_resource {
     }elsif('voicemail' eq $item->{type}){
         $resource = $item_accessors_hash;
         $resource->{caller} = $item_mock_obj->callerid;
-        $resource->{voicemail_subscriber_id} = $c->model('DB')->resultset('voicemail_spool')->search_rs({
+        $resource->{voicemail_subscriber_id} = $schema->resultset('voicemail_spool')->search_rs({
             'mailboxuser' => $item_mock_obj->mailboxuser,
         })->first->mailboxuser->provisioning_voip_subscriber->voip_subscriber->id;
         # type is last item of path like /var/spool/asterisk/voicemail/default/uuid/INBOX