-% my $sth = dbh->prepare(
-% #"SELECT DISTINCT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
-% "SELECT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
-% WHERE ( history_action = 'insert' OR history_action = 'replace_new' )
-% AND history_user = ?
-% ORDER BY history_date desc" # LIMIT 10
-% ) or die dbh->errstr;
+% my $curuser = $FS::CurrentUser::CurrentUser;
+% my $numcust = $curuser->option('dashboard_customers');
+% $numcust ||= 10 unless $numcust =~ /^\s*0+\s*$/;
+% if ( $numcust ) {
+%
+% warn time.": fetching recently changed customers\n" if $debug;
+%
+% my $sth = dbh->prepare(
+% #"SELECT DISTINCT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
+% "SELECT custnum FROM h_cust_main JOIN cust_main USING ( custnum )
+% WHERE ( history_action = 'insert' OR history_action = 'replace_new' )
+% AND history_user = ?
+% AND ". $curuser->agentnums_sql( table=>'cust_main' ).
+% " ORDER BY history_date desc LIMIT 1000" # LIMIT 10
+% ) or die dbh->errstr;