--- loncom/homework/bridgetask.pm 2006/04/10 07:37:39 1.138 +++ loncom/homework/bridgetask.pm 2006/04/10 18:08:11 1.139 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.138 2006/04/10 07:37:39 albertel Exp $ +# $Id: bridgetask.pm,v 1.139 2006/04/10 18:08:11 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1321,12 +1321,13 @@ sub pick_from_queue_data { @possible = sort { $a->[1] <=> $b->[1] } @possible; # pick one of the entries in the top 10% in small queues and one # of the first ten entries in large queues - my $ten_percent = int($#possible * 0.1); - if ($ten_percent < 1 ) { $ten_percent = 1; } - if ($ten_percent > 10) { $ten_percent = 10; } - my $max=($#possible < $ten_percent) ? $#possible : $ten_percent; + #my $ten_percent = int($#possible * 0.1); + #if ($ten_percent < 1 ) { $ten_percent = 1; } + #if ($ten_percent > 10) { $ten_percent = 10; } + #my $max=($#possible < $ten_percent) ? $#possible : $ten_percent; - return $possible[int(rand($max))][0]; + #return $possible[int(rand($max))][0]; + return $possible[0][0]; } return undef; }