czara1 email Envoyé le : 23/02/2005 à 23:54

Bonjour,

En fonction de ton aide j'ai codé ça dans le fichier GCExport.pm :

$result .= '" '.$idString.'>';

enfin c la que ça commence ;) :


my $emprunt = $movie->{borrower};

if ($emprunt =~ m/none/)
{
$emprunt = ' <div id="pret" class="dispo";>Disponible. </div>';
}
else
{
$emprunt = ' <div id="pret" class="nondispo";> Emprunté par: ' .$movie->{borrower}.'. </div>';
}
$result .= $movie->{title};
$result .= '</a>';
$result .= ' | <a class="topl" href="#top">(Haut)</a>' .$emprunt.'</dt>
<dd><div id="movie'.$number.'"';

Et j'ai ajouté ça à la feuille de style :

.dispo {
color:#00ff0c;
background:transparent;
text-decoration:none;
}
.nondispo {
color:#ff0000;
background:transparent;
text-decoration:none;
}

Et ça ajoute donc pour ceux qui l'aurait compris la disponibilité du film sur l'export HTML.

Je peux t'envoyer le fichier complet, attention c'est pour laversion 4.2 tu as sortie la 4.3 pendant que je codais !! :) Mais elle doit être compatible je pense.

@ bientôt

PS: Je me suis surpris moi même : je n'avais jamais touché au langage perl de ma vie :) Bon c'est vrai que c'est pas compliqué ce que j'ai fait mais je l'ai fait :)