evita a busca constante de categorias no emissor de senhas, busca apenas uma vez.

git-svn-id: http://svn.softwarepublico.gov.br/svn/sistemadeatendimento/sistema/trunk@32 63db2ce5-8a6c-0410-abb9-a418dd412890

evita a busca constante de categorias no emissor de senhas, busca apenas uma vez.
git-svn-id: http://svn.softwarepublico.gov.br/svn/sistemadeatendimento/sistema/trunk@32 63db2ce5-8a6c-0410-abb9-a418dd412890
daniel@ruoso.com
1 parent ceff01ed
Showing 1 changed file with 2 additions and 1 deletions Show diff stats
Fila-Senha/lib/Fila/Senha/Model/Emissor.pm
@@ -37,11 +37,12 @@ sub bloquear {
     }
 }
  
+my $cats;
 sub abrir {
     my $self = shift;
  
 	warn 'Buscando categorias..';
-	my $cats = Fila::Senha->model('SOAP::Senha')->listar_categorias
+	$cats ||= Fila::Senha->model('SOAP::Senha')->listar_categorias
       ({ local => {} });
  
 	unless ($cats) {
...	...	@@ -37,11 +37,12 @@ sub bloquear {
37	37	}
38	38	}
39	39
	40	+my $cats;
40	41	sub abrir {
41	42	my $self = shift;
42	43
43	44	warn 'Buscando categorias..';
44		- my $cats = Fila::Senha->model('SOAP::Senha')->listar_categorias
	45	+ $cats \|\|= Fila::Senha->model('SOAP::Senha')->listar_categorias
45	46	({ local => {} });
46	47
47	48	unless ($cats) {
...	...