package Ġdev . al pas . fire place . controllers Ċ Ċ import Ġdev . al pas . fire place . entities . Activities Ċ import Ġdev . al pas . fire place . entities . Task Ċ import Ġdev . al pas . fire place . entities . Tasks Ċ import Ġdev . al pas . fire place . entities . User Ċ import Ġdev . al pas . fire place . gu ards . Create Task Guard Ċ import Ġdev . al pas . fire place . gu ards . Update Task Guard Ċ import Ġdev . al pas . http . Http Call Ċ import Ġdev . al pas . or Abort Ċ import Ġdev . al pas . routing . Controller Ċ import Ġme . li u wj . kt orm . dsl . delete Ċ import Ġme . li u wj . kt orm . dsl . eq Ċ import Ġme . li u wj . kt orm . dsl . insert Ċ Ċ class ĠTask Controller Ġ: ĠController () Ġ{ ĊĠĠĠ Ġfun Ġstore ( call : ĠHttp Call ) Ġ{ ĊĠĠĠĠĠĠĠ Ġcall . validate Using ( Create Task Guard :: class ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġtask Ġ= Ġcommit () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġlog Task Activity ( task , Ġmap Of (" action " Ġto Ġ" created Ġtask ", Ġ" title " Ġto Ġtask . body )) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcall . reply As Json ( task ) ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġdelete ( call : ĠHttp Call ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġid Ġ= Ġcall . param As Long (" id "). or Abort () ĊĠĠĠĠĠĠĠ ĠTasks . delete Ġ{ Ġit . id Ġeq Ġid Ġ} ĊĠĠĠĠĠĠĠ Ġcall . ack nowledge () ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġfun Ġupdate ( call : ĠHttp Call ) Ġ{ ĊĠĠĠĠĠĠĠ Ġcall . validate Using ( Update Task Guard :: class ) Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġval Ġtask Ġ= Ġcommit () ĊĠĠĠĠĠĠĠĠĠĠĠ Ġlog Task Activity ( task , Ġmap Of (" action " Ġto Ġ" updated Ġtask ", Ġ" title " Ġto Ġtask . body )) ĊĠĠĠĠĠĠĠĠĠĠĠ Ġcall . ack nowledge () ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} ĊĊĠĠĠ Ġprivate Ġfun Ġlog Task Activity ( task : ĠTask , Ġpayload : ĠMap < String , ĠAny ?> ) Ġ{ ĊĠĠĠĠĠĠĠ Ġval Ġnow Ġ= Ġcall . now In Current Timezone (). to Instant () ĊĠĠĠĠĠĠĠ Ġval Ġuser Ġ= Ġcaller < User >() ĊĠĠĠĠĠĠĠ ĠActiv ities . insert Ġ{ ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . payload Ġto Ġpayload ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . projectId Ġto Ġtask . project . id ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . userId Ġto Ġuser . id ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . taskId Ġto Ġtask . id ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . createdAt Ġto Ġnow ĊĠĠĠĠĠĠĠĠĠĠĠ Ġit . updatedAt Ġto Ġnow ĊĠĠĠĠĠĠĠ Ġ} ĊĠĠĠ Ġ} Ċ } Ċ