summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--did-html.lsp2
-rw-r--r--[l---------]template-did-editdefinition-html.lsp34
2 files changed, 35 insertions, 1 deletions
diff --git a/did-html.lsp b/did-html.lsp
index dab1c1f..5ebb4e1 100644
--- a/did-html.lsp
+++ b/did-html.lsp
@@ -15,11 +15,13 @@ function newPopup(url) {
<% if data.value.did.value ~= "" or (data.value.extension and data.value.extension.value ~= "") or data.value.description.value ~= "" or data.value.identification.value ~= "" or data.value.department.value ~= "" then %>
<H2>Search Description</H2>
+<DL>
<% if data.value.did.value ~= "" then %><DT>DID</DT><DD><%= data.value.did.value %></DD><% end %>
<% if (data.value.extension and data.value.extension.value ~= "") then %><DT>Extension</DT><DD><%= data.value.extension.value %></DD><% end %>
<% if data.value.description.value ~= "" then %><DT>Description</DT><DD><%= data.value.description.value %></DD><% end %>
<% if data.value.identification.value ~= "" then %><DT>Identification</DT><DD><%= data.value.identification.value %></DD><% end %>
<% if data.value.department.value ~= "" then %><DT>Department</DT><DD><%= data.value.department.value %></DD><% end %>
+</DL>
<% end %>
<H1><%= html.html_escape(data.label) %></H1>
diff --git a/template-did-editdefinition-html.lsp b/template-did-editdefinition-html.lsp
index 1481dd2..7787c5a 120000..100644
--- a/template-did-editdefinition-html.lsp
+++ b/template-did-editdefinition-html.lsp
@@ -1 +1,33 @@
-../template-popup-html.lsp \ No newline at end of file
+<% local viewtable, viewlibrary, pageinfo, session = ...
+ html=require("html") %>
+Status: 200 OK
+Content-Type: text/html
+<% if (session.id) then
+ io.write( html.cookie.set("sessionid", session.id) )
+ else
+ io.write (html.cookie.unset("sessionid"))
+ end
+%>
+
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
+<html lang="en">
+<head>
+<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
+<%
+local hostname = ""
+if viewlibrary and viewlibrary.dispatch_component then
+ local result = viewlibrary.dispatch_component("alpine-baselayout/hostname/read", nil, true)
+ if result and result.value then
+ hostname = result.value
+ end
+end
+%>
+<title><%= html.html_escape(hostname .. " - " .. pageinfo.controller .. "->" .. pageinfo.action) %></title>
+</head>
+<body>
+
+ <% local func = haserl.loadfile(pageinfo.viewfile) %>
+ <% func (viewtable, viewlibrary, pageinfo, session) %>
+
+</body>
+</html>