obj/admins/proc/librarycheck()

	var/dat
	dat += "<h3>External Archive</h3>"
	var/DBConnection/dbcon = new()
	dbcon.Connect("dbi:mysql:[sqldb]:[sqladdress]:[sqlport]","[sqllogin]","[sqlpass]")
	if(!dbcon.IsConnected())
		dat += "<font color=red><b>ERROR</b>: Unable to contact External Archive. Please contact your system administrator for assistance.</font>"
	else
		dat += "<table>"
		dat += "<tr><td>AUTHOR</td><td>TITLE</td><td>CATEGORY</td><td>UPLOADKEY</td></tr>"
		var/DBQuery/query = dbcon.NewQuery("SELECT id, author, title, category, uploadkey FROM library")
		query.Execute()
		while(query.NextRow())
			var/id = query.item[1]
			var/author = query.item[2]
			var/title = query.item[3]
			var/category = query.item[4]
			var/uploadkey = query.item[5]
			dat += "<tr><td>[id]</td><td>[author]</td><td>[title]</td><td>[category]</td><td>[uploadkey]</td></tr>"
		dat += "</table><BR>"
		dat += "<A href='?src=\ref[src];delete=1'>\[Delete\]</A>"
		dbcon.Disconnect()
	usr << browse(dat, "window=librarycheck")
	onclose(usr, "librarycheck")

/obj/admins/Topic(href, href_list)
	..()


	if(href_list["delete"])
		world << "Delete was pressed"
		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
			world << "Successfully connected to DB"
			var/id = input("Which book ID would you like to delete?","Delete book.", null, null) as num
			var/DBQuery/query = dbcon.NewQuery("DELETE FROM `tgstation`.`library` WHERE `library`.`id` = [id]")
			world << "[href_list["delid"]]"
			if(!query.Execute())
				usr << query.ErrorMsg()
			else
				usr << "Book successfully deleted."
		dbcon.Disconnect()



/client/proc/librarycheck1()
	set name = "Library Books"
	set category = "Admin"
	if(src.holder)
		src.holder.librarycheck()
	return