Le PHP Facile - Apprenez le PHP !

le 04/08/2004 à 21:00

espérons que quelqu'un en saura plus que nous

le 04/08/2004 à 20:06

Salut à tous,
mon problème est de faire un checkbox qui me permet de séléctionner ou désélectionner tous mes checkbox en même temps.

pour cela j'ai fait ce fonction avec ce bouton en bas.
Mais j'ai une erreur sur la ligne du if.
pouvez vous me dire à quoi cela est il du.
merci

function select()
{
if(document.form.group[0].checked
== true) //if checked do this
{
fait ceci
}
/** else // if not checked do this
{
fait cela
}
}
<input type="checkbox" name="tous" onclick=select () >

le 27/07/2004 à 16:35

personnes connectees

Salut
Merci à vous tous j'ai pu régler mon problème maintenant.

le 23/07/2004 à 15:32

personnes connectees

[panneau]Salut,!![panneau]
je choisis la 3 eme solution doncdans le fichier .php je dois mettre :

session_start();

if (!isset($_SESSION['clik']))
{
$_SESSION['clik']="run";
}
header ("Location: Test.pl");

le 21/07/2004 à 15:45

personnes connectees

Salut je reviens donc avec mes 2 fichiers

note de zebden : utilise le BBcode , je suis sympa je le fais pour toi :)

****************fichiers ou je compte le nombre de clients***********



<? if (isset($_SESSION['clik']) &&

$_SESSION['clik']="Run") include('nombre_online.php');

} ?>





<html>

<head>

	<title></title>

	

	<SCRIPT SRC="./javascripts.js"></SCRIPT>

</head>



<body>





<table width=100%> <tr>



    <td align=left> search motifs <h3></h3>          </td>

    

</tr></table>



</body>

</html>





*********fichier de traitement si je clique sur le bouton Run********

session_start();

if (!isset($_SESSION['clik']))

{

$_SESSION['clik']="run";

}









#!/usr/bin/perl5.8.0 -w





use strict;

use Module;



use CGI;

use CGI::Carp qw(fatalsToBrowser);

#-----------------------------------------------------------------------------

#				VARIABLES

#-----------------------------------------------------------------------------





#cgi objects

my $query = new CGI;        

my $params = $query->Vars;  

                           







#files

my $resultFile; #result file



#strings

my @results;    

my %stats;      

                



#paths

my $htmldir        = "/program/";

my $tempdir        = "/tmp/";



my $trsetdir       = "../html/program.v/";

my $privatedir     = "../html/program.f/";

my $stylepath      = "$htmldir"."style.css";

my $javascriptpath = "$htmldir"."javascripts.js";



#database conection

my $db          = 'DBI:mysql:program';

my $user        = 'user';

my $password    = 'password';



#generic file stream

my $stream;









#-----------------------------------------------------------------------------

#				ERPIN RESULTS

#-----------------------------------------------------------------------------





cleanOldFiles($tempdir, 'program');



$resultFile = $params->{'file'};

if(not $resultFile or $resultFile eq "none")

{

    # Running

    $resultFile = programRun($db, $user, $password, $query, $trsetdir, $privatedir, $tempdir);

    if($resultFile =~ /error/){ exitOnError($query, $resultFile); }

    $params->{'file'} = $resultFile;

}







#Results reading

#---------------



%stats = statistics($resultFile);

$params->{'hits'} = $stats{'hits'};

my $firstIndex = $params->{'hitsOnPage'} * $params->{'page'};



if($firstIndex < $params->{'hits'}) {

@results = candidates($resultFile, $firstIndex, $params->{'hitsOnPage'});}





#Temp files erasing

#------------------



#system("rm -f $resultFile");













#-----------------------------------------------------------------------------

#				HEADER

#-----------------------------------------------------------------------------



print $query->header;



print (

"<head>

<title>results</title>

<link href=\"$stylepath\" rel=\"stylesheet\" type=\"text/css\">

<SCRIPT SRC=\"$javascriptpath\"></SCRIPT>

</head>

");







#-----------------------------------------------------------------------------

#				BODY

#-----------------------------------------------------------------------------





print $query->h3("results");

#print $query->br();







#Form

#-----------------------------------------------------------------------------



if ($params->{'sequence2'} ne "")

{

    print $query->h4("Looking for $params->{'trainingset'} into $params->{'sequence2'}");

}

else

{

    print $query->h4("Looking for $params->{'trainingset'}");

}



print $query->hr({-width=>"40%", -align=>"left"});





my $lastIndex = $params->{'hits'}-1;

#my $index2  = $firstIndex + $params->{'hitsOnPage'} - 1;

my $index2  = $firstIndex + $params->{'hitsOnPage'};

$firstIndex++;

if ($index2 > $params->{'hits'}){$index2 = $lastIndex+1;}

print $query->p("Page $params->{'page'} (sequences containing hits : $firstIndex-$index2 / $params->{'hits'})");









print $query->startform(-action=>'/program/results.pl');



    my $maxPage = int ($params->{'hits'} / $params->{'hitsOnPage'}); #/



    print('<table width="80%" border="0"><tr><td>');

    for(my $i=0; $i<=$maxPage; $i++)

    {

        if($params->{'page'}==$i){

            print $query->submit(-name=>'page', -value=>"$i", -class=>'selected');}

        else {

            print $query->submit(-name=>'page', -value=>"$i");}

        if( ($i>0)&&( ($i % 20) == 0) ){print '<br>';}



    }

    

print $query->endform;







#Erpin results

#-----------------------------------------------------------------------------





my @array;

my $name = "no name";

for(my $i=0; $i<@results; $i++)

{

    if      ($results[$i] =~ />/)

            {

                $name = $results[$i];

                #$name =~ s/[\n\t\r\f\e\a]//gi;

                #$name =~ s/[\W]/_/gi;

                push(@array, $query->th({-align=>'left'}, [$name]) );



            }

    elsif   ( ($results[$i] =~ /FW/)or($results[$i] =~ /RC/) )

            {

                my $infoTable = infoTable($results[$i]);

                push(@array, $query->td({},[$infoTable]) );

            }

    else

            {

                my $seq  = $results[$i];

                my $form = createDrawingForm($query->{'trainingset'}, $name, $seq, $query);

                my $form2 = createSaveDrawingForm($query->{'trainingset'}, $name, $seq, $query);

                my $info =  '<table width=100%><tr>' .

                            "<td align=left>$form</td>" .

                            "<td align=left>$form2</td>" .

                            "<td class=sequences><pre>$seq</pre></td>" .

                            '</tr></table>';

                push(@array, $query->td({},[$info]) );

            }

}



print('<table border="0"><tr><td class="bodyline">');

print $query->table( {}, $query->Tr({-class=>'list2'},\@array) );

print('</td></tr></table><br>');







#Erpin statistics

#-----------------------------------------------------------------------------



print $query->h4("Statistics:");

printSortedHash($query, \%stats);





#Legend

#-----------------------------------------------------------------------------



printLegend($query);













#The Naview copyright notice

#-----------------------------------------------------------------------------



print $query->h4("Naview Copyright notice :");



print $query->p(    'The draw button shows pictures created by NAVIEW - ' . );

print $query->p(    '');











#-----------------------------------------------------------------------------

#				END

#-----------------------------------------------------------------------------





print $query->end_html;

je suis désolé d'envahir le forum mais c'est que je n'y comprends rien

[Message modifié le 21/07/2004 à 16:25 par zebden]

le 21/07/2004 à 11:58

personnes connectees

Salut,
j'ai testé le script mais je suis confronté à une erreur "Undefined subroutine &main::session_start called at /test.pl line 24.

For help, please send mail to the webmaster (root@localhost), giving this error message and the time and date of the error. "
pourtant j' ai donné tous les droits à test.pl
Ma version de perl installé est 5.8.3

Merci de vos réponses

le 19/07/2004 à 12:07

personnes connectees

Salut a tous
j'ai essayé l'idée ci dessus mais je n'arrive plus à voir le nombre de personnes connectées quand je clique sur le bouton Run,
dans la definition j'ai mis"
<td align ="left"><input type ="submit" value = "Run"
session_start();
if (!isset($_SESSION['clik']))
{
$_SESSION['clik']="Run";
}</td>"
et pour l' inclusion dans un fichier "
<td align=center>
<? if (!isset($_SESSION['clik']) &&
$_SESSION['clik']="Run") include('nombre_online.php');
} ?></td> "

le 18/07/2004 à 15:30

personnes connectees

Merci de l'idée je vais la tester

le 18/07/2004 à 14:52

personnes connectees

Bonjour a tous
sur le site que je travaille, une personne même s'il se connecte tant qu'il n'a pas cliqué sur un bouton "rechercher" je ne dois pas le comptabiliser comme une personne connectée.
J'ai fait le même programme que le site "http://www.lephpfacile.com/howto/index.php?page_a_afficher=7 "
mais je ne sais pas ajouter cette condition
Donnez moi vos avis svp

thierry4

Ses derniers messages sur les forums