Changeset 620 for branches/stable/cgi-bin/search.cgi
- Timestamp:
- 07/04/14 13:03:43 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/stable/cgi-bin/search.cgi
r606 r620 467 467 my $count = 0; 468 468 my @sresults; 469 while (my ($block, $custid, $type, $city, $desc, $vrf ) = $sth->fetchrow_array) {469 while (my ($block, $custid, $type, $city, $desc, $vrf, $avail) = $sth->fetchrow_array) { 470 470 my %row = ( 471 471 rowclass => $count++ % 2, … … 478 478 desc => $desc, 479 479 vrf => $vrf, 480 avail => $avail eq 'y', 480 481 ); 481 482 push @sresults, \%row;
Note:
See TracChangeset
for help on using the changeset viewer.