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)";
</TR>
<TR>
- <TD ALIGN="right">Charged Party or Source #: </TD>
+ <TD ALIGN="right">Last Application: </TD>
<TD>
- <INPUT TYPE="text" NAME="charged_party_or_src" VALUE="<% join(',', @charged_party_or_src ) |h %>" >
+ <INPUT TYPE="text" NAME="lastapp" VALUE="" >
+ </TD>
+ </TR>
+
+ <TR>
+ <TD ALIGN="right">Freeside service #: </TD>
+ <TD>
+ <INPUT TYPE="text" NAME="svcnum" VALUE="<% join(',', @svcnum ) %>" >
</TD>
</TR>