Utilisation des liste liées (ajax) avec du perl
Bonjour,
Sur ce lien on a un exemple de liste liée qui fonctionne avec du php! et je souhaite reutiliser ce code mais sans le php , j'ai donc testé en remaniant les parties en php et les codant en perl mais ca ne semble pas fonctionner!
voici mon code adapté :
listelie.pl:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101
| #!c:/Perl/bin/perl
use strict 'vars';
use strict 'refs';
use CGI qw/:standard/;
use DBI;
use Time::local;
my $req = new CGI;
print "Content-type: text/html\n\n";
print<<HTML;
<html>
<head>
<title>Tutoriel Ajax (XHTML + JavaScript + XML)</title>
<script type='text/javascript'>
var xhr = null;
function getXhr(){
if(window.XMLHttpRequest) // Firefox et autres
xhr = new XMLHttpRequest();
else if(window.ActiveXObject){ // Internet Explorer
try {
xhr = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
xhr = new ActiveXObject("Microsoft.XMLHTTP");
}
}
else { // XMLHttpRequest non supporté par le navigateur
alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest...");
xhr = false;
}
}
/**
* Méthode qui sera appelée sur le click du bouton
*/
function go(){
getXhr();
// On défini ce qu'on va faire quand on aura la réponse
xhr.onreadystatechange = function(){
// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
if(xhr.readyState == 4 && xhr.status == 200){
leselect = xhr.responseText;
// On se sert de innerHTML pour rajouter les options a la liste
document.getElementById('livre').innerHTML = leselect;
}
}
// Ici on va voir comment faire du post
xhr.open("POST","ajaxLivre.pl",true);
// ne pas oublier ça pour le post
xhr.setRequestHeader('Content-Type','application/x-www-form-urlencoded');
// ne pas oublier de poster les arguments
// ici, l'id de l'auteur
sel = document.getElementById('auteur');
idauteur = sel.options[sel.selectedIndex].value;
xhr.send("idAuteur="+idauteur);
}
</script>
</head>
<body>
<form>
<fieldset style="width: 500px">
<legend>Liste liées</legend>
<label>Auteurs</label>
<select name='auteur' id='auteur' onchange='go()'>
<option value='-1'>Aucun</option>
HTML
my $dbh = DBI->connect( 'dbi:mysql:database=user_mgmt','root','newroot', ) || die "Database connection not made: $DBI::errstr";
my $request_table = $dbh->prepare(qq{SELECT * FROM auteur ORDER BY nom});
$request_table->execute;
my @title;
while (@title = $request_table->fetchrow_array) {
print "<option value='".$title["id"]."'>".$title["nom"]."</option>";
}
print<<HTML;
</select>
<label>Livres</label>
<div id='livre' style='display:inline'>
<select name='livre'>
<option value='-1'>Choisir un auteur</option>
</select>
</div>
</fieldset>
</form>
</body>
</html>
HTML |
et ajaxLivre.pl:
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| #!c:/Perl/bin/perl
package Menu;
use strict 'vars';
use strict 'refs';
use CGI qw/:standard/;
use DBI;
use Time::local;
my $req = new CGI;
my $dbh = DBI->connect( 'dbi:mysql:database=user_mgmt','root','newroot', ) || die "Database connection not made: $DBI::errstr";
my $result =$req->param("idAuteur");
print "<select name='livre'>";
if($result)
{
my $request_table = $dbh->prepare(qq{SELECT id,titre FROM livre WHERE idAuteur=$result ORDER BY titre});
$request_table->execute;
while (@title = $request_table->fetchrow_array)
{
print "<option value='".$title["id"]."'>".$title["nom"]."</option>";
}
}
print "</select>";
1; |
Deja il est fort possible que ce ne soit pas possible, en fait je n'en sais rien... merci pour votre aide!;)