Erlang | 35 lines | 15 code | 3 blank | 17 comment | 0 complexity | ddd109bc69936886c0602b8ca267ac3c MD5 | raw file
1%% 2%% U.C.Engine - Unified Collaboration Engine 3%% Copyright (C) 2011 af83 4%% 5%% This program is free software: you can redistribute it and/or modify 6%% it under the terms of the GNU Affero General Public License as published by 7%% the Free Software Foundation, either version 3 of the License, or 8%% (at your option) any later version. 9%% 10%% This program is distributed in the hope that it will be useful, 11%% but WITHOUT ANY WARRANTY; without even the implied warranty of 12%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13%% GNU Affero General Public License for more details. 14%% 15%% You should have received a copy of the GNU Affero General Public License 16%% along with this program. If not, see <http://www.gnu.org/licenses/>. 17%% 18-module(event_helpers). 19 20-include("uce.hrl"). 21 22-export([sort/1, sort/2]). 23 24sort(Events) -> 25 sort(Events, asc). 26sort(Events, asc) -> 27 lists:sort(fun(Event1, Event2) -> 28 Event1#uce_event.datetime < Event2#uce_event.datetime 29 end, 30 Events); 31sort(Events, desc) -> 32 lists:sort(fun(Event1, Event2) -> 33 Event1#uce_event.datetime > Event2#uce_event.datetime 34 end, 35 Events).