Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {ok, RawCDs} = core_cds:find_all(),
- FilteredCDs = lists:filter(fun(CD) ->
- Now = date(),
- case ecdm_cd:maturity_date(CD) of
- undefined ->
- true;
- Value when Value < Now ->
- true;
- _ ->
- false
- end
- end,
- RawCDs),
- CDs = lists:map(fun(CD) ->
- IssuerKey = ecdm_cd:issuer(CD),
- IssuerKey = ecdm_cd:buyer(CD),
- {ok, Issuer} = ecdm_accounts:find(IssuerKey),
- AccountNum = ecdm_account:account_num(Issuer),
- IssuerName = ecdm_account:account_desc(Issuer),
- IssuerFDIC = ecdm_issuer_account:fdic(Issuer),
- Funded = case ecdm_cd:state(CD) of
- opened_and_funded ->
- "true";
- _ ->
- "false"
- end,
- {OYear, OMonth, ODay} = ecdm_cd:open_by_date(CD),
- OpenDate = io_lib:format("~2..0B/~2..0B/~4..0B",
- [OMonth, ODay, OYear]),
- {MYear, MMonth, MDay} = ecdm_cd:maturity_date(CD),
- MaturityDate = io_lib:format("~2..0B/~2..0B/~4..0B",
- [MMonth, MDay, MYear]),
- {cd, [{key, ecdm_cd:key(CD)},
- {ergonomic_id, ecdm_cd:ergonomic_id(CD)},
- {size, ecdm_cd:size(CD)},
- {apy, ecdm_cd:apy(CD)},
- {bank_cd_number, ecdm_cd:bank_cd_number(CD)},
- {open_date, OpenDate},
- {funded, Funded},
- {maturity_date, MaturityDate},
- {issuer_fdic, IssuerFDIC},
- {issuer_name, IssuerName},
- {account_num, AccountNum}]}
- end, FilteredCDs).
Add Comment
Please, Sign In to add comment