ulist: Update user list with vnlist/votes/wishlist stats

This adds the users.c_vns and c_wish columns and a function to update
the cache.

Unlike my previous cache update approaches, I did not use SQL triggers
here, as that seemed more complex and less efficient than updating the
cache manually. That's not to say that I'm happy with the current
approach, but meh...

The cache update function is not automatically run for all users, but
that could be added to Multi::Maintenance if it turns out that the
cached values will not be updated properly in some cases.

1 files changed, 11 insertions, 3 deletions

diff --git a/lib/Multi/API.pm b/lib/Multi/API.pm
index 5cb68c1b..3eae8e6b 100644
--- a/lib/Multi/API.pm
+++ b/lib/Multi/API.pm
@@ -1481,11 +1481,17 @@ sub set_wishlist {
 }
 
 
+sub set_ulist_ret {
+  my($c, $obj) = @_;
+  setpg $obj, 'SELECT update_users_ulist_stats($1)', [ $c->{uid} ]; # XXX: This can be deferred, to speed up batch updates over the same connection
+}
+
 sub set_ulist {
   my($c, $obj) = @_;
 
-  return setpg $obj, 'DELETE FROM ulist_vns WHERE uid = $1 AND vid = $2',
-    [ $c->{uid}, $obj->{id} ] if !$obj->{opt};
+  return cpg $c, 'DELETE FROM ulist_vns WHERE uid = $1 AND vid = $2', [ $c->{uid}, $obj->{id} ], sub {
+    set_ulist_ret $c, $obj;
+  } if !$obj->{opt};
 
   my $opt = $obj->{opt};
   my @set;
@@ -1533,7 +1539,9 @@ sub set_ulist {
   return cerr $c, missing => 'No fields to change' if !@set;
 
   cpg $c, 'INSERT INTO ulist_vns (uid, vid) VALUES ($1, $2) ON CONFLICT (uid, vid) DO NOTHING', [ $c->{uid}, $obj->{id} ], sub {
-    setpg $obj, 'UPDATE ulist_vns SET '.join(',', @set).' WHERE uid = $1 AND vid = $2', \@bind;
+    cpg $c, 'UPDATE ulist_vns SET '.join(',', @set).' WHERE uid = $1 AND vid = $2', \@bind, sub {
+      set_ulist_ret $c, $obj;
+    }
   };
 }