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.
146 lines
3.3 KiB
146 lines
3.3 KiB
package NGCP::Panel::Form::Customer::PbxFieldDevice;
|
|
|
|
use HTML::FormHandler::Moose;
|
|
extends 'HTML::FormHandler';
|
|
|
|
use HTML::FormHandler::Widget::Block::Bootstrap;
|
|
|
|
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 'profile_id' => (
|
|
type => '+NGCP::Panel::Field::Select',
|
|
required => 1,
|
|
label => 'Device',
|
|
options_method => \&build_profiles,
|
|
element_attr => {
|
|
rel => ['tooltip'],
|
|
title => ['The PBX device.']
|
|
},
|
|
translate => 0,
|
|
);
|
|
sub build_profiles {
|
|
my ($self) = @_;
|
|
my $c = $self->form->ctx;
|
|
return unless $c;
|
|
my $profile_rs = $c->stash->{autoprov_profile_rs};
|
|
my @options = ();
|
|
foreach my $p($profile_rs->all) {
|
|
push @options, { label => $p->name, value => $p->id };
|
|
}
|
|
return \@options;
|
|
}
|
|
|
|
has_field 'identifier' => (
|
|
type => 'Text',
|
|
required => 1,
|
|
label => 'MAC Address',
|
|
element_attr => {
|
|
rel => ['tooltip'],
|
|
title => ['The MAC address of the device.']
|
|
},
|
|
);
|
|
|
|
has_field 'station_name' => (
|
|
type => 'Text',
|
|
required => 1,
|
|
label => 'Station Name',
|
|
element_attr => {
|
|
rel => ['tooltip'],
|
|
title => ['The name to display on the device (usually the name of the person this device belongs to).']
|
|
},
|
|
);
|
|
|
|
has_field 'line' => (
|
|
type => 'Repeatable',
|
|
label => 'Lines/Keys',
|
|
do_wrapper => 0,
|
|
do_label => 0,
|
|
);
|
|
|
|
has_field 'line.subscriber_id' => (
|
|
type => 'Hidden',
|
|
required => 1,
|
|
);
|
|
|
|
has_field 'line.line' => (
|
|
type => 'Hidden',
|
|
required => 1,
|
|
);
|
|
|
|
has_field 'line.extension_unit' => (
|
|
type => 'Hidden',
|
|
#we allow also other for of the unit specification, or even no unit - then db value will be 0
|
|
required => 0,
|
|
);
|
|
sub validate_line_line {
|
|
my ($self, $field) = @_;
|
|
$field->clear_errors;
|
|
unless($field->value =~ /^\d+\.\d+(?:\.\d+)?$/) {
|
|
my $err_msg = 'Invalid line value';
|
|
$field->add_error($err_msg);
|
|
}
|
|
return;
|
|
}
|
|
|
|
has_field 'line.type' => (
|
|
type => 'Hidden',
|
|
required => 1,
|
|
);
|
|
|
|
has_field 'line.target_number' => (
|
|
type => 'PosInteger',
|
|
type => 'Hidden',
|
|
required => 0,
|
|
);
|
|
|
|
has_field 'line.label' => (
|
|
type => 'Text',
|
|
type => 'Hidden',
|
|
required => 0,
|
|
);
|
|
|
|
has_field 'line.switch' => (
|
|
type => 'Hidden',
|
|
required => 0,
|
|
);
|
|
|
|
sub validate_line_type {
|
|
my ($self, $field) = @_;
|
|
$field->clear_errors;
|
|
unless($field->value eq 'private' ||
|
|
$field->value eq 'shared' ||
|
|
$field->value eq 'blf' ||
|
|
$field->value eq 'speeddial' ||
|
|
$field->value eq 'forward' ||
|
|
$field->value eq 'transfer') {
|
|
my $err_msg = 'Invalid line type, must be private, shared, blf, speeddial, forward or transfer';
|
|
$field->add_error($err_msg);
|
|
}
|
|
return;
|
|
}
|
|
|
|
has_field 'save' => (
|
|
type => 'Submit',
|
|
value => 'Save',
|
|
element_class => [qw/btn btn-primary/],
|
|
label => '',
|
|
);
|
|
|
|
has_block 'fields' => (
|
|
tag => 'div',
|
|
class => [qw/modal-body/],
|
|
render_list => [qw/profile_id identifier station_name line/],
|
|
);
|
|
|
|
has_block 'actions' => (
|
|
tag => 'div',
|
|
class => [qw/modal-footer/],
|
|
render_list => [qw/save/],
|
|
);
|
|
|
|
1;
|
|
# vim: set tabstop=4 expandtab:
|