From: Yuval Kogman <nothingmuch@woobling.org>
Date: Thu, 3 Jan 2008 13:53:00 +0000 (+0000)
Subject: dbicadmin printed even when quiet
X-Git-Tag: v0.08010~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=81a40c3d22daea3b71567621563943e8740b5f83;p=dbsrgits%2FDBIx-Class.git

dbicadmin printed even when quiet
---

diff --git a/script/dbicadmin b/script/dbicadmin
index a1476f6..6a9fb9b 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -67,7 +67,7 @@ if ($op eq 'insert') {
     die('Do not use the where option with the insert op') if ($where);
     die('Do not use the attrs option with the insert op') if ($attrs);
     my $obj = $resultset->create( $set );
-    print ''.ref($resultset).' ID: '.join(',',$obj->id())."\n";
+    print ''.ref($resultset).' ID: '.join(',',$obj->id())."\n" if (!$quiet);
 }
 elsif ($op eq 'update') {
     $resultset = $resultset->search( ($where||{}) );