Iets betere abort foutmelding vanuit de portal

svn path=/Website/trunk/; revision=33158
2017-03-15 13:53:01 +00:00
parent eafa424f5f
commit 02dc533517
1 changed files with 23 additions and 14 deletions
--- a/APPL/Shared/Shared.inc
+++ b/APPL/Shared/Shared.inc
@@ -1094,20 +1094,29 @@ function abort_with_warning(warning, code)
    }
    else
    {
-    %>
-    <html>
-      <head>
-        <%  FCLTHeader.Generate() %>
-        <script type='text/javascript'>
-            FcltMgr.closeDetail(window, { warning: "<%=safe.jsstring(warning)%>",
-                                          keepForm: true
-                                        });
-        </script>
-      </head>
-    <body>
-    </body>
-    </html>
-    <%
+        var pad = String(Request.ServerVariables("PATH_INFO"));
+        pad = pad.substring(rooturl.length+1).toLowerCase();
+        if (!pad || pad == "default.asp") // warning *gegenereerd* door de root-pagina
+        {                                 // is allemaal veel te complex
+            shared.simpel_page(warning);
+        }
+        else
+        {
+            %>
+            <html>
+              <head>
+                <%  FCLTHeader.Generate() %>
+                <script>
+                    FcltMgr.closeDetail(window, { warning: "<%=safe.jsstring(warning)%>",
+                                                  keepForm: true
+                                                });
+                </script>
+              </head>
+            <body>
+            </body>
+            </html>
+            <%
+        }
    }
    Response.End
 }