fraud messaging

This commit is contained in:
ragu 2022-10-05 12:36:02 +02:00
parent d0c401c848
commit 663dfd8c13
4 changed files with 38 additions and 2 deletions

View file

@ -10,6 +10,7 @@ use POSIX;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
use Scalar::Util qw(looks_like_number);
use Calendar::Simple;
use Date::Calc qw(:all);
use Lib::Config;
@ -165,8 +166,10 @@ sub tpl(){
offset => $q->escapeHTML($offset),
};
if($R::ct_id){
if($R::ct_id && looks_like_number($R::ct_id)){
$search->{ct_id} = $q->escapeHTML("$R::ct_id");
}elsif($R::cttpos_id && looks_like_number($R::cttpos_id)){
$search->{cttpos_id} = $q->escapeHTML("$R::cttpos_id");
}else{
$search->{start_date_time} = "$start_date_time";
$search->{end_date_time} = "$end_date_time";