[BACK]Return to bridgetask.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/bridgetask.pm between versions 1.128.2.8 and 1.137

version 1.128.2.8, 2006/04/10 18:08:50 version 1.137, 2006/04/10 07:30:54
Line 455  sub start_Task { Line 455  sub start_Task {
     my $files = '<ul>';      my $files = '<ul>';
     foreach my $file (@files) {      foreach my $file (@files) {
  my $url="/uploaded/$domain/$user/portfolio$file";   my $url="/uploaded/$domain/$user/portfolio$file";
  $file = '<tt>'.$file.'</tt>';   if (! &Apache::lonnet::stat_file($url)) {
       $file = &mt('<font color="red"> Nonexistant file:</font> <tt>[_1]</tt>',$file);
    } else {
       $file = '<tt>'.$file.'</tt>';
    }
  $files .= '<li>'.$file.'</li>';   $files .= '<li>'.$file.'</li>';
     }      }
     $files.='</ul>';      $files.='</ul>';
Line 1317  sub pick_from_queue_data { Line 1321  sub pick_from_queue_data {
  @possible = sort { $a->[1] <=> $b->[1] } @possible;   @possible = sort { $a->[1] <=> $b->[1] } @possible;
  # pick one of the entries in the top 10% in small queues and one   # pick one of the entries in the top 10% in small queues and one
  # of the first ten entries in large queues   # of the first ten entries in large queues
  #my $ten_percent = int($#possible * 0.1);   my $ten_percent = int($#possible * 0.1);
  #if ($ten_percent < 1 ) { $ten_percent = 1;  }   if ($ten_percent < 1 ) { $ten_percent = 1;  }
  #if ($ten_percent > 10) { $ten_percent = 10; }   if ($ten_percent > 10) { $ten_percent = 10; }
  #my $max=($#possible < $ten_percent) ? $#possible : $ten_percent;   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;      return undef;
 }  }
Removed from v.1.128.2.8  
changed lines
  Added in v.1.137

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>