X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/c497b0352f95a55d204101b70ac771b2dc21ddee..d1489df29cba94ddf3a9f6dc6a1f310033a90924:/SL/Auth.pm

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