Foro - Perl en Español

Creo recordar que sí que hay un método de la clase HTML::CalendarMonth que devuelve todas las celdas del calendario. Y para cada una de ellas puedes darles un estilo que sea el ancho en píxeles que quieres.

El método days() me devuelve todos los días de un calendario, para cambiar el tamaño de celdas use un foreach.

¿De pronto no sabes una forma más rápida de poner por ejemplo en los días

@dias(05, 08, 22, 24) estos @fondos(fondo1, fondo2, fondo3, fondo4)

sin usar un ciclo?

Usando algo así,

Pues no, no lo sé.

Hay una posibilidad para evitar hacer un bucle (que tampoco es muy costoso hacerlo), que se me ocurre.

Si, en toda la página, no hay más celdas de tabla que las de ese calendario, entonces te vale con definir un estilo CSS para la marca TD. Por ejemplo:



Yo creo que la mejor opción es hacer un bucle por los días que quieres modificar (no probado):

habiendo convertido el array @fondos en un hash, para que cada fondo corresponda con su día.

Pues si, utilicé tu sugerencia y me funcionó bien... con un bucle, pero creo que debe haber una forma para lograrlo ya que si hago eso
me funciona bien ^^ pero la idea es pasarles la lista solamente.

Explorer, ¿cómo puedo hacer que el número del día sea un vinculo, es que ahora necesito que cuando dé click en el número del día me abra una ventana lightbox para mostrar la foto? Ya solo me falta eso por ahora.

Con la función replace_content() cambias el contenido de la celda.

Yo suelo usar las facilidades que da CGI.pm para hacer todo el código HTML que necesito.

Código: Seleccionar todo

    # Creación de los enlaces a los sumarios de cada día
    foreach my $dia ( keys %dias_publicados ) {
        my $enlace = $cgi->url(-path_info => 1) . "?d=$dia;m=$mes;a=$anno";
        $calendario->item($dia)->attr(onmouseover =>  q(javascript:this.className='sobrepub'));
        $calendario->item($dia)->attr(onmouseout  =>  q(javascript:this.className='fuerapub'));
        $calendario->item($dia)->attr(onclick     => qq(javascript:parent.location='$enlace'));
        $calendario->item($dia)->replace_content($cgi->a({-href => $enlace, -class => 'pub'}, $dia));
    }

En %dias_publicados tengo los días en los que me interesa poner un enlace. Los recorro (sin importar el orden) y para cada uno creo el $enlace que les corresponde.
Para cada celda del calendario les pongo tres atributos, que son eventos del ratón para facilitar la interacción con el usuario.
Y finalmente, cambiamos el contenido de la celda con un $enlace (a()), y de contenido, el número del $dia del mes.

Explorer, cuando utilizo algo parecido a tu ejemplo, dentro de las celdas en vez de hacerme el link me muestra
<a rel="lightbox" href="http://localhost/bitacora/riocauca/index.pl?d=;m=05;a=2008">19</a> en vez de ponerme en link dentro del número del día...

No sé si me hice entender, lo quiero decir es que en vez de hacer el vínculo, me muestra, por decir, el código HTML dentro la celda.

El módulo HTML::CalendarMonth usa el método as_HTML() del módulo HTML::Element, que dice que su misión es la de 'escapar' todos los caracteres extraños, que eso incluye a los caracteres que usas como código HTML: '<', '>', '&', etc.

La solución es decirle que NO haga eso, que no escape el contenido que le hemos pasado a HTML::CalendarMonth.

Yo lo resolví haciendo un my $html = $calendario->as_HTML( q{|} );. Lo que hago es pedirle que me genere el calendario en html, pero que solo 'escape' el carácter '|', que, además, no uso en ningún sitio, pero estoy obligado a darle al menos algo a la función para que no escape todos los caracteres extraños.

Huy, gracias explorer, ya no te molesto más; por ahora, ok.