Foro - Perl en Español

Hola a todos:

Recién hice un módulo para paginación de algunos reportes que son muy grandes (arriba de 20-30 páginas) y me funciona bien, pero lo que no es nada práctico es que al cliquear el botón Atrás en cualquier browser, me va llevando por todas las páginas que he visitado.

¿Cómo puedo evitar esto?

Cualquier tip es bienvenido.

La definición de los botones 'Atrás' en los navegadores son, precisamente eso: moverse por las páginas que se han visto antes.

En el ejemplo que has puesto, quizás un usuario quiere volver a ver una de las 20 páginas del informe, que ya ha visto, y por eso quiere volver.

Si lo que quieres es que el usuario vuelva al principio del informe, o a otro sitio, solo tienes que agregar un enlace en la página, que lo lleve a ese sitio.

Hola explorer:

Efectivamente ya hice lo que tu propones, pero aun así, después de ese enlace me sigue guardando la historia de todas las páginas visitadas.

¿¿¿¿Hay alguna forma de alterar dicha historia????

Gracias por tu respuesta.

Negrazo

Una cosa es manipular la historia, y otra, decirle al navegador que no almacena las páginas. Para este segundo caso, si tienes control sobre las cabeceras HTTP que envías, podrías enviar la de no-cache, y así no se almacenarán las páginas.

O, también, incluirlas en los <meta> de la cabecera de las páginas:

<meta http-equiv="Cache-control" content="no-cache">

Hola, explorer:

Creo que me voy a ir por el lado de Control-cache en los headers. Se me hace más practico que manipular la historia; ahora bien, ya lo probé en un reporte muy sencillo y no me está funcionando, seguramente algo me falta o lo puse mal, ¿¿¿pudieras echarle una revisada a mi código???
Gracias.

* Las líneas
se reducen a
(no creo que sea necesario importar explícitamente uploadinfo).

* En la línea 39 empiezas a usar la función param(), del módulo CGI, indicando que vas a usar ese módulo en el estilo de funciones, pero en la línea 42 creas un objeto CGI, con lo que entonces te comprometes a usar el módulo en el estilo orientado a objetos... un lío... tendrás que decidirte por uno de los dos estilos. O el funcional o el orientado a objetos.

* ¿Por qué existe la línea 49? Usando el módulo CGI no necesitas escribir eso. Con print $cgi->header(); ya lo tendrías resuelto. Es más: incluso puedes usarlo para enviar las cabeceras que te interesan, como son las de cacheo. Mira este ejemplo, y verás cómo se usa Pragma (para el protocolo HTTP v1.0) y Control-Cache (para el HTTP v1.1). Hoy en día, con el Control-Cache es más que suficiente.

* No necesitas las líneas 54 a 56 si emites el control de caché con el header().

* Usar las funciones de generación de código HTML del módulo CGI, a veces parecen más un fastidio que una ayuda, pero dejan el código más limpio. Ejemplo de la línea 57:
Lo bueno... es que nos ahorra algunos errores... Fíjate que en esa línea has puesto un '</a>', que no corresponde con ningún '<a>' anterior.

* Las líneas 117 a 128 se reducen a
aunque quedaría más claro así:


* Si $j contiene un número, es mejor que la línea 131 se escriba con un '==' en lugar de un 'eq'. El mismo cuidado debería prestarse en la 137, poniendo un '!=' en lugar del 'ne'.

Estimado explorer:

Debo confesar que yo he aprendido algo de Perl en forma muy autónoma y rústica, viendo ejemplos aquí y allá y admito que mis hábitos de programación, pues son el resultado de lo que he visto, y te agradezco que me corrijas lo que tu consideres que se puede simplificar o hacer mejor.
Te anexo el programa ya "mejorado", que funciona bien, pero todavía me sigue guardando en caché la visita.
¿¿¿Qué me falta por hacer o qué estoy haciendo mal???

=====================================================
#!\perl\bin

require 'paginar.pl';
require 'connectDB.pl';
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use CGI qw(:standard);
use CGI::Session;
use Date::Simple ('date', 'today');
use Date::Calc qw(:all);
my $dt = today();
use POSIX qw(strftime);
my @doc = "";
my @doc1 = "";
my $count = 0;
my $countn = 0;
my $con = "";
my $mes = "";
my $num = "";
my $cicloctrl = "";
my @meses = qw(xxx Ene Feb Mar Abr May Jun Jul Ago Sep Oct Nov Dic);
# grupo de variables para paging
my $next = $init + 10;
my $prev = $init - 10;
my $i = $init + 1;
my $ult = 0;
my $rem = 0;
my $prog1 = "gralxbirth.pl";
my $prog2 = "reportesinscs.pl";
my $pagina = 0;
my $de = 0;
my $ent = 0;
my $school = "";
my @params = "";
my $countn = 0;
my $par = "";


