Hi,
I need to add confirmation pop up msg box before deleting the record from database, I have added following snippets to my code but its not working for me, your help will be much appreciated :
print header;
print <<EOF;
<script type="text/javascript">
function confirmOk() {
return window.confirm("Confirm deletion?");
}
</script>
EOF
And
# If the form was properly submitted, save the data
if ($input{"go"} eq "DELETE") {
print button(-name=>'Delete',
-value=>'DO you really want to delete it ?',
-onClick=>"return confirmOk()");
$query = "DELETE ....
Many thanks
Terry
---------- Post updated at 05:26 AM ---------- Previous update was at 03:57 AM ----------
Following is the complete script :
#!/usr/local/bin/perl
use CGI;
use DBI;
# Make up a pulldown menu of all known patients
$db_handle = DBI -> connect("DBI:Pg:dbname=northwind;
host=localhost",
"postgres",
"postgres",
{'RaiseError' => 1});
$query = "SELECT
\"EmployeeID\" AS empid,
\"FirstName\"::text || ' ' ||\"LastName\"::text AS name
FROM
\"Employees\"";
$db_handle->do("SET search_path to northwind") or die;
$qh = $db_handle->prepare($query);
$qh->execute;
while (@row = $qh->fetchrow) {
$hh .= "<option value=$row[0]>$row[1]</option>\n";
}
# Send out the header and form
print "content-type: text/html\n\n";
print <<"HEADER";
<html>
<head>
<title>Delete an employee record</title>
<body bgcolor=pink text=#3300CC border=2 bordercolor=pink >
<h1 style="color:3300CC;">Delete an employee</h1>
<style type="text/css">
.container {
width: 500px;
clear: both;
}
.container input {
width: 100%;
clear: both;
}
</style>
</head>
<div class="container">
<form method=POST>
Select Employee name to delete :<select name=empid>$hh</select><br>
<input type=submit name=go value=DELETE>
</div>
</form><hr>
HEADER
print header;
print <<EOF;
<script type="text/javascript">
function confirmOk() {
return window.confirm("Confirm deletion?");
}
</script>
EOF
# Read information from the form
read(STDIN,$buffer,$ENV{CONTENT_LENGTH});
@pairs = split(/&/,$buffer);
foreach (@pairs) {
($n,$v) = split(/=/);
$v =~ tr/+/ / ;
$v =~ s/%(..)/pack("C",hex($1))/ge;
$input{$n} = $v;
}
# If the form was properly submitted, save the data
if ($input{"go"} eq "DELETE") {
print button(-name=>'Delete',
-value=>'DO you really want to delete it ?',
-onClick=>"return confirmOk()");
$query = "DELETE
FROM
\"Employees\"
WHERE
\"EmployeeID\"="." \'$input{empid}\'";
$db_handle -> do($query);
$action = "Record saved - $query";
# If the form has not been submitted, ask for data
} else {
$action = "Please complete form";
}
# Standard links to the rest of the application
print <<"FOOTER";
<b>$action</b>
<hr>
Jump to - <a href=http://localhost/perlproj/cgi-bin/emp2.pl>View Employees Listing</a><br>
Jump to - <a href=http://localhost/perlproj/cgi-bin/addemp.pl>Add an Employee</a><br>
Jump to - <a href=http://localhost/perlproj/cgi-bin/updatephoto.pl>Add or update Employee Photo</a><br>
<hr>
Edited by Terry on July, 06 2014.
</body></html>
FOOTER