have a Preferences Form (extending FormHandler)

lib/NGCP/Panel/Controller/Domain.pm

@@ -6,6 +6,7 @@ use Data::Dumper;
 BEGIN { extends 'Catalyst::Controller'; }
 
 use NGCP::Panel::Form::Domain;
+use NGCP::Panel::Form::Preferences;
 
 =head1 NAME
 
@@ -160,6 +161,13 @@ sub preferences :Chained('base') :PathPart('preferences') :Args(0) {
         return;
     }
     
+    my $rs = $c->model('provisioning')->resultset('voip_preferences');
+    my $pref_form = NGCP::Panel::Form::Preferences->new({pref_rs => $rs});
+    $pref_form->create_my_fields();
+    $pref_form->process();
+    
+    $c->stash(pref_form => $pref_form);
+    
     $c->stash(template => 'domain/preferences.tt');
 }
 

lib/NGCP/Panel/Form/Preferences.pm

@@ -0,0 +1,64 @@
+package NGCP::Panel::Form::Preferences;
+
+use HTML::FormHandler::Moose;
+use Moose;
+extends 'HTML::FormHandler';
+use Moose::Util::TypeConstraints;
+use HTML::Entities qw/encode_entities/;
+
+use HTML::FormHandler::Widget::Block::Bootstrap;
+
+has '+widget_wrapper' => ( default => 'Bootstrap' );
+sub build_render_list {[qw/fields actions/]}
+sub build_form_element_class { [qw/form-horizontal/] }
+
+has 'pref_rs' => (is => 'rw');
+
+sub create_my_fields {
+    my $self = shift;
+    
+    my @field_list = ();
+    
+    foreach my $preference ($self->pref_rs->all) {
+        
+        my $field_type;
+        if($preference->data_type eq "string") {
+            $field_type = "Text";
+        } elsif ($preference->data_type eq "boolean") {
+            $field_type = "Boolean";
+        } else {
+            $field_type = "Boolean";
+        }
+        if($preference->max_occur == 0) {
+            $field_type = "Select";
+        }
+        
+        has_field $preference->attribute => (
+            type => $field_type,
+            element_attr => { title => encode_entities($preference->description) }
+        );
+        push @field_list, $preference->attribute;
+    }
+    
+    has_block 'fields' => (
+        tag => 'div',
+        #class => [qw/modal-body/],
+        render_list => \@field_list,
+    );
+}
+
+has_field 'save' => (
+    type => 'Submit',
+    value => 'Save',
+    element_class => [qw/btn btn-primary/],
+    label => '',
+);
+
+has_block 'actions' => (
+    tag => 'div',
+    #class => [qw/modal-footer/],
+    render_list => [qw/save/],
+);
+
+1;
+# vim: set tabstop=4 expandtab:

share/templates/domain/preferences.tt

@@ -1,5 +1,5 @@
 [% META title = 'Domain Preferences' -%]
 
-
+[% pref_form.render() %]
 
 [% # vim: set tabstop=4 syntax=html expandtab: -%]