CCIA Records (#520)

Display CCIA Records and Actions on the Employment Computer.

code/modules/client/preferences.dm

@@ -125,6 +125,8 @@ datum/preferences
 	var/sec_record = ""
 	var/gen_record = ""
 	var/exploit_record = ""
+	var/ccia_record = ""
+	var/list/ccia_actions = list()
 	var/disabilities = 0
 
 	var/nanotrasen_relation = "Neutral"
@@ -1729,6 +1731,8 @@ datum/preferences
 	character.med_record = med_record
 	character.sec_record = sec_record
 	character.gen_record = gen_record
+	character.ccia_record = ccia_record
+	character.ccia_actions = ccia_actions
 	character.exploit_record = exploit_record
 
 	character.gender = gender

code/modules/client/preferences_sql.dm

@@ -177,7 +177,8 @@
 												dat.uplink_location,
 												dat.organs_data,
 												dat.organs_robotic,
-												dat.gear
+												dat.gear,
+												flv.records_ccia
 												FROM ss13_characters dat
 												JOIN ss13_characters_flavour flv ON dat.id = flv.char_id
 												WHERE dat.id = :char_id"})
@@ -191,6 +192,35 @@
 		new_character_sql(C)
 		return 0
 
+	var/DBQuery/ccia_action_query = dbcon.NewQuery({"SELECT
+	  act.title,
+	  act.type,
+	  act.issuedby,
+	  act.details,
+	  act.url,
+	  act.expires_at
+	FROM ss13_ccia_action_char act_chr
+	JOIN ss13_characters chr ON act_chr.char_id = chr.id
+	JOIN ss13_ccia_actions act ON act_chr.action_id = act.id
+	WHERE
+	    act_chr.char_id = ':char_id' AND
+	    (act.expires_at IS NULL OR act.expires_at >= CURRENT_DATE()) AND
+			act.deleted_at IS NULL;
+	"})
+	if (!ccia_action_query.Execute(list(":char_id" = current_character)))
+		error("Error CCIA Actions for character #[current_character]. SQL error message: '[character_query.ErrorMsg()]'.")
+
+	while(ccia_action_query.NextRow())
+		var/list/action = list(
+		  ccia_action_query.item[1],
+			ccia_action_query.item[2],
+			ccia_action_query.item[3],
+			ccia_action_query.item[4],
+			ccia_action_query.item[5],
+			ccia_action_query.item[6]
+			)
+		ccia_actions.Add(list(action))
+
 	var/DBQuery/char_id_update = dbcon.NewQuery("UPDATE ss13_player_preferences SET current_character = :char_id WHERE ckey = :ckey")
 	char_id_update.Execute(list(":char_id" = current_character, ":ckey" = C.ckey))
 
@@ -279,6 +309,7 @@
 	med_record				= character_query.item[45]
 	sec_record				= character_query.item[46]
 	exploit_record			= character_query.item[47]
+	ccia_record 			= character_query.item[60]
 
 	// Miscellaneous
 	disabilities			= text2num(character_query.item[48])