Expand|Select|Wrap|Line Numbers
- if ( $q->param("Filter") )
- {
- $Id=$q->param('User_Id');
- $Name=$q->param('User_Name');
- if ($Id ne "" )
- {
- $filterexpression= $filterexpression." UserId like '" .$Id. "%' and " ;
- }
- if ($Name ne "" )
- {
- $filterexpression= $filterexpression." UserName like '" .$Name. "%' and " ;
- }
- }
- $filterexpression= $filterexpression. " UserId > 0"
Expand|Select|Wrap|Line Numbers
- print qq[<td><a href="UsersList.cgi?
- pageNum=$pageN&limit=$limit&SortBy=$SortBy&SortOrder=$SortOrder"><</a></td>];
so that after filtering when I go for paging then only those records confined to the filter expression should be shown.
I tried to merge this way:
Expand|Select|Wrap|Line Numbers
- print qq[<td><a href="UsersList.cgi?
- pageNum=$pageN&limit=$limit&SortBy=$SortBy&SortOrder=$SortOrder
- &Filter=$filterexpression"><</a></td>];
Expand|Select|Wrap|Line Numbers
- http://localhost/cgi-bin/UsersList.cgi?
- pageNum=1&limit=3&SortBy=UserId&SortOrder=Asc&filter=%20%20UserId%20like%
- 20'1%'%20and%20%20UserId%20>%200
Expand|Select|Wrap|Line Numbers
- $string =~ m/^$Id/;