X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fpg-readonly;h=ad69fbde295a2bca9ab2c5b0a49c3776ac2080ff;hb=a8e4b1744a6bbd2e1509b58e73b1d52751563880;hp=4f6d7c380c1978a28ce80662fdb29ccb299cb2bc;hpb=5021bac8641bc1eac15372d455a256123f98ae67;p=freeside.git

diff --git a/bin/pg-readonly b/bin/pg-readonly
index 4f6d7c380..ad69fbde2 100644
--- a/bin/pg-readonly
+++ b/bin/pg-readonly
@@ -17,6 +17,8 @@ my $dbh = adminsuidsetup $user;
 foreach my $table ( dbdef->tables ) {
   $dbh->do("GRANT SELECT ON $table TO $rouser");
   $dbh->commit();
-  $dbh->do("GRANT SELECT ON ${table}_seq TO $rouser");
-  $dbh->commit();
+  if ( my $pkey = dbdef->table($table)->primary_key ) {
+    $dbh->do("GRANT SELECT ON ${table}_${pkey}_seq TO $rouser");
+    $dbh->commit();
+  }
 }