my $cgi = new CGI;
my $CGISESSID = $cgi->param('CGISESSID');
my $session =
CGI::Session->load("driver:File",$CGISESSID,{'Directory'=>'/temp/'})
or die CGI::Session->errstr;
my $init = $cgi->param('init');
print CGI=>header(
# date in the past
-expires =>'Sat, 26 Jul 1997 05:00:00 GMT',
# always modified
#-Last_Modified => DateTime->now->strftime('%a, %d %b %Y %H:%M:%S GMT')
-Last_Modified => strftime('%a, %d %b %Y %H:%M:%S GMT', gmtime),
# HTTP/1.0
-Pragma =>'no-cache',
# HTTP/1.1
-Cache_Control =>join(', ', qw(private no-cache no-store must-revalidate max-age=0 pre-check=0 post-check=0 )),
);

print start_html(-title=>'Victoria', -bgcolor=>'#cccccc');

print "<BODY>";
print "<p align='center'><img src='logo1.gif' border='0' name='banner' ><br></p>";

my $aut = $session->param('Aut01');
if($aut eq '1' )
{

# Configurar el acceso a la DB
$con = connectDB::Conn($m)
or die "No puedo conectarme a la database\n";

my $sth1 = $con->prepare("SELECT ciclo, nombre_esc FROM control ");
$sth1->execute()or die "No puedo leer Control....$!";
my @doc1 = $sth1->fetchrow_array;
{
$cicloctrl = $doc1[0];
$school = $doc1[1];
}
$pagina = ($init / $paginar::entries) + 1;

# obtengo paginas y encabezados

my $sth1 = $con->prepare(qq(SELECT count(*) FROM alumnos where status = 'Activo' and ciclo='$cicloctrl' ));
$sth1->execute() or die "Error en Alumnos...";
@doc1 = $sth1->fetchrow_array;
$countn = $doc1[0];

$de = ($countn % $paginar::entries) ;
$ent = $countn - $de;
$de = ($ent / $paginar::entries) + 1;
print basefont ({-face=>'Arial'});
print "<H2 align='center'><B>$school </H2></B>";
print "<H2 align='center'><B>Inscripciones y Alumnos</H2></B>";

print font ({-size=>'4', -color=>'Red'},"Cumpleaños de Alumnos");
print "<BR>";

# llamo al modulo paginar
@params = ($prog1,$CGISESSID,$prev,$next,$ult,$prog2,$countn,$init,$nivel,$dt,$de);
$par = \@params;
do paginar::Paginacion($par);
print "<B>--------- Pagina: $pagina de $de</B>";

print "<TABLE align='center' border='3' >\n";
print "<TR><TH>Cont.</TH><th>Codigo</th><th>Nombre</th><th>Ap.Paterno</th><th>Ap.Materno</th><th>Sexo</th><th>Nivel</th><th>Grado</th><th>Grupo</th><th>Mes</th><th>Dia</th></TR>\n";

my $sth = $con->prepare(qq(SELECT codigo,nombre,paterno,materno,sexo,grado, grupo, month (nacimiento), day (nacimiento), nivel FROM alumnos where status = 'Activo' and ciclo='$cicloctrl' order by month(nacimiento),day(nacimiento) limit $init, $paginar::entries));

$sth->execute() or die "Error en Alumnos..";
while (@doc = $sth->fetchrow_array)
{
$mes = $meses[$doc[7]];
$j = $j + 1 ;
if($j == 1 )
{ $ant = $doc[7] ;
}
if($ant != $doc[7] ) {
print "<tr>";
print "<B><th>=======</th><th>=======</th><th>=======</th><th>=======</th><th>=======</th><th>========</th><th>========</th><th>========</th><th>========</th><th>========</th><th>========</th></B>";
print "</tr\n";
$ant = $doc[7] ;
}

print "<tr>";
print "<B><TD>$i</TD><td>$doc[0]</td><td>$doc[1]</td><td>$doc[2]</td><td>$doc[3]</td><td>$doc[4]</td><td>$doc[9]</td><td>$doc[5]</td><td>$doc[6]</td><td>$mes</td><td>$doc[8]</td></B>";
print "</tr\n";
$i++;
$init;
}
print "</TABLE>\n";

}
else
{ print font ({-size=>'5', -color=>'Red'},'No tienes autorizacion para esta opcion');
print "<BR>";
print button(-name=>'back', -value=>'Atras', -onClick=>'history.go(-1)'); }
$con->disconnect;
print "</BODY>";

print "</html>\n";

exit;

======================================================

Gracias nuevamente por tu ayuda.
Negrazo.

No es

print CGI=>header(

sino

print $cgi->header(

Otro detalle: estás declarando e inicializando $init después de usarlo.