[open-ils-commits] r14149 - branches/rel_1_6/Open-ILS/src/reporter (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-09-24 13:05:22 -0400 (Thu, 24 Sep 2009)
New Revision: 14149

Modified:
   branches/rel_1_6/Open-ILS/src/reporter/clark-kent.pl
Log:
backporting r13983: turn off array expansion in DBD::Pg (new feature that is on by default, and we do not want it)

Modified: branches/rel_1_6/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- branches/rel_1_6/Open-ILS/src/reporter/clark-kent.pl	2009-09-24 14:40:11 UTC (rev 14148)
+++ branches/rel_1_6/Open-ILS/src/reporter/clark-kent.pl	2009-09-24 17:05:22 UTC (rev 14149)
@@ -102,7 +102,16 @@
 
 DAEMON:
 
-$dbh = DBI->connect($state_dsn,$state_db{db_user},$state_db{db_pw}, {AutoCommit => 1, pg_enable_utf8 => 1, RaiseError => 1});
+$dbh = DBI->connect(
+	$state_dsn,
+	$state_db{db_user},
+	$state_db{db_pw},
+	{ AutoCommit => 1,
+	  pg_expand_array => 0,
+	  pg_enable_utf8 => 1,
+	  RaiseError => 1
+	}
+);
 
 $current_time = DateTime->from_epoch( epoch => time() )->strftime('%FT%T%z');
 
@@ -175,9 +184,28 @@
 	# This is the child (runner) process;
 	daemonize("Clark Kent reporting: $r->{report}->{name}");
 
-	my $state_dbh = DBI->connect($state_dsn,$state_db{db_user},$state_db{db_pw}, {AutoCommit => 1, pg_enable_utf8 => 1, RaiseError => 1});
-	my $data_dbh = DBI->connect($data_dsn,$data_db{db_user},$data_db{db_pw}, {AutoCommit => 1, pg_enable_utf8 => 1, RaiseError => 1});
+	my $state_dbh = DBI->connect(
+		$state_dsn,
+		$state_db{db_user},
+		$state_db{db_pw},
+		{ AutoCommit => 1,
+		  pg_expand_array => 0,
+		  pg_enable_utf8 => 1,
+		  RaiseError => 1
+		}
+	);
 
+	my $data_dbh = DBI->connect(
+		$data_dsn,
+		$data_db{db_user},
+		$data_db{db_pw},
+		{ AutoCommit => 1,
+		  pg_expand_array => 0,
+		  pg_enable_utf8 => 1,
+		  RaiseError => 1
+		}
+	);
+
 	try {
 		$state_dbh->do(<<'		SQL',{}, $r->{id});
 			UPDATE	reporter.schedule