[open-ils-commits] r13983 - trunk/Open-ILS/src/reporter (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-09-08 11:14:45 -0400 (Tue, 08 Sep 2009)
New Revision: 13983

Modified:
   trunk/Open-ILS/src/reporter/clark-kent.pl
Log:
turn off array expansion in DBD::Pg (new feature)

Modified: trunk/Open-ILS/src/reporter/clark-kent.pl
===================================================================
--- trunk/Open-ILS/src/reporter/clark-kent.pl	2009-09-04 21:21:40 UTC (rev 13982)
+++ trunk/Open-ILS/src/reporter/clark-kent.pl	2009-09-08 15:14:45 UTC (rev 13983)
@@ -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