how to get value from java script function to perl -
i want value of check box selected , pass query deleting value database. java script code
function deleterows(){ istable = document.getelementbyid('datatbl'); nboxes = document.getelementsbyname('delbox'); (i=nboxes.length-1; i>=0; i--) { if (nboxes[i].checked === true) { var =nboxes[i].value; alert("do want delete row?"+a); istable.deleterow(i+1); } } }
i need var a value in perl can pass delete query , delete selected row.
html code
<table id='datatbl' border='1' > <tr> <td><input type=checkbox name='delbox' value=@data></td> <td bgcolor=#0099ff>$pid</td> <td bgcolor=#99ccff>$project_name</td> <td bgcolor=#3399ff> $variant_no</td> <td bgcolor=#99ccff> $variant_name</td> <td bgcolor=#3399ff>$vehicle_class</td> <td bgcolor=#99ccff> $vc_no</td> </table> <input type=button value="delete rows" onclick="deleterows()" id="delbtn">
perl query
my $sth = $dbh->prepare("delete form table name col1,col2,col3 id='$a'"); $sth->execute() or die "$!";
you have post request (or delete precise) towards server perl script runs.
e.g.
after variable set (let's using jquery):
$.ajax({ type: "post", url: url, // script lives data: {'a' : a}, success: function(data) { console.log(data); } datatype: 'json' });
in script 'a' variable post request.
Comments
Post a Comment