You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
ngcp-panel/lib/NGCP/Panel/Form/SubscriberCFSimple.pm

168 lines
4.8 KiB

package NGCP::Panel::Form::SubscriberCFSimple;
use HTML::FormHandler::Moose;
use HTML::FormHandler::Widget::Block::Bootstrap;
use NGCP::Panel::Field::PosInteger;
use NGCP::Panel::Field::URI;
extends 'HTML::FormHandler';
has '+widget_wrapper' => (default => 'Bootstrap');
has_field 'submitid' => ( type => 'Hidden' );
sub build_render_list {[qw/submitid fields actions/]}
sub build_form_element_class {[qw(form-horizontal)]}
has_field 'id' => (
type => 'Hidden',
noupdate => 1,
);
has_field 'destination' => (
type => 'Compound',
);
has_field 'destination.id' => (
type => 'Hidden',
);
has_field 'destination.destination' => (
type => 'Select',
widget => 'RadioGroup',
label => 'Destination',
do_label => 1,
options_method => \&build_destinations,
default => 'uri',
);
has_field 'enabled' => (
type => 'Boolean',
default => 1,
element_attr => {
rel => ['tooltip'],
title => ['Enables or disables the Call Forward rule from beign used.'],
},
);
has_field 'use_redirection' => (
type => 'Boolean',
default => 0,
element_attr => {
rel => ['tooltip'],
title => ['For calls coming from PSTN only, it enables or disables the usage of a 302 Redirection instead of the standard internal Call Forward.'],
},
);
sub build_destinations {
my ($self) = @_;
my @options = ();
push @options, { label => 'Voicemail', value => 'voicebox' };
my $c = $self->form->ctx;
if(defined $c) {
push @options, { label => 'Conference', value => 'conference' }
if($c->config->{features}->{conference});
push @options, { label => 'Fax2Mail', value => 'fax2mail' }
if($c->config->{features}->{faxserver});
push @options, { label => 'Calling Card', value => 'callingcard' }
if($c->config->{features}->{callingcard});
push @options, { label => 'Call Through', value => 'callthrough' }
if($c->config->{features}->{callthrough});
if($c->config->{features}->{cloudpbx} && $c->stash->{pbx}){
push @options,
{ label => 'Auto Attendant', value => 'autoattendant' },
{ label => 'Office Hours Announcement', value => 'officehours' };
}
push @options,
{ label => 'Custom Announcement', value => 'customhours' };
push @options, { label => 'Manager Secretary', value => 'managersecretary' }
if($c->config->{features}->{manager_secretary});
}
push @options, { label => 'URI/Number', value => 'uri' };
return \@options;
}
has_field 'destination.uri' => (
type => 'Compound',
do_label => 0,
);
has_field 'destination.uri.destination' => (
type => '+NGCP::Panel::Field::URI',
label => 'URI/Number',
);
has_field 'destination.uri.timeout' => (
type => '+NGCP::Panel::Field::PosInteger',
label => 'for (seconds)',
default => 300,
element_attr => {
rel => ['tooltip'],
title => ['NOTE: please note that for some scenarios the value is ignored, despite the fact that the field can be freely changed.']
},
);
has_field 'destination.announcement_id' => (
type => 'Select',
#widget => 'RadioGroup',
label => 'Custom announcement',
options_method => \&build_announcements,
wrapper_class => [qw/hfh-rep-field ngcp-destination ngcp-destination-customhours/],
required => 0,
);
has_field 'cf_actions' => (
type => 'Compound',
do_label => 0,
do_wrapper => 1,
wrapper_class => [qw(row pull-right)],
);
has_field 'cf_actions.save' => (
type => 'Button',
do_label => 0,
value => 'Save',
element_class => [qw(btn btn-primary)],
wrapper_class => [qw(pull-right)],
);
has_field 'cf_actions.advanced' => (
type => 'Button',
do_label => 0,
value => 'Advanced View',
element_class => [qw(btn btn-tertiary)],
wrapper_class => [qw(pull-right)],
);
has_block 'fields' => (
tag => 'div',
class => [qw(modal-body)],
render_list => [qw(destination enabled use_redirection)],
);
has_block 'actions' => (tag => 'div', class => [qw(modal-footer)], render_list => [qw(cf_actions)],);
sub validate_destination{
my ( $self, $field ) = @_;
my $result = 0;
(my($uri_field)) = grep {'destination' eq $_->name} ($field->field('uri')->fields);
if( 'uri' eq $field->field('destination')->value
&& !$uri_field->value ){
$uri_field->add_error($uri_field->label . " is empty");
$result = 0;
}
return $result;
}
sub build_announcements {
my ($self) = @_;
my @options = ();
my $c = $self->form->ctx;
if(defined $c) {
push @options, { label => 'Select announcement', value => '' };
foreach($c->stash->{custom_announcements_rs}->all){
push @options, { label => $_->name, value => $_->id };
}
}
return \@options;
}
1;
# vim: set tabstop=4 expandtab: