MT#11009 Form->params => form->values

Change-Id: I22fba4d3c5f6cdfb774d2106a867563d0d2f8c74
changes/70/1670/2
Irina Peshinskaya 11 years ago
parent 3bc8f283a2
commit 78cf4f1e93

@ -646,34 +646,34 @@ sub subscriber_create :Chained('base') :PathPart('subscriber/create') :Args(0) {
my $pbxgroups = [];
if($pbx && !$pbxadmin) {
my $pilot = $c->stash->{pilot};
$form->params->{domain}{id} = $pilot->domain_id;
$form->values->{domain}{id} = $pilot->domain_id;
if ($form->value->{group_select}) {
$pbxgroups = decode_json($form->value->{group_select});
}
my $base_number = $pilot->primary_number;
if($base_number) {
$preferences->{cloud_pbx_base_cli} = $base_number->cc . $base_number->ac . $base_number->sn;
if(defined $form->params->{pbx_extension}) {
$form->params->{e164}{cc} = $base_number->cc;
$form->params->{e164}{ac} = $base_number->ac;
$form->params->{e164}{sn} = $base_number->sn . $form->params->{pbx_extension};
if(defined $form->values->{pbx_extension}) {
$form->values->{e164}{cc} = $base_number->cc;
$form->values->{e164}{ac} = $base_number->ac;
$form->values->{e164}{sn} = $base_number->sn . $form->values->{pbx_extension};
}
}
}
if($pbx) {
$form->params->{is_pbx_pilot} = 1 if $pbxadmin;
$form->values->{is_pbx_pilot} = 1 if $pbxadmin;
$preferences->{cloud_pbx} = 1;
$preferences->{cloud_pbx_ext} = $form->params->{pbx_extension};
if($pbxadmin && $form->params->{e164}{cc} && $form->params->{e164}{sn}) {
$preferences->{cloud_pbx_base_cli} = $form->params->{e164}{cc} .
($form->params->{e164}{ac} // '') .
$form->params->{e164}{sn};
$preferences->{cloud_pbx_ext} = $form->values->{pbx_extension};
if($pbxadmin && $form->values->{e164}{cc} && $form->values->{e164}{sn}) {
$preferences->{cloud_pbx_base_cli} = $form->values->{e164}{cc} .
($form->values->{e164}{ac} // '') .
$form->values->{e164}{sn};
}
if($c->stash->{pilot}) {
my $profile_set = $c->stash->{pilot}->provisioning_voip_subscriber->voip_subscriber_profile_set;
if($profile_set) {
$form->params->{profile_set}{id} = $profile_set->id;
$form->values->{profile_set}{id} = $profile_set->id;
}
}
@ -681,14 +681,14 @@ sub subscriber_create :Chained('base') :PathPart('subscriber/create') :Args(0) {
# TODO: only if it's not a fax/conf extension:
$preferences->{shared_buddylist_visibility} = 1;
$preferences->{display_name} = $form->params->{display_name}
if($form->params->{display_name});
$preferences->{display_name} = $form->values->{display_name}
if($form->values->{display_name});
}
if($c->stash->{contract}->external_id) {
$preferences->{ext_contract_id} = $c->stash->{contract}->external_id;
}
if(defined $form->params->{external_id}) {
$preferences->{ext_subscriber_id} = $form->params->{external_id};
if(defined $form->values->{external_id}) {
$preferences->{ext_subscriber_id} = $form->values->{external_id};
}
if($c->stash->{billing_mapping}->billing_profile->prepaid) {
$preferences->{prepaid} = 1;
@ -697,7 +697,7 @@ sub subscriber_create :Chained('base') :PathPart('subscriber/create') :Args(0) {
c => $c,
schema => $schema,
contract => $c->stash->{contract},
params => $form->params,
params => $form->values,
admin_default => 0,
preferences => $preferences,
);
@ -968,26 +968,26 @@ sub pbx_group_create :Chained('base') :PathPart('pbx/group/create') :Args(0) {
my $base_number = $pilot->primary_number;
if($base_number) {
$preferences->{cloud_pbx_base_cli} = $base_number->cc . $base_number->ac . $base_number->sn;
if(defined $form->params->{pbx_extension}) {
$form->params->{e164}{cc} = $base_number->cc;
$form->params->{e164}{ac} = $base_number->ac;
$form->params->{e164}{sn} = $base_number->sn . $form->params->{pbx_extension};
if(defined $form->values->{pbx_extension}) {
$form->values->{e164}{cc} = $base_number->cc;
$form->values->{e164}{ac} = $base_number->ac;
$form->values->{e164}{sn} = $base_number->sn . $form->values->{pbx_extension};
}
}
$form->params->{is_pbx_pilot} = 0;
$form->params->{is_pbx_group} = 1;
$form->params->{domain}{id} = $pilot->domain_id;
$form->params->{status} = 'active';
$form->values->{is_pbx_pilot} = 0;
$form->values->{is_pbx_group} = 1;
$form->values->{domain}{id} = $pilot->domain_id;
$form->values->{status} = 'active';
$preferences->{cloud_pbx} = 1;
$preferences->{cloud_pbx_hunt_policy} = $form->params->{pbx_hunt_policy};
$preferences->{cloud_pbx_hunt_timeout} = $form->params->{pbx_hunt_timeout};
$preferences->{cloud_pbx_ext} = $form->params->{pbx_extension};
$preferences->{cloud_pbx_hunt_policy} = $form->values->{pbx_hunt_policy};
$preferences->{cloud_pbx_hunt_timeout} = $form->values->{pbx_hunt_timeout};
$preferences->{cloud_pbx_ext} = $form->values->{pbx_extension};
my $billing_subscriber = NGCP::Panel::Utils::Subscriber::create_subscriber(
c => $c,
schema => $schema,
contract => $c->stash->{contract},
params => $form->params,
params => $form->values,
admin_default => 0,
preferences => $preferences,
);
@ -1069,23 +1069,23 @@ sub pbx_group_edit :Chained('pbx_group_base') :PathPart('edit') :Args(0) {
my $schema = $c->model('DB');
$schema->txn_do(sub {
my $old_extension = $c->stash->{pbx_group}->provisioning_voip_subscriber->pbx_extension;
$c->stash->{pbx_group}->provisioning_voip_subscriber->update($form->params);
$c->stash->{pbx_group}->provisioning_voip_subscriber->update($form->values);
NGCP::Panel::Utils::Subscriber::update_subscriber_pbx_policy(
c => $c,
prov_subscriber => $c->stash->{pbx_group}->provisioning_voip_subscriber,
'values' => {
cloud_pbx_hunt_policy => $form->params->{pbx_hunt_policy},
cloud_pbx_hunt_timeout => $form->params->{pbx_hunt_timeout},
cloud_pbx_hunt_policy => $form->values->{pbx_hunt_policy},
cloud_pbx_hunt_timeout => $form->values->{pbx_hunt_timeout},
}
);
if(defined $form->params->{pbx_extension} &&
$form->params->{pbx_extension} ne $old_extension) {
if(defined $form->values->{pbx_extension} &&
$form->values->{pbx_extension} ne $old_extension) {
my $sub = $c->stash->{pbx_group};
my $base_number = $c->stash->{pilot}->primary_number;
my $e164 = {
cc => $sub->primary_number->cc,
ac => $sub->primary_number->ac,
sn => $base_number->sn . $form->params->{pbx_extension},
sn => $base_number->sn . $form->values->{pbx_extension},
};
NGCP::Panel::Utils::Subscriber::update_subscriber_numbers(
c => $c,
@ -1148,12 +1148,12 @@ sub pbx_device_create :Chained('base') :PathPart('pbx/device/create') :Args(0) {
my $err;
my $schema = $c->model('DB');
$schema->txn_do( sub {
my $station_name = $form->params->{station_name};
my $identifier = lc $form->params->{identifier};
my $station_name = $form->values->{station_name};
my $identifier = lc $form->values->{identifier};
if($identifier =~ /^([a-f0-9]{2}:){5}[a-f0-9]{2}$/) {
$identifier =~ s/\://g;
}
my $profile_id = $form->params->{profile_id};
my $profile_id = $form->values->{profile_id};
my $fdev = $c->stash->{contract}->autoprov_field_devices->create({
profile_id => $profile_id,
identifier => $identifier,
@ -1272,13 +1272,13 @@ sub pbx_device_edit :Chained('pbx_device_base') :PathPart('edit') :Args(0) {
my $schema = $c->model('DB');
$schema->txn_do( sub {
my $fdev = $c->stash->{pbx_device};
my $station_name = $form->params->{station_name};
my $identifier = lc $form->params->{identifier};
my $station_name = $form->values->{station_name};
my $identifier = lc $form->values->{identifier};
if($identifier =~ /^([a-f0-9]{2}:){5}[a-f0-9]{2}$/) {
$identifier =~ s/\://g;
}
my $old_identifier = $fdev->identifier;
my $profile_id = $form->params->{profile_id};
my $profile_id = $form->values->{profile_id};
$fdev->update({
profile_id => $profile_id,
identifier => $identifier,

@ -156,7 +156,7 @@ sub create :Chained('inv_list') :PathPart('create') :Args() :Does(ACL) :ACLDetac
try {
my $schema = $c->model('DB');
$schema->txn_do(sub {
my $contract_id = $form->params->{contract}{id};
my $contract_id = $form->values->{contract}{id};
my $customer_rs = NGCP::Panel::Utils::Contract::get_customer_rs(c => $c);
my $customer = $customer_rs->find({ 'me.id' => $contract_id });
unless($customer) {
@ -167,11 +167,11 @@ sub create :Chained('inv_list') :PathPart('create') :Args() :Does(ACL) :ACLDetac
);
die;
}
delete $form->params->{contract};
$form->params->{contract_id} = $contract_id;
delete $form->values->{contract};
$form->values->{contract_id} = $contract_id;
my $tmpl_id = $form->params->{template}{id};
delete $form->params->{template};
my $tmpl_id = $form->values->{template}{id};
delete $form->values->{template};
my $tmpl = $schema->resultset('invoice_templates')->search({
id => $tmpl_id,
@ -210,7 +210,7 @@ sub create :Chained('inv_list') :PathPart('create') :Args() :Does(ACL) :ACLDetac
}
my $stime = NGCP::Panel::Utils::DateTime::from_string(
delete $form->params->{period}
delete $form->values->{period}
)->truncate(to => 'month');
my $etime = $stime->clone->add(months => 1)->subtract(seconds => 1);
@ -262,18 +262,18 @@ sub create :Chained('inv_list') :PathPart('create') :Args() :Does(ACL) :ACLDetac
billing_profile => {$billing_profile->get_inflated_columns},
contract_balance => {$balance->get_inflated_columns},
);
@{$form->params}{qw/amount_net amount_vat amount_total/} = @$invoice_amounts{qw/amount_net amount_vat amount_total/};
@{$form->values}{qw/amount_net amount_vat amount_total/} = @$invoice_amounts{qw/amount_net amount_vat amount_total/};
# generate tmp serial here, derive one from after insert
$form->params->{serial} = "tmp".time.int(rand(99999));
$form->params->{data} = undef;
$form->values->{serial} = "tmp".time.int(rand(99999));
$form->values->{data} = undef;
#maybe inflation should be applied? Generation failed here, although the latest schema applied.
$form->params->{period_start} = $stime->ymd.' '. $stime->hms;
$form->params->{period_end} = $etime->ymd.' '. $etime->hms;
$form->values->{period_start} = $stime->ymd.' '. $stime->hms;
$form->values->{period_end} = $etime->ymd.' '. $etime->hms;
my $invoice;
try {
$invoice = $schema->resultset('invoices')->create($form->params);
$invoice = $schema->resultset('invoices')->create($form->values);
} catch($e) {
NGCP::Panel::Utils::Message->error(
c => $c,
@ -312,9 +312,9 @@ sub create :Chained('inv_list') :PathPart('create') :Args() :Does(ACL) :ACLDetac
period_start => $stime,
period_end => $etime,
serial => $serial,
amount_net => $form->params->{amount_net},
amount_vat => $form->params->{amount_vat},
amount_total => $form->params->{amount_total},
amount_net => $form->values->{amount_net},
amount_vat => $form->values->{amount_vat},
amount_total => $form->values->{amount_total},
};
$vars->{calls} = $calllist,
$vars->{zones} = {

@ -133,21 +133,21 @@ sub create :Chained('template_list') :PathPart('create') :Args() {
my $schema = $c->model('DB');
$schema->txn_do(sub {
if($c->user->roles eq "admin") {
$form->params->{reseller_id} = $reseller_id ? $reseller_id : $form->params->{reseller}{id};
$form->values->{reseller_id} = $reseller_id ? $reseller_id : $form->values->{reseller}{id};
} elsif($c->user->roles eq "reseller") {
$form->params->{reseller_id} = $c->user->reseller_id;
$form->values->{reseller_id} = $c->user->reseller_id;
}
delete $form->params->{reseller};
delete $form->values->{reseller};
my $dup_item = $schema->resultset('invoice_templates')->find({
reseller_id => $form->params->{reseller_id},
name => $form->params->{name},
reseller_id => $form->values->{reseller_id},
name => $form->values->{name},
});
if($dup_item) {
die( ["Template name should be unique", "showdetails"] );
}
my $tmpl_params = $form->params;
my $tmpl_params = $form->values;
$tmpl_params->{data} //= NGCP::Panel::Utils::InvoiceTemplate::svg_content($c, $tmpl_params->{data});
my $tmpl = $c->stash->{tmpl_rs}->create($tmpl_params);
@ -204,21 +204,21 @@ sub edit_info :Chained('base') :PathPart('editinfo') {
my $schema = $c->model('DB');
$schema->txn_do(sub {
if($c->user->roles eq "admin") {
$form->params->{reseller_id} = $form->params->{reseller}{id};
$form->values->{reseller_id} = $form->values->{reseller}{id};
} elsif($c->user->roles eq "reseller") {
$form->params->{reseller_id} = $c->user->reseller_id;
$form->values->{reseller_id} = $c->user->reseller_id;
}
delete $form->params->{reseller};
delete $form->values->{reseller};
my $dup_item = $schema->resultset('invoice_templates')->find({
reseller_id => $form->params->{reseller_id},
name => $form->params->{name},
reseller_id => $form->values->{reseller_id},
name => $form->values->{name},
});
if($dup_item && $dup_item->id != $tmpl->id) {
die( ["Template name should be unique", "showdetails"] );
}
$tmpl->update($form->params);
$tmpl->update($form->values);
delete $c->session->{created_objects}->{reseller};
});

@ -280,11 +280,11 @@ sub set_clone :Chained('set_base') :PathPart('clone') :Does(ACL) :ACLDetachTo('/
$schema->txn_do(sub {
my $reseller_id;
if($c->user->roles eq "admin") {
$reseller_id = $form->params->{reseller}{id};
$reseller_id = $form->values->{reseller}{id};
} else {
$reseller_id = $c->stash->{set}->reseller_id,
}
delete $form->params->{reseller};
delete $form->values->{reseller};
my $new_set = $schema->resultset('voip_subscriber_profile_sets')->create({
%{ $form->values },
reseller_id => $c->stash->{set}->reseller_id,

@ -495,23 +495,23 @@ sub create_preference_form {
} elsif ($c->stash->{preference_meta}->max_occur != 1) {
if($c->stash->{subscriber} &&
($c->stash->{preference_meta}->attribute eq "block_in_list" || $c->stash->{preference_meta}->attribute eq "block_out_list")) {
my $v = $form->params->{$c->stash->{preference_meta}->attribute};
my $v = $form->values->{$c->stash->{preference_meta}->attribute};
if($c->user->roles eq "subscriberadmin" || $c->user->roles eq "subscriber") {
$v =~ s/^(.+?)([*\[].*$)/$1/; # strip any trailing shell pattern stuff
my $suffix = $2 // "";
$form->params->{$c->stash->{preference_meta}->attribute} = NGCP::Panel::Utils::Subscriber::apply_rewrite(
$form->values->{$c->stash->{preference_meta}->attribute} = NGCP::Panel::Utils::Subscriber::apply_rewrite(
c => $c, subscriber => $c->stash->{subscriber}, number => $v, direction => 'callee_in'
);
# rewrite it back for immediate display
$v = $form->params->{$c->stash->{preference_meta}->attribute};
$v = $form->values->{$c->stash->{preference_meta}->attribute};
$v = NGCP::Panel::Utils::Subscriber::apply_rewrite(
c => $c, subscriber => $c->stash->{subscriber}, number => $v, direction => 'caller_out'
);
# restore stripped shell pattern stuff
$form->params->{$c->stash->{preference_meta}->attribute} .= $suffix;
$form->values->{$c->stash->{preference_meta}->attribute} .= $suffix;
$v .= $suffix;
}
@ -520,7 +520,7 @@ sub create_preference_form {
try {
$pref_rs->create({
attribute_id => $c->stash->{preference_meta}->id,
value => $form->params->{$c->stash->{preference_meta}->attribute},
value => $form->values->{$c->stash->{preference_meta}->attribute},
});
NGCP::Panel::Utils::Message->info(
c => $c,

Loading…
Cancel
Save