--- loncom/homework/bridgetask.pm 2006/04/10 18:08:50 1.128.2.8 +++ loncom/homework/bridgetask.pm 2006/04/10 07:30:54 1.137 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # definition of tags that give a structure to a document # -# $Id: bridgetask.pm,v 1.128.2.8 2006/04/10 18:08:50 albertel Exp $ +# $Id: bridgetask.pm,v 1.137 2006/04/10 07:30:54 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -455,7 +455,11 @@ sub start_Task { my $files = ''; @@ -1317,13 +1321,12 @@ 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[0][0]; + return $possible[int(rand($max))][0]; } return undef; }