392 |
let ac = act_of_key (act_key (account_num account)) in |
let ac = act_of_key (act_key (account_num account)) in |
393 |
let row = accountstore#find_row (act_key (account_num account)) in |
let row = accountstore#find_row (act_key (account_num account)) in |
394 |
lprintf' "Updating Account %d\n" (account_num account); |
lprintf' "Updating Account %d\n" (account_num account); |
395 |
accountstore#update_item row ac account; |
Gaux.may ~f:(fun r -> accountstore#update_item r ac account) row; |
396 |
lprintf' "Updated Account %d\n" (account_num account) |
lprintf' "Updated Account %d\n" (account_num account) |
397 |
with _ -> |
with _ -> |
398 |
lprintf' "Adding Account %d\n" (account_num account); |
lprintf' "Adding Account %d\n" (account_num account); |
399 |
ignore (accountstore#add_item account); |
accountstore#add_item account (); |
400 |
lprintf' "Added Account %d\n" (account_num account) |
lprintf' "Added Account %d\n" (account_num account) |
401 |
|
|
402 |
(*************************************************************************) |
(*************************************************************************) |