TT#44275 Fix fields adjustment in cached forms

Change-Id: I57ddab428805f4fc8a464508a4bfb5a6d917e749

lib/NGCP/Panel/Form/Contract/Base.pm

@@ -231,6 +231,7 @@ sub _inflate_billing_mappings {
 }
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Customer/PbxExtensionSubscriberEditSubadminNoGroup.pm

@@ -11,6 +11,7 @@ has_block 'fields' => (
 );
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Customer/PbxExtensionSubscriberSubadmin.pm

@@ -20,7 +20,8 @@ has_block 'fields' => (
     render_list => [qw/group_select alias_select pbx_extension display_name email webusername webpassword username password lock status profile/ ],
 );
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Customer/PbxGroupEditSubadmin.pm

@@ -21,7 +21,8 @@ has_block 'fields' => (
     render_list => [qw/pbx_extension pbx_hunt_policy pbx_hunt_timeout alias_select/],
 );
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
 
     my $c = $self->ctx;

lib/NGCP/Panel/Form/Customer/PbxSubscriber.pm

@@ -196,7 +196,8 @@ has_block 'actions' => (
 );
 
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
 
     my $c = $self->ctx;

lib/NGCP/Panel/Form/Customer/PbxSubscriberEdit.pm

@@ -51,6 +51,7 @@ has_block 'actions' => (
 );
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
 
     my $c = $self->ctx;

lib/NGCP/Panel/Form/Customer/Subscriber.pm

@@ -150,6 +150,7 @@ has_block 'actions' => (
 );
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Device/Model.pm

@@ -457,7 +457,8 @@ has_block 'actions' => (
     render_list => [qw/save/],
 );
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
 
     my $c = $self->ctx;

lib/NGCP/Panel/Form/Subscriber.pm

@@ -197,6 +197,7 @@ sub validate_webpassword {
 }
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Subscriber/SubscriberAPI.pm

@@ -216,6 +216,7 @@ has_block 'actions' => (
 
 # override parent here to prevent any password magic
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Subscriber/SubscriberSubAdminAPI.pm

@@ -292,6 +292,7 @@ sub validate_webpassword {
 }
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/SubscriberEdit.pm

@@ -169,7 +169,8 @@ has_block 'actions' => (
     render_list => [qw/save/],
 );
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my ($self) = @_;
 
     my $c = $self->ctx;

lib/NGCP/Panel/Form/SubscriberProfile/Profile.pm

@@ -68,7 +68,8 @@ has_block 'actions' => (
     render_list => [qw/save/],
 );
 
-sub field_list {
+sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Voucher/Reseller.pm

@@ -89,6 +89,7 @@ sub validate_valid_until {
 }
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;

lib/NGCP/Panel/Form/Voucher/ResellerAPI.pm

@@ -74,6 +74,7 @@ sub validate_valid_until {
 }
 
 sub update_fields {
+#IMPORTANT! redefined sub update_fields with no super call disable call of the update_field_list and defaults methods
     my $self = shift;
     my $c = $self->ctx;
     return unless $c;