X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fsqlradius.cgi;h=324729b6a7c117530ad96854f5d42b60f6fd85f3;hb=00aed756e1449f4d0847b1d05f96208d607b4711;hp=95f4147afe4aebdea64cfbaeddeb6646c7028fe3;hpb=66a1f83afbb791376748cdd922583ca485588314;p=freeside.git diff --git a/httemplate/search/sqlradius.cgi b/httemplate/search/sqlradius.cgi index 95f4147af..324729b6a 100644 --- a/httemplate/search/sqlradius.cgi +++ b/httemplate/search/sqlradius.cgi @@ -65,13 +65,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 +84,11 @@ % } - <%init> + +die "access denied" + unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); + ### # parse cgi params ### @@ -93,12 +97,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 %>