[caracas-pm] Paginador de Resultados HTML

[Francisco Obispo]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Tienes antes que todo imprimir el "header"

puedes hacerlo usando el modulo CGI que ya tienes cargado con

print $query->header();


por defecto imprime "text/html" pero puedes especificar el mime-type
que vayas a utilizar.

Lo demás no son errores si no "warnings" probablemente vienen de algun
"warn" o "croak"

saludos




Alexis Arnal wrote:

| Saludos, espero que esten bien.
|
| Sigo inventando y ahora se me ocurrió agregar a un sistema un
| paginador de resultados al estilo de google o altavista, el cual
| cuando realice una búsqueda en una base de datos si consigue más de
|  un elemento que concuerde lo muestre y me permita verlos de 10 en
| 10 con posibilidades de ir al final o al principio.
|
| Encontré un módulo llamado HTML::Pager desarrollado por la misma
| persona de HTML::Template (Sam Tregar) pero la documentación está
| un poco confusa, Realice los ejemplos de la documentación y en la
| consola muestra una salida pero en el navegador manda un error
|
| Este es mi código: *********************************
| #!/usr/bin/perl use HTML::Pager; use CGI;
|
| # get CGI query object my $query = CGI->new(); my @data = ( { name
| => sam, age => 10 }, { name => saa, age => 11 },

| { name => sad, age => 12 }, { name => sac, age => 13 }, { name =>
| sab, age => 14 }, );
|
| my $get_data_sub = sub { my ($offset, $rows) = @_; my
| @return_array;
|
| for (my $x = 0; $x < $rows; $x++) { push(@return_array, [
| $data[$offset + $x]{name}, $data[$offset + $x]{age} ] ); } return
| \@return_array; };
|
| # create a Pager object my $pager = HTML::Pager->new( # required
| parameters query => $query, get_data_callback => $get_data_sub,
| rows => 100, page_size => 10,
|
| # some optional parameters persist_vars => ['myformvar1',
| 'myformvar2', 'myformvar3'], cell_space_color => '#000000',
| cell_background_color => '#ffffff', nav_background_color =>
| '#dddddd', javascript_presubmit => 'last_minute_javascript()',
| debug => 1, ); # make it go - send the results to the browser.
| print $pager->output;
| *********************************************************
|
| Y este es el error
| ********************************************************** offset
| set to 0 at /usr/local/share/perl/5.8.4/HTML/Pager.pm line 377. Got
|  data. at /usr/local/share/perl/5.8.4/HTML/Pager.pm line 404.
| malformed header from script. Bad header=<SCRIPT
| LANGUAGE="Javascript">: prueba_html_pager.pl
| ************************************************************
|
| Alguien ha trabajado alguna vez con este módulo?? Dónde puedo
| conseguir más documentación o un ejemplo?? Si saben de otro módulo
| que haga lo mismo??
|
| Mientras tanto sigo dandome rompiendome el coco.
|
| Atte. Alexis Arnal Caracas-Venezuela
| _______________________________________________ caracas-pm mailing
| list caracas-pm at pm.org
| http://mail.pm.org/mailman/listinfo/caracas-pm
|
|


- --
~~~~~~~~~~~~~~~~~~~~~~~~~~
Francisco Obispo
Coordinador del NIC-VE (ccTLD .VE)
(http://www.nic.ve)
GPG Fingerpring: 347C 3FA7 4615 675B 0784  2067 1ACD 3367 928C 9923
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.5 (GNU/Linux)
Comment: Using GnuPG with Thunderbird - http://enigmail.mozdev.org

iD8DBQFCd52hGs0zZ5KMmSMRAsTcAJ9W06OBfteQf1l+w4dNAcpe2VMj+QCffo7z
VOwHJ6cwc/pmtcKpkWva/g8=
=jLRV
-----END PGP SIGNATURE-----