[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.9 and 1.137

version 1.128.2.9, 2006/04/19 20:36:19 version 1.137, 2006/04/10 07:30:54
Line 349  sub webgrade_standard_info { Line 349  sub webgrade_standard_info {
   
     my %lt=&Apache::lonlocal::texthash('done' => 'Next Item',      my %lt=&Apache::lonlocal::texthash('done' => 'Next Item',
        'stop' => 'Quit Grading',         'stop' => 'Quit Grading',
        'fail' => 'Fail Rest',  
        );         );
                 
     my $result=<<INFO;      my $result=<<INFO;
   <div class="LC_GRADING_maincontrols">    <div class="LC_GRADING_maincontrols">
     <input type="submit" name="next" value="$lt{'done'}" />      <input type="submit" name="next" value="$lt{'done'}" />
     <input type="submit" name="stop" value="$lt{'stop'}" />      <input type="submit" name="stop" value="$lt{'stop'}" />
     <input type="button" name="fail" value="$lt{'fail'}"   
            onclick="javascript:onFailRest()" />  
   </div>    </div>
   $file_list    $file_list
 INFO  INFO
Line 458  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 1320  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.9  
changed lines
  Added in v.1.137

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