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>
|