This code goes in the $$HTMLHead field (or the HTML Head object in R5. It
combines an @formula with JavaScript in order to provide the user with a delete
confirmation alert box in a web browser when the user tries to delete a
document. The deletedoc() javascript function is invoked by Pass-Thru HTML in
the form: "<input type="button" value="Delete Document"
onClick="deletedoc()">".
deleteURL := @ReplaceSubstring(@Subset(@DbName;-1); "\\" ; "/") + "/ByDate/" +
@text(@DocumentUniqueID) + "?DeleteDocument";
"<script language = \"JavaScript\">
function deletedoc(){
if (confirm(\"Click OK if you are sure you want to delete this document.\")){
var serverhost = window.location.hostname;
var newURL = \"http://\"+serverhost+\"/\"" + "+\"" + deleteURL + "\"" + ";
window.location.href = newURL;
}
return false
}
</script>"
This was first published in November 2000