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

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();
+  }
 }