X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FAuth.pm;h=3ef2660656e758c3dcdc67df10b96b7ada8ec64b;hb=feacad49259a8288edefa4c771fc028dd6380ca0;hp=d0e8c9ab396234d4809b581d4a0c7401aa9cbac2;hpb=c497b0352f95a55d204101b70ac771b2dc21ddee;p=kivitendo-erp.git

diff --git a/SL/Auth.pm b/SL/Auth.pm
index d0e8c9ab3..3ef266065 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -713,6 +713,17 @@ sub destroy_session {
   $main::lxdebug->leave_sub();
 }
 
+sub active_session_ids {
+  my $self  = shift;
+  my $dbh   = $self->dbconnect;
+
+  my $query = qq|SELECT id FROM auth.session|;
+
+  my @ids   = selectall_array_query($::form, $dbh, $query);
+
+  return @ids;
+}
+
 sub expire_sessions {
   $main::lxdebug->enter_sub();