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
|
sub perl_func{
my $input = shift;
if ($input eq 'No'){
return " Erreur</br>";
exit 1;
}
if ($input eq 'Yes'){
print $cgi->redirect($mon_url);
}
}
my $pjx = new CGI::Ajax( 'exported_func' => \&perl_func );
my $html = <<EOHTML;
<HTML>
<BODY>
<div id="questiondiv">
Would you like to create a new version ?
<input type="button" name="val1_$key" id="val1_$key" value="Yes"
onclick="exported_func( ['publi__$name','val1_$key'], ['resultdiv_$key'] );">
<input type="button" name="val2_$key" id="val2_$key" value="No"
onclick="exported_func( ['val2_$key'], ['resultdiv_$key'] );">
</div>
<div id="resultdiv_$key"></div>
</br>
</BODY>
</HTML>
EOHTML
print $pjx->build_html( $cgi, $html); |
Partager