sipwise
/
ngcp-panel
mirror of https://github.com/sipwise/ngcp-panel.git
1
0
Fork 0
Code Issues Releases Wiki Activity

TT#28460 Introduce return_representation in item packages

Browse Source 
Change-Id: Ibc2afdffd8a70245b6656f78bad2c4fc5273526e
changes/97/8997/25
Irina Peshinskaya 10 years ago
parent 2498c8810e
commit 6dbb3b2229
41 changed files with 83 additions and 1042 deletions
Show Stats Download Patch File Download Diff File

28
lib/NGCP/Panel/Controller/API/AutoAttendantsItem.pm
Unescape View File

@ -113,19 +113,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $subscriber);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -161,19 +149,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $subscriber);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

32
lib/NGCP/Panel/Controller/API/BillingFeesItem.pm
Unescape View File

@ -101,20 +101,8 @@ sub PATCH :Allow {
last unless $fee;
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_fee($c, $fee, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
my $hal = $self->hal_from_fee($c, $fee, $form);
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -141,20 +129,8 @@ sub PUT :Allow {
last unless $fee;
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_fee($c, $fee, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
my $hal = $self->hal_from_fee($c, $fee, $form);
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/BillingNetworksItem.pm
Unescape View File

@ -118,19 +118,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $dset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -161,19 +149,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $dset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/BillingProfilesItem.pm
Unescape View File

@ -116,19 +116,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_profile($c, $profile, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_profile($c, $profile, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/BillingZonesItem.pm
Unescape View File

@ -115,19 +115,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_zone($c, $zone, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -158,19 +146,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_zone($c, $zone, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CCMapEntriesItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $ccmapentry, "ccmapentries");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, "ccmapentries");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CFDestinationSetsItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $dset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $dset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CFMappingsItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, "cfmappings");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, "cfmappings");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CFSourceSetsItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $sset, "sourcesets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $sset, "sourcesets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CFTimeSetsItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $tset, "timesets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $tset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CallForwardsItem.pm
Unescape View File

@ -117,19 +117,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $callforward);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $callforward);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/ContractsItem.pm
Unescape View File

@ -132,19 +132,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_contract($c, $contract, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -179,19 +167,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_contract($c, $contract, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/CustomerBalancesItem.pm
Unescape View File

@ -111,23 +111,11 @@ sub PATCH :Allow {
last unless $item;
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c,$hal);
last unless $self->add_update_journal_item_hal($c, $hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -160,19 +148,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

27
lib/NGCP/Panel/Controller/API/CustomerLocationsItem.pm
Unescape View File

@ -118,19 +118,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $dset, "destinationsets");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -161,18 +149,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/CustomerPreferencesItem.pm
Unescape View File

@ -118,19 +118,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $customer, "contracts");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -162,19 +150,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $customer, "contracts");
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/CustomersItem.pm
Unescape View File

@ -138,23 +138,11 @@ sub PATCH :Allow {
last unless $customer;
my $hal = $self->hal_from_customer($c, $customer, $form, $now);
last unless $self->add_update_journal_item_hal($c,$hal);
last unless $self->add_update_journal_item_hal($c, $hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_customer($c, $customer, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -187,19 +175,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_customer($c, $customer, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/EmailTemplatesItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/EmergencyMappingContainersItem.pm
Unescape View File

@ -102,19 +102,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -142,19 +130,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/EmergencyMappingsItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/InterceptionsItem.pm
Unescape View File

@ -114,19 +114,7 @@ sub PATCH :Allow {
$guard->commit;
$cguard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$cguard->commit; $self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -156,19 +144,7 @@ sub PUT :Allow {
$guard->commit;
$cguard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$cguard->commit; $self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/LnpCarriersItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/LnpNumbersItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/NcosLevelsItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/NcosLnpCarriersItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/NcosPatternsItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

14
lib/NGCP/Panel/Controller/API/PbxDeviceConfigsItem.pm
Unescape View File

@ -100,19 +100,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

14
lib/NGCP/Panel/Controller/API/PbxDeviceFirmwaresItem.pm
Unescape View File

@ -105,19 +105,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/PbxDeviceProfilesItem.pm
Unescape View File

@ -110,19 +110,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -157,19 +145,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/PeeringGroupsItem.pm
Unescape View File

@ -91,19 +91,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -131,19 +119,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/PeeringInboundRulesItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/PeeringRulesItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -139,21 +127,7 @@ sub PUT :Allow {
$item = $self->update_item($c, $item, $old_resource, $resource, $form);
last unless $item;
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/RemindersItem.pm
Unescape View File

@ -111,19 +111,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -152,21 +140,7 @@ sub PUT :Allow {
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c,$hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

14
lib/NGCP/Panel/Controller/API/SoundFilesItem.pm
Unescape View File

@ -99,19 +99,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/SoundSetsItem.pm
Unescape View File

@ -114,19 +114,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -155,21 +143,7 @@ sub PUT :Allow {
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c,$hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/SubscriberProfileSetsItem.pm
Unescape View File

@ -121,19 +121,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -169,21 +157,7 @@ sub PUT :Allow {
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c,$hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/SubscriberProfilesItem.pm
Unescape View File

@ -116,19 +116,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -156,21 +144,7 @@ sub PUT :Allow {
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c,$hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/SystemContactsItem.pm
Unescape View File

@ -116,19 +116,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_contact($c, $contact, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -159,19 +147,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_contact($c, $contact, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/UpnRewriteSetsItem.pm
Unescape View File

@ -115,19 +115,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -158,19 +146,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

30
lib/NGCP/Panel/Controller/API/VoicemailSettingsItem.pm
Unescape View File

@ -111,19 +111,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}
@ -151,21 +139,7 @@ sub PUT :Allow {
my $hal = $self->hal_from_item($c, $item, $form);
last unless $self->add_update_journal_item_hal($c, $hal);
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
#my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$guard->commit; $self->return_representation($c, 'hal' => $hal, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/VoicemailsItem.pm
Unescape View File

@ -101,19 +101,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -141,19 +129,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

28
lib/NGCP/Panel/Controller/API/VouchersItem.pm
Unescape View File

@ -106,19 +106,7 @@ sub PATCH :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}
@ -151,19 +139,7 @@ sub PUT :Allow {
$guard->commit;
if ('minimal' eq $preference) {
$c->response->status(HTTP_NO_CONTENT);
$c->response->header(Preference_Applied => 'return=minimal');
$c->response->body(q());
} else {
my $hal = $self->hal_from_item($c, $item, $form);
my $response = HTTP::Response->new(HTTP_OK, undef, HTTP::Headers->new(
$hal->http_headers,
), $hal->as_json);
$c->response->headers($response->headers);
$c->response->header(Preference_Applied => 'return=representation');
$c->response->body($response->content);
}
$self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
}
return;
}

Write Preview
Loading…
Cancel
Save