#!/usr/bin/perl -w use CGI qw(:standard); use DBI; require("../cgi-lib.pl"); require("../ar_cl.lib"); require("../sql.lib"); ReadParse(*input_data); load_cookies(); my $sort_field = $input_data{"Sort"}; $visibility="visible"; print qq~ Accounts Receivable System
$hffclient Client Listing
Code Name Address Phone Fax Contact Title
~; # Get Clients my ($a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k) = get_client_table($hffclient_code, $sort_field, ""); #my ($cl_code, $cl_name, $cl_address1, $cl_address2, $cl_city, $cl_state, $cl_zip, $cl_phone, $cl_fax, $cl_contact, $cl_title) # = get_client_table($hffclient_code, $sort_field, ""); my $ii = 0; $class = "line"; $class_left = "line_left"; #while($cl_code[$ii]) { while($b[$ii]) { if ($a[$ii] > 0) { if ($class eq "line") {$class = "line_white"; $class_left = "line_left_white";} else {$class = "line"; $class_left = "line_left";} my $name_string = $b[$ii]; $name_string =~ s/&/~/sig; print ""; print " "; print " "; print " "; print " "; print " "; print " \n"; } $ii++; } print "
$a[$ii]$b[$ii]$c[$ii] $e[$ii] $f[$ii] $g[$ii]$h[$ii]$i[$ii]$j[$ii]$k[$ii]
";