summaryrefslogtreecommitdiff
path: root/httemplate/search/sql.html
blob: 54d6c2d798cc5e6652c92e4b8f63a1be3db8149b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<& elements/search.html,
               'title' => 'Query Results',
               'name'  => 'rows',
               'query' => "SELECT $sql",
               'count_query' => $count,          
&>
<%init>

die "access denied"
  unless $FS::CurrentUser::CurrentUser->access_right('Raw SQL');

my $sql = $cgi->param('sql') or errorpage('Empty query');
$sql =~ s/;+\s*$//; #remove trailing ;

my $count = $sql;
$count =~ s/.* FROM /SELECT COUNT(*) FROM /i;

</%init>