diff options
-rw-r--r-- | db-listdatabases-html.lsp | 19 |
1 files changed, 19 insertions, 0 deletions
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> |