summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Model
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-07-18 15:47:45 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2023-07-18 15:47:45 +0200
commitfef9ebe0b20623c4e21cf720ea379338e6ef978e (patch)
tree549094779c7f73e62b2179ac443efb8ac10cf3e5 /lib/Travelynx/Model
parentc81d471728888794c012a74fbb2c85b235dcfc09 (diff)
followee list: show if accounts are following back1.33.3
Diffstat (limited to 'lib/Travelynx/Model')
-rw-r--r--lib/Travelynx/Model/Users.pm22
1 files changed, 20 insertions, 2 deletions
diff --git a/lib/Travelynx/Model/Users.pm b/lib/Travelynx/Model/Users.pm
index 0665f6a..c51e612 100644
--- a/lib/Travelynx/Model/Users.pm
+++ b/lib/Travelynx/Model/Users.pm
@@ -1123,9 +1123,27 @@ sub get_followees {
my $db = $opt{db} // $self->{pg}->db;
my $uid = $opt{uid};
- my $res = $db->select( 'followees', [ 'id', 'name' ], { self_id => $uid } );
+ my $res = $db->select(
+ 'followees',
+ [ 'id', 'name', 'inverse_predicate' ],
+ { self_id => $uid }
+ );
- return $res->hashes->each;
+ my @ret;
+ while ( my $row = $res->hash ) {
+ push(
+ @ret,
+ {
+ id => $row->{id},
+ name => $row->{name},
+ following_back => (
+ $row->{inverse_predicate}
+ and $row->{inverse_predicate} == $predicate_atoi{follows}
+ ) ? 1 : 0,
+ }
+ );
+ }
+ return @ret;
}
sub has_followees {