Ensure that returned priority in a number in mod_admin_extra

diff --git a/src/mod_admin_extra.erl b/src/mod_admin_extra.erl
index 2deb5525b94e0f433aea2f50d0765249b7f1e95a..bb7fe0bdd2fa0c012e0ed7fc4502805afbf8a05a 100644 (file)
--- a/src/mod_admin_extra.erl
+++ b/src/mod_admin_extra.erl
@@ -1018,7 +1018,7 @@ status_num(Status) ->
     status_num(<<"all">>, Status).
 status_list(Host, Status) ->
     Res = get_status_list(Host, Status),
-    [{U, S, R, P, St} || {U, S, R, P, St} <- Res].
+    [{U, S, R, num_prio(P), St} || {U, S, R, P, St} <- Res].
 status_list(Status) ->
     status_list(<<"all">>, Status).
 
@@ -1046,7 +1046,7 @@ get_status_list(Host, Status_required) ->
                  _ ->
                      fun(A, B) -> A == B end
              end,
-    [{User, Server, Resource, Priority, stringize(Status_text)}
+    [{User, Server, Resource, num_prio(Priority), stringize(Status_text)}
      || {{User, Resource, Status, Status_text}, Server, Priority} <- Sessions4,
        apply(Fstatus, [Status, Status_required])].
 
@@ -1127,7 +1127,7 @@ user_session_info(User, Host, Resource) ->
     NodeS = atom_to_list(node(Pid)),
     Uptime = CurrentSec - calendar:datetime_to_gregorian_seconds(
            calendar:now_to_local_time(Now)),
-    {atom_to_list(Conn), IPS, Port, Priority, NodeS, Uptime, Status, Resource, StatusText}.
+    {atom_to_list(Conn), IPS, Port, num_prio(Priority), NodeS, Uptime, Status, Resource, StatusText}.
 
 
 %%%
@@ -1736,4 +1736,9 @@ is_glob_match(String, <<"!", Glob/binary>>) ->
 is_glob_match(String, Glob) ->
     is_regexp_match(String, ejabberd_regexp:sh_to_awk(Glob)).
 
+num_prio(Priority) when is_integer(Priority) ->
+    Priority;
+num_prio(_) ->
+    -1.
+
 mod_options(_) -> [].