From dfc1212ab722f46017453e8ebfede23f0de07853 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 27 Mar 2008 20:40:44 +0000
Subject: [PATCH] add back raw SQL query (it had an appropriate ACL)

---
 httemplate/elements/menu.html     |  2 ++
 httemplate/search/report_sql.html | 23 +++++++++++++++++++++++
 2 files changed, 25 insertions(+)
 create mode 100644 httemplate/search/report_sql.html

diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index c5769e0be..08a79628e 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -204,6 +204,8 @@ $report_menu{'Billing events'} =  [ \%report_bill_event, 'Billing events' ]
   if $curuser->access_right('Billing event reports');
 $report_menu{'Financial'}  = [ \%report_financial, 'Financial reports' ]
   if $curuser->access_right('Financial reports');
+$report_menu{'SQL Query'}  = [ $fsurl.'search/report_sql.html', 'SQL Query' ]
+  if $curuser->access_right('Raw SQL');
 
 tie my %tools_importing, 'Tie::IxHash',
   'Import customers from CSV file' => [ $fsurl.'misc/cust_main-import.cgi', '' ],
diff --git a/httemplate/search/report_sql.html b/httemplate/search/report_sql.html
new file mode 100644
index 000000000..995330894
--- /dev/null
+++ b/httemplate/search/report_sql.html
@@ -0,0 +1,23 @@
+<% include('/elements/header.html', 'SQL Query' ) %>
+
+<FORM ACTION="sql.html" METHOD="GET">
+
+<TABLE BGCOLOR="#cccccc" CELLSPACING=0>
+  <TR>
+    <TD ALIGN="right" VALIGN="top">SELECT </TD>
+    <TD><TEXTAREA NAME="sql"></TEXTAREA></TD>
+  </TR>
+</TABLE>
+
+<BR>
+<INPUT TYPE="submit" VALUE="Query">
+
+</FORM>
+
+<% include('/elements/footer.html') %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('Raw SQL');
+
+</%init>
-- 
2.11.0