Changeset 605 for branches/stable/cgi-bin/search.cgi
- Timestamp:
- 10/09/13 15:36:14 (11 years ago)
- Location:
- branches/stable
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable
-
branches/stable/cgi-bin/search.cgi
r601 r605 148 148 # Columns actually returned. Slightly better than hardcoding it 149 149 # in each (sub)select 150 my $cols = "cidr,custid,type,city,description ";150 my $cols = "cidr,custid,type,city,description,vrf"; 151 151 152 152 # hack fix for undefined variables … … 350 350 # which probably shouldn't be for reasons of sanity. 351 351 352 my $cols = "cidr,custid,type,city,description ";352 my $cols = "cidr,custid,type,city,description,vrf"; 353 353 354 354 if ($category eq 'all') { … … 368 368 # Query for a customer ID. Note that we can't restrict to "numeric-only" 369 369 # as we have non-numeric custIDs in the legacy data. :/ 370 $sql = "select $cols from searchme where custid ilike '%$query%' or description ilike '%$query%'"; 370 $sql = "select $cols from searchme where custid ilike '%$query%'". 371 " or description ilike '%$query%' or vrf ilike '%$query%'"; 371 372 my $count = countRows($sql); 372 373 $sql .= " order by cidr limit $RESULTS_PER_PAGE offset $offset"; … … 465 466 my $count = 0; 466 467 my @sresults; 467 while (my ($block, $custid, $type, $city, $desc ) = $sth->fetchrow_array) {468 while (my ($block, $custid, $type, $city, $desc, $vrf) = $sth->fetchrow_array) { 468 469 my %row = ( 469 470 rowclass => $count++ % 2, … … 474 475 disptype => $disp_alloctypes{$type}, 475 476 city => $city, 476 desc => $desc 477 desc => $desc, 478 vrf => $vrf, 477 479 ); 478 480 push @sresults, \%row;
Note:
See TracChangeset
for help on using the changeset viewer.