Добавлен эндпойнт /v1/admin/reviews #20

src/logic/logic_review.erl

@@ -2,8 +2,9 @@
 -include("records.hrl").
 
 -export([create_review/5, get_review/2, list_reviews/3, list_user_reviews/1,
-  update_review/3, delete_review/2, hide_review/2, unhide_review/2]).
+  update_review/3, delete_review/2, hide_review/2, hide_review/3, unhide_review/2, unhide_review/3]).
 -export([can_review/3, update_target_rating/2, can_moderate_review/2]).
+-export([list_admin_reviews/1, bulk_update_status/1]).
 
 %% Создание отзыва
 create_review(UserId, TargetType, TargetId, Rating, Comment) ->
@@ -114,9 +115,12 @@ delete_review(UserId, ReviewId) ->
   end.
 
 hide_review(UserId, ReviewId) ->
+  hide_review(UserId, ReviewId, <<>>).
+
+hide_review(UserId, ReviewId, Reason) ->
   case can_moderate_review(UserId, ReviewId) of
     true ->
-      case core_review:hide(ReviewId) of
+      case core_review:hide(ReviewId, Reason) of
         {ok, Review} ->
           update_target_rating(Review#review.target_type, Review#review.target_id),
           {ok, Review};
@@ -128,9 +132,11 @@ hide_review(UserId, ReviewId) ->
   end.
 
 unhide_review(UserId, ReviewId) ->
+  unhide_review(UserId, ReviewId, <<>>).
+unhide_review(UserId, ReviewId, Reason) ->
   case can_moderate_review(UserId, ReviewId) of
     true ->
-      case core_review:unhide(ReviewId) of
+      case core_review:unhide(ReviewId, Reason) of
         {ok, Review} ->
           update_target_rating(Review#review.target_type, Review#review.target_id),
           {ok, Review};
@@ -187,6 +193,64 @@ can_moderate_review(UserId, ReviewId) ->
       end
   end.
 
+%%%-------------------------------------------------------------------
+%%% @doc Получить список всех отзывов (административный режим).
+%%% Фильтры: [{target_type, Type}, {target_id, Id}, {user_id, UserId}]
+%%% Все фильтры опциональны.
+%%% @end
+%%%-------------------------------------------------------------------
+list_admin_reviews(Filters) ->
+  AllReviews = core_review:list_all(),
+  apply_filters(AllReviews, Filters).
+
+%% Вспомогательная функция: фильтрация списка по proplist
+apply_filters(Reviews, []) ->
+  Reviews;
+apply_filters(Reviews, [{target_type, Type} | Rest]) ->
+  apply_filters(
+    [R || R <- Reviews, R#review.target_type =:= Type],
+    Rest
+  );
+apply_filters(Reviews, [{target_id, Id} | Rest]) ->
+  apply_filters(
+    [R || R <- Reviews, R#review.target_id =:= Id],
+    Rest
+  );
+apply_filters(Reviews, [{user_id, UserId} | Rest]) ->
+  apply_filters(
+    [R || R <- Reviews, R#review.user_id =:= UserId],
+    Rest
+  );
+apply_filters(Reviews, [_ | Rest]) ->
+  apply_filters(Reviews, Rest).   % Игнорируем неизвестные фильтры
+
+%%%-------------------------------------------------------------------
+%%% @doc Массово обновить статусы отзывов.
+%%% Operations: [#{id => ReviewId, status => visible | hidden}, ...]
+%%% Все изменения выполняются в одной Mnesia-транзакции.
+%%% @end
+%%%-------------------------------------------------------------------
+bulk_update_status(Operations) when is_list(Operations) ->
+  Fun = fun() ->
+    lists:foreach(fun do_update_status/1, Operations)
+        end,
+  case mnesia:transaction(Fun) of
+    {atomic, ok} ->
+      {ok, length(Operations)};
+    {aborted, Reason} ->
+      {error, Reason}
+  end.
+
+do_update_status(#{<<"id">> := Id, <<"status">> := NewStatus}) ->
+  case core_review:get_by_id(Id) of
+    {ok, Review} ->
+      IdReview = Review#review{id = Id},
+      UpdatedReview = Review#review{status = NewStatus},
+      core_review:update(IdReview, UpdatedReview);
+    not_found ->
+      mnesia:abort(<<"review_not_found">>)
+  end.
+
 %% Внутренние функции
 target_exists(event, EventId) ->
   case core_event:get_by_id(EventId) of