+# the official way
+# @call = sort map { my $ref; (($ref = DXUser->get_current($_)) && $ref->sort ne 'U') ? $_ : () } DXUser::get_all_calls;
+ use DB_File;
+
+ my ($action, $count, $key, $data);
+ for ($action = R_FIRST, $count = 0; !$DXUser::dbm->seq($key, $data, $action); $action = R_NEXT) {
+ if ($data =~ m{sort => '[ACRSX]'}) {
+ push @call, $key;
+ }
+ ++$count;
+ }