Good Day all
Please refer to the java script below. I would like to know if there are a way to do the same in perl.
_javascript_
===========
<HTML>
<HEAD>
<SCRIPT language="_javascript_">
function CheckStatus()
{
if (document.all('RejectRequest').style.display == "block")
{
document.all('RejectRequest').style.display = "none";
}
else
{
document.all('RejectRequest').style.display = "block";
}
}
</SCRIPT>
</HEAD>
<BODY>
<div onClick = "_javascript_:CheckStatus()" >
<table cellpadding="1" cellspacing="0" >
<tr>
<td width="90%">Links</td>
<td> </td>
</tr>
</table>
</div>
<DIV id=RejectRequest name=Reject >
<a href="" HREF="" TARGET="_blank">http://www.microsoft.com">http://www.microsoft.com</a><br>
<a href="" HREF="" TARGET="_blank">http://www.oracle.com">http://www.oracle.com</a>
</DIV>
</BODY>
</HTML>
