adding errorpage popup, RT#6445

diff --git a/httemplate/elements/errorpage-popup.html b/httemplate/elements/errorpage-popup.html
new file mode 100644 (file)
index 0000000..5248ca1
--- /dev/null
+++ b/httemplate/elements/errorpage-popup.html
@@ -0,0 +1,15 @@
+<% include("/elements/header-popup.html", "Error") %>
+
+% while (@_) {
+
+<P><FONT SIZE="+1" COLOR="#ff0000"><% shift |h %></FONT>
+
+%}
+
+<BR><BR>
+<P ALIGN="center">
+<BUTTON TYPE="button" onClick="parent.cClick();">Close</BUTTON>
+
+% $m->flush_buffer();
+% $HTML::Mason::Commands::m->abort();
+% #die "shouldn't fall through to here (mason \$m->abort didn't)";