Métodos para llenar popup_menu POO
Publicado: 2014-03-19 09:19 @430
Hola, ¿qué tal? Tengo un problema para llenar un control popup_menu en un .pm en POO.
Les explico lo que intento hacer: es hacer un select de todos los nombres que son distintos en una tabla, junto con su ID. Esta misma manera la he utilizado en programación convencional, es decir, en scripts pl y funciona, pero no sé si en los métodos del pm se realiza de la misma manera.
Espero puedan responderme y ayudarme en dicho conflicto.
Saludos
Les explico lo que intento hacer: es hacer un select de todos los nombres que son distintos en una tabla, junto con su ID. Esta misma manera la he utilizado en programación convencional, es decir, en scripts pl y funciona, pero no sé si en los métodos del pm se realiza de la misma manera.
Espero puedan responderme y ayudarme en dicho conflicto.
Saludos
Using perl Syntax Highlighting
- sub catalogoLineas{ # Obtener todas las líneas
- my $self = shift;
- $self->{Lineas} = $dbh->selectall_arrayref("SELECT DISTINCT(NOMBRE), LINEA_ARTICULO_ID FROM LINEAS_ARTICULOS");
- my (@linea, %linea) = ('');
- if(defined $self->{Lineas}){
- foreach(sort {$a->[1] cmp $b->[1] } @$self->{Lineas}){
- push(@linea, $_->{Lineas}->[1]);
- $self->{Lineas}{$_->{Lineas}->[1]} = "$_->{Lineas}->[0]";
- }
- }
- print CGI->popup_menu(-align=>'left',-name=>'tipo', -values=>\@linea, -labels=>\%linea, -override=>1);
- }
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4