From: ivan <ivan>
Date: Thu, 27 Mar 2008 20:40:43 +0000 (+0000)
Subject: add back raw SQL query (it had an appropriate ACL)
X-Git-Tag: root_of_webpay_support~798
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=2c38085c11751a8c5f69e57b821a2ecbbce8f60d;p=freeside.git

add back raw SQL query (it had an appropriate ACL)
---

diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html
index 0c74746b7..047671ae5 100644
--- a/httemplate/elements/menu.html
+++ b/httemplate/elements/menu.html
@@ -213,6 +213,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>