From: ivan <ivan>
Date: Thu, 29 Oct 2009 23:36:58 +0000 (+0000)
Subject: adding errorpage popup, RT#6445
X-Git-Tag: root_of_svc_elec_features~724
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1a1e96639a3b47750e48e1d6a102441fa710405a

adding errorpage popup, RT#6445
---

diff --git a/httemplate/elements/errorpage-popup.html b/httemplate/elements/errorpage-popup.html
new file mode 100644
index 000000000..5248ca134
--- /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)";