From aarnal at gmail.com Tue May 3 08:43:59 2005 From: aarnal at gmail.com (Alexis Arnal) Date: Tue May 3 08:44:10 2005 Subject: [caracas-pm] Paginador de Resultados HTML Message-ID: <97aa8b8050503084356000a5@mail.gmail.com> 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=