TT#56060 Implement PATCH method for soundfiles

* There is now a PATCH method for soundfiles so
	  their details can be updated without uploading
	  a new file

Change-Id: I96e7b453b9830c40d24c15f5ca364021373dfdee

lib/NGCP/Panel/Controller/API/SoundFilesItem.pm

@@ -12,7 +12,7 @@ require NGCP::Panel::Role::HTTPMethods;
 require Catalyst::ActionRole::RequireSSL;
 
 sub allowed_methods{
-    return [qw/GET OPTIONS HEAD PUT DELETE/];
+    return [qw/GET OPTIONS HEAD PUT PATCH DELETE/];
 }
 
 use parent qw/NGCP::Panel::Role::EntitiesItem NGCP::Panel::Role::API::SoundFiles/;
@@ -85,6 +85,37 @@ sub PUT :Allow {
     return;
 }
 
+sub PATCH :Allow {
+    my ($self, $c, $id) = @_;
+    my $guard = $c->model('DB')->txn_scope_guard;
+    {
+        my $preference = $self->require_preference($c);
+        last unless $preference;
+
+        my $json = $self->get_valid_patch_data(
+            c => $c,
+            id => $id,
+            media_type => 'application/json-patch+json',
+        );
+        last unless $json;
+
+        my $item = $self->item_by_id($c, $id);
+        last unless $self->resource_exists($c, soundfile => $item);
+        my $form = $self->get_form($c);
+        my $old_resource = $self->resource_from_item($c, $item, $form);
+        my $resource = $self->apply_patch($c, $old_resource, $json);
+        last unless $resource;
+
+        $item = $self->update_item($c, $item, $old_resource, $resource, $form);
+        last unless $item;
+
+        $guard->commit;
+
+        $self->return_representation($c, 'item' => $item, 'form' => $form, 'preference' => $preference );
+    }
+    return;
+}
+
 sub DELETE :Allow {
     my ($self, $c, $id) = @_;
 

lib/NGCP/Panel/Role/API/SoundFiles.pm

@@ -189,15 +189,18 @@ sub update_item {
         return;
     }
 
-    my $from_codec = mime_type_to_extension($c->req->content_type) // '';
-    $resource->{codec} = 'WAV';
-    $resource->{data} = $recording;
-    $resource = $self->transcode_data($c, $from_codec, $resource);
-    unless ($resource) {
-        $c->log->error("Failed to transcode sound file",);
-        $self->error($c, HTTP_UNPROCESSABLE_ENTITY, 'Failed to transcode sound file');
-        return;
+    if ( $recording ) {
+        my $from_codec = mime_type_to_extension($c->req->content_type) // '';
+        $resource->{codec} = 'WAV';
+        $resource->{data} = $recording;
+        $resource = $self->transcode_data($c, $from_codec, $resource);
+        unless ($resource) {
+            $c->log->error("Failed to transcode sound file",);
+            $self->error($c, HTTP_UNPROCESSABLE_ENTITY, 'Failed to transcode sound file');
+            return;
+        }
     }
+
     delete $resource->{handle};
 
     try {