Modify listtables HTML view to use dispatch_component for createdatabase action

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) %>