cvs commit: p5ee/App-WorkQueue/lib/App/WorkQueue Repository.pm

cvsuser     06/02/08 13:05:16

  Modified:    App-WorkQueue/lib/App/WorkQueue Repository.pm
  Log:
  fix to use queue_id in select
  
  Revision  Changes    Path
  1.5       +2 -3      p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm
  
  Index: Repository.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-WorkQueue/lib/App/WorkQueue/Repository.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- Repository.pm	8 Feb 2006 20:58:18 -0000	1.4
  +++ Repository.pm	8 Feb 2006 21:05:16 -0000	1.5
  @@ -358,8 +358,7 @@
       if ($self->{queue_id_attrib} && $self->{queue_id}) {
           $params->{$self->{queue_id_attrib}} = $self->{queue_id};
       }
  -    my $rows = $db->get_rows($self->{table}, { $status_attrib => "$STATUS_UNBUFFERED,$STATUS_UNACQUIRED", },
  -        [ $key_attrib, $count_expr ], { group_by => [ $key_attrib ] });
  +    my $rows = $db->get_rows($self->{table}, $params, [ $key_attrib, $count_expr ], { group_by => [ $key_attrib ] });
       foreach my $row (@$rows) {
           $counts->{$row->[0]} = $row->[1];
       }