diff options
Diffstat (limited to 'gnats-listdatabases-html.lsp')
| -rw-r--r-- | gnats-listdatabases-html.lsp | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/gnats-listdatabases-html.lsp b/gnats-listdatabases-html.lsp new file mode 100644 index 0000000..a2e0db6 --- /dev/null +++ b/gnats-listdatabases-html.lsp @@ -0,0 +1,39 @@ +<% local view, viewlibrary, page_info, session = ... +require("viewfunctions") +%> + +<% displaycommandresults({"deletedatabase"}, session) %> +<% displaycommandresults({"createdatabase"}, session, true) %> + +<H1>Databases</H1> +<DL> +<TABLE> + <TR style="background:#eee;font-weight:bold;"> + <TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Action</TD> + <TD style="padding-right:20px;white-space:nowrap;text-align:left;" class="header">Database</TD> + <TD style="white-space:nowrap;text-align:left;" class="header">Description</TD> + </TR> +<% for i,db in ipairs(view.value) do %> + <TR> + <TD style="padding-right:20px;white-space:nowrap;"> + <% if session.permissions.gnats.listdatabasefiles then %> + <%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/listdatabasefiles?database="..db.name, label="Edit "} %> + <% end %> + <% if session.permissions.gnats.deletedatabase then %> + <%= html.link{value=page_info.script..page_info.prefix..page_info.controller.."/deletedatabase?name="..db.name, label="Delete "} %> + <% end %> + </TD> + <TD style="padding-right:20px;white-space:nowrap;"><%= html.html_escape(db.name) %></TD> + <TD style="white-space:nowrap;"><%= html.html_escape(db.description) %></TD> + </TR> +<% end %> +</TABLE> +</DL> + +<% if viewlibrary and viewlibrary.dispatch_component and session.permissions.gnats.createdatabase then + local createform = viewlibrary.dispatch_component("createdatabase", nil, true) %> +<H2><%= html.html_escape(createform.label) %></H2> +<% + createform.action = page_info.script .. page_info.prefix .. page_info.controller .. "/createdatabase" + displayform(createform) +end %> |