From f9cabf26efa79213b5695af1d39fd1bb3eb6dafd Mon Sep 17 00:00:00 2001
From: Andreas Granig <agranig@sipwise.com>
Date: Tue, 9 Dec 2014 14:15:00 +0100
Subject: [PATCH] MT#10543 Set t38 param for use in dev config.

---
 lib/NGCP/Panel/Controller/Device.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/NGCP/Panel/Controller/Device.pm b/lib/NGCP/Panel/Controller/Device.pm
index d43c25d2af..3c54bdfb7b 100644
--- a/lib/NGCP/Panel/Controller/Device.pm
+++ b/lib/NGCP/Panel/Controller/Device.pm
@@ -1153,6 +1153,16 @@ sub dev_field_config :Chained('/') :PathPart('device/autoprov/config') :Args() {
             } else {
                 $display_name = $sub->username;
             };
+            my $t38 = NGCP::Panel::Utils::Preferences::get_usr_preference_rs(
+                c => $c,
+                prov_subscriber => $sub,
+                attribute => 'enable_t38',
+            );
+            if($t38->first) {
+                $t38 = $t38->first->value;
+            } else {
+                $t38 = 0;
+            };
             # TODO: only push password for private/shared line?
             my $aliases = [ $sub->voip_dbaliases->search({ is_primary => 0 })->get_column("username")->all ];
             my $primary = $sub->voip_dbaliases->search({ is_primary => 1 })->get_column("username")->first;
@@ -1167,6 +1177,7 @@ sub dev_field_config :Chained('/') :PathPart('device/autoprov/config') :Args() {
                 displayname => $display_name,
                 keynum => $line->key_num,
                 type => $line->line_type,
+                t38 => $t38,
             };
         }
         push @{ $vars->{phone}->{lineranges} }, $range;