From 064ab9ab8a9607062a93e7df21dd2ecea7be63de Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Sat, 28 Sep 2013 19:53:13 +0000
Subject: Add view for listdatabases action

---
 db-listdatabases-html.lsp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 db-listdatabases-html.lsp

diff --git a/db-listdatabases-html.lsp b/db-listdatabases-html.lsp
new file mode 100644
index 0000000..4fd9362
--- /dev/null
+++ b/db-listdatabases-html.lsp
@@ -0,0 +1,19 @@
+<% local form, viewlibrary, page_info, session = ... %>
+<% require("htmlviewfunctions") %>
+<% html = require("acf.html") %>
+
+<H1><%= html.html_escape(form.label) %></H1>
+<DL>
+<% if form.errtxt then %><P CLASS='error'><%= string.gsub(html.html_escape(form.errtxt), "\n", "<BR>") %></P><% end %>
+<% for i,database in ipairs(form.value) do %>
+	<li>
+	<% if viewlibrary.check_permission("listtables") then %>
+		<%= html.link{value = "listtables?database=" .. database, label=database} %>
+	<% else %>
+		<%= html.html_escape(database) %>
+	<% end %>
+<% end %>
+<% if #form.value == 0 then %>
+No databases found
+<% end %>
+</DL>
-- 
cgit v1.2.3