X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=script%2Fdbicadmin;h=2c92842702f3fe6344b7593455ace643d053c00e;hb=6b5e61afda80696f56615aa1b66e6f65539c5be0;hp=a1476f6592482302e09f969c5673729ae28a6631;hpb=8cfef6f5fc9c98e22dea0c059f3e551edc115960;p=dbsrgits%2FDBIx-Class.git

diff --git a/script/dbicadmin b/script/dbicadmin
index a1476f6..2c92842 100755
--- a/script/dbicadmin
+++ b/script/dbicadmin
@@ -4,7 +4,7 @@ use warnings;
 
 use Getopt::Long;
 use Pod::Usage;
-use JSON::Any qw(JSON);
+use JSON::Any;
 
 
 my $json = JSON::Any->new(allow_barekey => 1, allow_singlequote => 1);
@@ -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||{}) );