diff options
author | jeff <jeff> | 2007-11-04 18:22:54 +0000 |
---|---|---|
committer | jeff <jeff> | 2007-11-04 18:22:54 +0000 |
commit | 6175f114362b87bbebedde79018bd99589c4c431 (patch) | |
tree | d7379cc8ad7ec5ae4d271982e26787339f42c500 | |
parent | 348386bfd64cb4b46961aa3a9ee71ae08f4faf5e (diff) |
comma is a bad delimiter choice according to ut_text()
-rwxr-xr-x | httemplate/search/cust_main_ADV.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/httemplate/search/cust_main_ADV.cgi b/httemplate/search/cust_main_ADV.cgi index 106b5965f..17b17488b 100755 --- a/httemplate/search/cust_main_ADV.cgi +++ b/httemplate/search/cust_main_ADV.cgi @@ -104,9 +104,9 @@ my $count_query = "SELECT COUNT(*) FROM cust_main $extra_sql"; my $select; if ($dbh->{Driver}->{Name} eq 'Pg') { - $select = "*, array_to_string(array(select pkg from cust_pkg left join part_pkg using ( pkgpart ) where cust_main.custnum = cust_pkg.custnum $pkgwhere),',') as magic"; + $select = "*, array_to_string(array(select pkg from cust_pkg left join part_pkg using ( pkgpart ) where cust_main.custnum = cust_pkg.custnum $pkgwhere),'|') as magic"; }elsif ($dbh->{Driver}->{Name} =~ /^mysql/i) { - $select = "*, GROUP_CONCAT(pkg SEPARATOR ',') as magic"; + $select = "*, GROUP_CONCAT(pkg SEPARATOR '|') as magic"; }else{ warn "warning: unknown database type ". $dbh->{Driver}->{Name}. "omitting packing information from report."; @@ -129,7 +129,7 @@ my (@extra_fields) = (); while($headercount) { unshift @extra_headers, "Package ". $headercount; unshift @extra_fields, eval q!sub {my $c = shift; - my @a = split ',', $c->magic; + my @a = split '\|', $c->magic; my $p = $a[!.--$headercount. q!]; $p; };!; |