#
# show the debug status
#
-# $Id$
+#
#
use DXDebug;
my $self = shift;
-#return (0) if ($self->priv < 9); # only console users allowed
+return (0) if ($self->priv < 9); # only console users allowed
-my $set = join ' ', dbglist(); # generate space delimited list
+my $set = join ' ', sort (dbglist()); # generate space delimited list
return (1, "debug levels: $set");