From a7589aeba828eb03e68f3612f6914e2172ca0194 Mon Sep 17 00:00:00 2001
From: Kirill Solomko <ksolomko@sipwise.com>
Date: Mon, 9 Sep 2024 12:59:03 +0200
Subject: [PATCH] MT#60877 /api/preferencemetaentries accept default_val as
 boolean

* default_val is now correctly accepted as either 1/0 or true/false
* fix 500 error when default_val is provided as JSON true/false

Change-Id: Id6db9c13ae458ddd61e5a68865249eb4e3e124bf
---
 lib/NGCP/Panel/Role/API/PreferencesMetaEntries.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/lib/NGCP/Panel/Role/API/PreferencesMetaEntries.pm b/lib/NGCP/Panel/Role/API/PreferencesMetaEntries.pm
index fb5f48dff8..2a361b9835 100644
--- a/lib/NGCP/Panel/Role/API/PreferencesMetaEntries.pm
+++ b/lib/NGCP/Panel/Role/API/PreferencesMetaEntries.pm
@@ -44,6 +44,19 @@ sub get_form {
     return NGCP::Panel::Form::get("NGCP::Panel::Form::Device::PreferenceAPI", $c);
 }
 
+sub pre_process_form_resource {
+    my($self,$c, $item, $old_resource, $resource, $form, $process_extras) = @_;
+
+    my $enums = $resource->{enum};
+    foreach my $enum (@{$enums}) {
+        if (defined $enum->{default_val}) {
+            $enum->{default_val} = $enum->{default_val} + 0;
+        }
+    }
+
+    return $resource;
+}
+
 sub process_form_resource {
     my ($self,$c, $item, $old_resource, $resource, $form, $process_extras) = @_;
     if ( $resource->{dev_pref} && !$resource->{autoprov_device_id} ) {