turn off perl expansion of postgres arrays

diff --git a/trunk/cgi-bin/show_log.pl b/trunk/cgi-bin/show_log.pl
index 663fc26aa9e0efab0132641b0fecb0b13ca813c3..21c6ec570b9a0d168cfbc395a034df78605e5b36 100755 (executable)
--- a/trunk/cgi-bin/show_log.pl
+++ b/trunk/cgi-bin/show_log.pl
@@ -34,7 +34,7 @@ use vars qw($info_row);
 if ($system && $logdate)
 {
 
-       my $db = DBI->connect($dsn,$dbuser,$dbpass);
+       my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0});
 
        die $DBI::errstr unless $db;
 

diff --git a/trunk/cgi-bin/show_members.pl b/trunk/cgi-bin/show_members.pl
index 3bc733c5a2127300094dffa4970b25679125b2f8..f6fb3961867dff06244ae7a8dac373e56770db60 100755 (executable)
--- a/trunk/cgi-bin/show_members.pl
+++ b/trunk/cgi-bin/show_members.pl
@@ -26,7 +26,7 @@ my $dsn="dbi:Pg:dbname=$dbname";
 $dsn .= ";host=$dbhost" if $dbhost;
 $dsn .= ";port=$dbport" if $dbport;
 
-my $db = DBI->connect($dsn,$dbuser,$dbpass);
+my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0});
 
 # there is possibly some redundancy in this query, but it makes
 # a lot of the processing simpler.

diff --git a/trunk/cgi-bin/show_status.pl b/trunk/cgi-bin/show_status.pl
index e1a6ef6dd73ca2cab91ef9b5bc32f9c38fbe04d1..646195c44fa9bdac5de2199549a150a932596f3e 100755 (executable)
--- a/trunk/cgi-bin/show_status.pl
+++ b/trunk/cgi-bin/show_status.pl
@@ -34,7 +34,8 @@ elsif ($sortby eq 'compiler')
        $sort_clause = "lower(compiler), compiler_version,";
 }
 
-my $db = DBI->connect($dsn,$dbuser,$dbpass) or die("$dsn,$dbuser,$dbpass,$!");
+my $db = DBI->connect($dsn,$dbuser,$dbpass,{pg_expand_array => 0}) 
+    or die("$dsn,$dbuser,$dbpass,$!");
 
 my $statement =<<EOS;