Warrant Fix & More (#18085)

* Warrant Fix & More

* the nuclear option

* i hate the dme!

* fluffy review

code/modules/modular_computers/file_system/programs/security/digitalwarrant.dm

@@ -2,9 +2,9 @@
 	filename = "digitalwarrant"
 	filedesc = "Warrant Assistant"
 	extended_desc = "Official NTsec program for creation and handling of warrants."
-	program_icon_state = "security"
-	program_key_icon_state = "yellow_key"
-	color = LIGHT_COLOR_ORANGE
+	program_icon_state = "warrant"
+	program_key_icon_state = "red_key"
+	color = LIGHT_COLOR_RED
 	size = 8
 	requires_ntnet = TRUE
 	available_on_ntnet = TRUE
@@ -97,7 +97,10 @@
 				active_warrant = W
 
 		if("savewarrant")
-			SSrecords.update_record(active_warrant)
+			if(!(active_warrant in SSrecords.warrants))
+				SSrecords.add_record(active_warrant)
+			else
+				SSrecords.update_record(active_warrant)
 			active_warrant = null
 			SStgui.update_uis(computer)