From c198b203d568d02fed317e5a305939332b4035f7 Mon Sep 17 00:00:00 2001
From: Evan Carroll <ecarroll@x60s.(none)>
Date: Tue, 4 Sep 2007 03:42:38 -0500
Subject: [PATCH] added support for dom-char   see --dom-char "x" --printf
 "%n\t%d"

---
 PSQL-Query/bin/psql-plus | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/PSQL-Query/bin/psql-plus b/PSQL-Query/bin/psql-plus
index c0d4018..debbaf5 100755
--- a/PSQL-Query/bin/psql-plus
+++ b/PSQL-Query/bin/psql-plus
@@ -6,10 +6,11 @@ use PSQL::Query::Handle;
 use IO::Handle;
 use Getopt::Long;
 
-our ( $fmt_oppr, $fmt_info );
+our ( $fmt_oppr, $fmt_info, $dom_char );
 my $result = GetOptions (
 	'printf=s'        => \$fmt_oppr
 	, 'printf-info=s' => \$fmt_info
+	, 'dom-char=s'    => \$dom_char
 );
 
 $fmt_oppr = '%s' unless $fmt_oppr or $fmt_info;
@@ -73,7 +74,7 @@ sub _lookup_oppr {
 		##
 		n   => sub { $row->name       }
 		, s => sub { $row->src        }
-		, d => sub { $row->dom_level  }
+		, d => sub { $dom_char ? $dom_char x $row->dom_level : $row->dom_level  }
 
 		, e => sub {
 			my $t = $row->cost;
@@ -145,7 +146,7 @@ psql-plus - Utility to enhance the functionality of psql
 
 =head1 DESCRIPTION
 
-=head2 Arguements
+=head2 Arguments
 
 =over 5
 
@@ -153,7 +154,7 @@ psql-plus - Utility to enhance the functionality of psql
 
 	%n = name
 	%s = src
-	%d = dom_level
+	%d = dom_level ( the level lhs )
 
 	%e*  explain/estimate
 	%a*  actual
-- 
2.11.4.GIT