From: jeff <jeff>
Date: Sun, 4 Nov 2007 18:22:54 +0000 (+0000)
Subject: comma is a bad delimiter choice according to ut_text()
X-Git-Tag: TRIXBOX_2_6~250
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=6175f114362b87bbebedde79018bd99589c4c431

comma is a bad delimiter choice according to ut_text()
---

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;
                                     };!;