[freeside-commits] freeside/httemplate/search cust_main_ADV.cgi, 1.1.2.1, 1.1.2.2

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail:/tmp/cvs-serv28477

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	cust_main_ADV.cgi 
Log Message:
comma is a bad delimiter choice according to ut_text()

Index: cust_main_ADV.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/cust_main_ADV.cgi,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -d -r1.1.2.1 -r1.1.2.2
--- cust_main_ADV.cgi	3 Nov 2007 00:52:22 -0000	1.1.2.1
+++ cust_main_ADV.cgi	4 Nov 2007 18:23:23 -0000	1.1.2.2
@@ -104,9 +104,9 @@
 
 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 @@
 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;
                                     };!;