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); |
