From ec3000ecfb2609cbcc5116169aa640e1d89815b5 Mon Sep 17 00:00:00 2001
From: Erthilo <erthilo@gmail.com>
Date: Tue, 20 Aug 2013 10:37:57 +0100
Subject: [PATCH] Experimentally readding Delete Book verb.

---
 code/modules/admin/admin_verbs.dm    |  6 ++++--
 code/modules/library/lib_machines.dm | 28 ++++++++++++++++++++++++++--
 2 files changed, 30 insertions(+), 4 deletions(-)

diff --git a/code/modules/admin/admin_verbs.dm b/code/modules/admin/admin_verbs.dm
index 7f821923415..717924eb814 100644
--- a/code/modules/admin/admin_verbs.dm
+++ b/code/modules/admin/admin_verbs.dm
@@ -69,7 +69,8 @@ var/list/admin_verbs_admin = list(
 	/client/proc/check_customitem_activity,
 	/client/proc/man_up,
 	/client/proc/global_man_up,
-	/client/proc/response_team // Response Teams admin verb
+	/client/proc/response_team, // Response Teams admin verb
+	/client/proc/delbook
 )
 var/list/admin_verbs_ban = list(
 	/client/proc/unban_panel,
@@ -121,7 +122,8 @@ var/list/admin_verbs_server = list(
 	/datum/admins/proc/toggle_aliens,
 	/datum/admins/proc/toggle_space_ninja,
 	/client/proc/toggle_random_events,
-	/client/proc/check_customitem_activity
+	/client/proc/check_customitem_activity,
+	/client/proc/delbook
 	)
 var/list/admin_verbs_debug = list(
 	/client/proc/cmd_admin_list_open_jobs,
diff --git a/code/modules/library/lib_machines.dm b/code/modules/library/lib_machines.dm
index a47d80309d0..08b0c4f3bdc 100644
--- a/code/modules/library/lib_machines.dm
+++ b/code/modules/library/lib_machines.dm
@@ -195,7 +195,7 @@ datum/borrowbook // Datum used to keep track of who has borrowed what when and f
 			else
 				dat += "<A href='?src=\ref[src];orderbyid=1'>(Order book by SS<sup>13</sup>BN)</A><BR><BR>"
 				dat += "<table>"
-				dat += "<tr><td>AUTHOR</td><td>TITLE</td><td>CATEGORY</td><td></td></tr>"
+				dat += "<tr><td>AUTHOR</td><td>TITLE</td><td>CATEGORY</td><td>ID</td><td></td></tr>"
 
 				var/DBQuery/query = dbcon_old.NewQuery("SELECT id, author, title, category FROM library")
 				query.Execute()
@@ -205,7 +205,7 @@ datum/borrowbook // Datum used to keep track of who has borrowed what when and f
 					var/author = query.item[2]
 					var/title = query.item[3]
 					var/category = query.item[4]
-					dat += "<tr><td>[author]</td><td>[title]</td><td>[category]</td><td><A href='?src=\ref[src];targetid=[id]'>\[Order\]</A></td></tr>"
+					dat += "<tr><td>[author]</td><td>[title]</td><td>[category]</td><td>[id]</td><td><A href='?src=\ref[src];targetid=[id]'>\[Order\]</A></td></tr>"
 				dat += "</table>"
 			dat += "<BR><A href='?src=\ref[src];switchscreen=0'>(Return to main menu)</A><BR>"
 		if(5)
@@ -463,3 +463,27 @@ datum/borrowbook // Datum used to keep track of who has borrowed what when and f
 		del(O)
 	else
 		..()
+
+/client/proc/delbook()
+	set name = "Delete Book"
+	set desc = "Permamently deletes a book from the database."
+	set category = "Admin"
+	if(!src.holder)
+		src << "Only administrators may use this command."
+		return
+
+	var/isbn = input("ISBN number?", "Delete Book") as num | null
+	if(!isbn)
+		return
+
+	if(dbcon_old.IsConnected())
+		var/DBConnection/dbcon = new()
+		dbcon.Connect("dbi:mysql:[sqldb]:[sqladdress]:[sqlport]","[sqllogin]","[sqlpass]")
+		if(!dbcon.IsConnected())
+			alert("Connection to Archive has been severed. Aborting.")
+		else
+			var/DBQuery/query = dbcon.NewQuery("DELETE FROM library WHERE id=[isbn]")
+			if(!query.Execute())
+				usr << query.ErrorMsg()
+			dbcon.Disconnect()
+	log_admin("[usr.key] has deleted the book [isbn]")
\ No newline at end of file