X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fsqlradius.cgi;h=24b17d3b3df29182eedbcbeac59f2273ba403a4c;hb=fdbdabb698b904cfb8cdc8befb87a76aa71642e9;hp=95f4147afe4aebdea64cfbaeddeb6646c7028fe3;hpb=66a1f83afbb791376748cdd922583ca485588314;p=freeside.git diff --git a/httemplate/search/sqlradius.cgi b/httemplate/search/sqlradius.cgi index 95f4147af..24b17d3b3 100644 --- a/httemplate/search/sqlradius.cgi +++ b/httemplate/search/sqlradius.cgi @@ -1,10 +1,4 @@ -<% include( '/elements/header.html', 'RADIUS Sessions', - include('/elements/menubar.html', - 'Main menu' => $p, # popurl(2), - ), - - ) -%> +<% include( '/elements/header.html', 'RADIUS Sessions') %> % ### % # and finally, display the thing @@ -65,13 +59,14 @@ % foreach my $field ( keys %efields ) { +% my $html = &{ $efields{$field}->{fmt} }( $session->{$field}, +% $session, +% $part_export, +% ); +% my $class = ( $html =~ / - <% &{ $efields{$field}->{fmt} }( $session->{$field}, - $session, - $part_export, - ) - %> + % } @@ -83,8 +78,11 @@ % } - <%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); + ### # parse cgi params ### @@ -93,12 +91,12 @@ my $beginning = ''; my $ending = ''; if ( $cgi->param('beginning') - && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) { + && $cgi->param('beginning') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) { $beginning = str2time($1); } if ( $cgi->param('ending') - && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) { - $ending = str2time($1) + 86399; + && $cgi->param('ending') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) { + $ending = str2time($1); # + 86399; } if ( $cgi->param('begin') && $cgi->param('begin') =~ /^(\d+)$/ ) { $beginning = $1;
+ <% $html %>