zotonic_mod_admin_merge

%% @author Marc Worrell <marc@worrell.nl>
%% @copyright 2015 Marc Worrell
%% @doc UI for merging resources in the admin.
%% @end

%% Copyright 2015 Marc Worrell
%%
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.

-module(mod_admin_merge).
-moduledoc("
Adds functonality to merge two pages together into a single page.

In an interface the *winner* and *loser* can be selected. All connections and properties from the loser are merged into
the winner. Properties of the winner are unchanged.

After merging the loser will be deleted. Visits to the deleted page will be redirected to the winner page using a *410 Gone*.

On the admin page editor a side panel is added for opening the merge page.

Accepted Events
---------------


Delegate callbacks:

- `event/2` with `postback` messages: `merge_select`.
- `event/2` with `submit` messages: `merge`.
- `event/2` with `postback_notify` messages: `<<\"feedback\">>`.

").
-author("Marc Worrell <marc@worrell.nl>").

-mod_title("Admin Merge").
-mod_description("User interface to merge resources in the admin.").
-mod_prio(500).
-mod_depends([admin]).
-mod_provides([]).

-export([
    event/2
]).

-include_lib("zotonic_core/include/zotonic.hrl").
-include_lib("zotonic_mod_wires/include/mod_wires.hrl").

event(#postback_notify{message = <<"feedback">>, trigger = <<"dialog-merge-find">>, target=TargetId}, Context) ->
    % Find pages matching the search criteria.
    Category = z_context:get_q(<<"find_category">>, Context, <<>>),
    Text = z_context:get_q(<<"find_text">>, Context),
    Cats = case Category of
                <<>> -> [];
                CatId -> [{z_convert:to_integer(CatId)}]
           end,
    Vars = [
        {id, m_rsc:rid(z_context:get_q(<<"id">>, Context), Context)},
        {cat, Cats},
        {text, Text}
    ],
    z_render:wire([
        {remove_class, [{target, TargetId}, {class, "loading"}]},
        {update, [{target, TargetId}, {template, "_merge_find_results.tpl"} | Vars]}
    ], Context);

event(#postback{ message={merge_select, Args} }, Context) ->
    {id, Id} = proplists:lookup(id, Args),
    SelectId = m_rsc:rid(z_context:get_q(<<"select_id">>, Context), Context),
    case z_acl:rsc_editable(Id, Context) andalso z_acl:rsc_editable(SelectId, Context) of
        true ->
            z_render:wire({redirect, [{dispatch, admin_merge_rsc_compare}, {id,Id}, {id2, SelectId}]}, Context);
        false ->
            z_render:growl(?__("Sorry, you have no permission to edit this page.", Context), Context)
    end;

event(#submit{ message={merge, Args} }, Context) ->
    {winner_id, WinnerId} = proplists:lookup(winner_id, Args),
    {loser_id, LoserId} = proplists:lookup(loser_id, Args),
    MergeAction = z_context:get_q(<<"merge_action">>, Context),
    IsMergeTrans = z_convert:to_bool(z_context:get_q("is_merge_trans", Context)),
    ?LOG_INFO(#{
        text => <<"Merge resources">>,
        in => zotonic_mod_admin_merge,
        action => MergeAction,
        winner_id => WinnerId,
        loser_id => LoserId,
        is_trans => IsMergeTrans
    }),
    merge(WinnerId, LoserId, MergeAction, IsMergeTrans, Context).

merge(_WinnerId, _LoserId = 1, _MergeAction, _IsMergeTrans, Context) ->
    z_render:wire({alert, [{text,?__("You cannot remove the admin user.", Context)}]}, Context);
merge(WinnerId, _LoserId, <<"merge_only">>, _IsMergeTrans, Context)  ->
    case z_acl:rsc_editable(WinnerId, Context) of
        false ->
            z_render:wire({alert, [{text,?__("You do not have permission to edit the winner.", Context)}]}, Context);
        true ->
            % ContextSpawn = z_context:prune_for_spawn(Context),
            % erlang:spawn(
            %     fun() ->
            %         ok = m_rsc:merge_delete(WinnerId, LoserId, ContextSpawn),
            %         z_session_page:add_script(
            %             z_render:wire({redirect, [{dispatch, admin_edit_rsc}, {id, WinnerId}]}, ContextSpawn))
            %     end),
            z_render:wire([
                    {growl, [{text, ?__("not implemented yet", Context)}]},
                    {dialog_close, []}
                ], Context)
    end;
merge(WinnerId, LoserId, <<"merge_delete">>, IsMergeTrans, Context) ->
    case {m_rsc:p_no_acl(LoserId, is_protected, Context),
          z_acl:rsc_deletable(LoserId, Context),
          z_acl:rsc_editable(WinnerId, Context)}
    of
        {true, _, _} ->
            z_render:wire({alert, [{text,?__("The loser is protected, unprotect the loser before merging.", Context)}]}, Context);
        {_, false, _} ->
            z_render:wire({alert, [{text,?__("You do not have permission to delete the loser.", Context)}]}, Context);
        {_, _, false} ->
            z_render:wire({alert, [{text,?__("You do not have permission to edit the winner.", Context)}]}, Context);
        {false, true, true} ->
            ContextSpawn = z_context:prune_for_spawn(Context),
            z_proc:spawn_md(
                fun() ->
                    ok = m_rsc:merge_delete(WinnerId, LoserId, [ {is_merge_trans, IsMergeTrans} ], ContextSpawn),
                    z_notifier:first(#page_actions{
                        actions = [
                            {redirect, [{dispatch, admin_edit_rsc}, {id, WinnerId}]}
                        ] }, Context)
                end),
            z_render:wire([
                    {growl, [{text, ?__("Merging the two pages ...", Context)}]},
                    {dialog_close, []}
                ], Context)
    end;
merge(_WinnerId, _LoserId, _MergeAction, _IsMergeTrans, Context) ->
    z_render:wire({alert, [{text,?__("No merge action specified.", Context)}]}, Context).