[Perl-unix-users] RE: DIV tags

Mundell, R. \(Ronald\) Sun, 05 Jan 2003 21:48:50 -0800

Title: DIV tags

Good Day

I am trying to move away from JAVA and to do the same in just perl/cgi/html

-----Original Message-----
From: Sam Dorfman [mailto:[EMAIL PROTECTED]]
Sent: 05 January 2003 08:31
To: Mundell, R. (Ronald); Perl-Win32-Users (E-mail); Perl-Unix-Users (E-mail)
Subject: Re: DIV tags

I am probably missing something here but you use Perl to create

and send HTML by using print statements so you can do what you

want with the following code in program.cgi module. Don't forget

a blank line after the Content-type line and a carriage return after

the final END_of_Multiline_text line.

print <<END_of_Multiline_Text;

Content-type: text/html

<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=""http://www.microsoft.com" target=_blank>http://www.microsoft.com">http://www.microsoft.com</a><br>
        <a href=""http://www.oracle.com" target=_blank>http://www.oracle.com">http://www.oracle.com</a>
</DIV>
</BODY>
</HTML>

END_of_Multiline_Text

----- Original Message -----

From: Mundell, R. (Ronald)

To: Perl-Win32-Users (E-mail) ; Perl-Unix-Users (E-mail)

Sent: Thursday, January 02, 2003 1:39 AM

Subject: DIV tags

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=""http://www.microsoft.com" target=_blank>http://www.microsoft.com">http://www.microsoft.com</a><br>
        <a href=""http://www.oracle.com" target=_blank>http://www.oracle.com">http://www.oracle.com</a>
</DIV>
</BODY>
</HTML>

[Perl-unix-users] RE: DIV tags

Reply via email to