push @search, "src = '$src'";
}
-if ( $cgi->param('dst') =~ $phonenum ) {
- ( my $dst = $1 ) =~ s/$x//g;
- $hashref->{'dst'} = $dst;
- push @search, "dst = '$dst'";
+if ( $cgi->param('dst') ) {
+
+ my @d = map { $_, "1$_" } split(/\s*,\s*/, $cgi->param('dst') );
+
+ my $search = 'dst IN ('. join(',', map dbh->quote($_), @d). ')';
+
+ push @search, $search;
+ push @qsearch, $search;
+
}
if ( $cgi->param('dcontext') =~ /^\s*(.+)\s*$/ ) {
my $dcontext = $1;
$hashref->{'dcontext'} = $dcontext;
- push @search, "dcontext = '$dcontext'";
+ push @search, 'dcontext = '. dbh->quote($dcontext);
}
if ( $cgi->param('charged_party') ) {
push @qsearch, $search;
}
+if ( $cgi->param('lastapp') =~ /^\s*(.+)\s*$/ ) {
+ my $lastapp = $1;
+ $hashref->{'lastapp'} = $lastapp;
+ push @search, 'lastapp = '. dbh->quote($lastapp);
+}
+
if ( $cgi->param('svcnum') =~ /^([\d, ]+)$/ ) {
my $svcnum = $1;
my $search = "svcnum IN ($svcnum)";