12 lines
409 B
Erlang
12 lines
409 B
Erlang
-module(archive_fetcher).
|
|
-include("records.hrl").
|
|
|
|
-export([fetch/3]).
|
|
|
|
fetch(CalendarId, Year, Month) ->
|
|
Start = {{Year, Month, 1}, {0, 0, 0}},
|
|
End = {{Year, Month, calendar:last_day_of_the_month(Year, Month)}, {23, 59, 59}},
|
|
mnesia:dirty_select(event, [{#event{calendar_id = CalendarId,
|
|
start_time = '$1', _ = '_'},
|
|
[{'>=', '$1', {const, Start}}, {'=<', '$1', {const, End}}],
|
|
['$_']}]). |