From 2fbbced496957bb140a4f72c5b66c337b88a60b4 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Tue, 4 Nov 2014 03:23:55 +0000
Subject: Modify listtables HTML view to use dispatch_component for
 createdatabase action

---
 lib/db-listtables-html.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/db-listtables-html.lsp b/lib/db-listtables-html.lsp
index f0db6b7..fd9c7eb 100644
--- a/lib/db-listtables-html.lsp
+++ b/lib/db-listtables-html.lsp
@@ -58,9 +58,10 @@ formvalues.table = cfe({ type="hidden" })
 	</tr>
 <% end %>
 </tbody></table>
-<% elseif viewlibrary.check_permission("createdatabase") then %>
-	<% htmlviewfunctions.displayitem(cfe({type="form", value={}, label="Create Database", option="Create", action="createdatabase" }), page_info, 0) %>
 <% else %>
 <p>No tables found</p>
+<% if viewlibrary and viewlibrary.dispatch_component and viewlibrary.check_permission("createdatabase") then
+        viewlibrary.dispatch_component("createdatabase")
+end %>
 <% end %>
 <% htmlviewfunctions.displaysectionend(header_level) %>
-- 
cgit v1.2.3