- Fixed the admin warning of an NTSL script only being shown on the "apply" button.

- Re-named the IDE "apply" button to "save".

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@5665 316c924e-a436-60f5-8080-3fe189b3f50e

code/game/machinery/telecomms/telecomunications.dm

@@ -593,8 +593,15 @@ var/global/list/obj/machinery/telecomms/telecomms_list = list()
 		if(istext(t))
 			rawcode = t
 
-/obj/machinery/telecomms/server/proc/compile()
+/obj/machinery/telecomms/server/proc/admin_log(var/mob/mob)
+	var/msg="[mob.name] has compiled a script to server [src]:"
+	diary << msg
+	diary << rawcode
+	message_admins("[mob.name] has compiled and uploaded a NTLS script to [src] ([mob.x],[mob.y],[mob.z] - <A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[mob.x];Y=[mob.y];Z=[mob.z]'>JMP</a>)",0,1)
+
+/obj/machinery/telecomms/server/proc/compile(var/mob/user)
 	if(Compiler)
+		admin_log(user)
 		return Compiler.Compile(rawcode)
 
 /obj/machinery/telecomms/server/proc/update_logs()

code/modules/scripting/IDE.dm

@@ -9,9 +9,6 @@ client/verb/tcssave()
 			if(Machine.SelectedServer)
 				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
 				var/tcscode=winget(src, "tcscode", "text")
-				var/msg="[mob.name] is adding script to server [Server]: [tcscode]"
-				diary << msg
-				message_admins("[mob.name] has uploaded a NTLS script to [Machine.SelectedServer] ([mob.x],[mob.y],[mob.z] - <A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[mob.x];Y=[mob.y];Z=[mob.z]'>JMP</a>)",0,1)
 				Server.setcode( tcscode ) // this actually saves the code from input to the server
 				src << output(null, "tcserror") // clear the errors
 			else
@@ -36,7 +33,7 @@ client/verb/tcscompile()
 			if(Machine.SelectedServer)
 				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
 				Server.setcode( winget(src, "tcscode", "text") ) // save code first
-				var/list/compileerrors = Server.compile() // then compile the code!
+				var/list/compileerrors = Server.compile(mob) // then compile the code!
 
 				// Output all the compile-time errors
 				src << output(null, "tcserror")
@@ -87,7 +84,7 @@ client/verb/tcsrun()
 			if(Machine.SelectedServer)
 				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
 				Server.setcode( winget(src, "tcscode", "text") ) // save code first
-				var/list/compileerrors = Server.compile() // then compile the code!
+				var/list/compileerrors = Server.compile(mob) // then compile the code!
 
 				// Output all the compile-time errors
 				src << output(null, "tcserror")

interface/skin.dmf

@@ -726,7 +726,7 @@ window "Telecomms IDE"
 		right-click = false
 		saved-params = "is-checked"
 		on-size = ""
-		text = "Apply"
+		text = "Save"
 		image = ""
 		command = "tcssave"
 		is-flat = false