diff --git a/lib/WebGUI/Operation/User.pm b/lib/WebGUI/Operation/User.pm index ce10173e0..fe0d80148 100644 --- a/lib/WebGUI/Operation/User.pm +++ b/lib/WebGUI/Operation/User.pm @@ -637,6 +637,10 @@ sub www_listUsers { my $i18n = WebGUI::International->new($session); my $output = getUserSearchForm($session,"listUsers"); my ($userCount) = $session->db->quickArray("select count(*) from users"); + if($userCount > 250) { + $output .= "
There are over 250 users. Please use the search to find users.
\n"; + } + return _submenu($session,{workarea => $output}) unless ($session->form->process("doit") || $userCount<250 || $session->form->process("pn") > 1); tie %status, 'Tie::IxHash'; %status = (