inverte uma consulta potencialmente pesada de forma que deve otimizar a emissão de senhas

Daniel Ruoso
1 parent 4e86de01
Showing 1 changed file with 7 additions and 4 deletions Show diff stats
Fila-Servico/lib/Fila/Servico/Controller/WS/Gestao/Senha.pm
@@ -191,10 +191,13 @@ sub solicitar_senha :WSDLPort(&#39;GestaoSenha&#39;) :DBICTransaction(&#39;DB&#39;) :MI {
         }
         # verificar se a senha está disponível.
-        my $verificar = $c->stash->{local}->atendimentos_atuais->search
-          ({ 'senha.id_categoria' => $id_categoria,
-             'senha.codigo' => $codigo_senha_atual },
-           { join => 'senha' });
+        my $verificar = $c->model('DB::Senha')->search
+          ({ 'me.id_categoria' => $id_categoria,
+             'me.codigo' => $codigo_senha_atual,
+             'atendimentos.vt_ini' => { '>=' => $now },
+             'atendimentos.vt_fim' => { '<'  => $now },
+             'atendimentos.id_local' => $c->stash->{local}->id_local },
+           { join => 'atendimentos' });
         if ($verificar->first) {
             goto CHECARSENHA;
         }