Loading ...
Sorry, an error occurred while loading the content.
 

Javascript from perl script

Expand Messages
  • Simon Howden
    ... Disclaimer This email is confidential and intended solely for the use of the individual to whom it is addressed. Any views or opinions presented are solely
    Message 1 of 1 , Feb 19, 2001
      Javascript from perl script

      Hi,
       
      I have the following javascript to  swap images on Mouseover events which I'm sure quite a few people are familiar with.

       
      <script language="JavaScript">
      <!--

       
      function MM_swapImgRestore() { 
         var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
      }

       
      function MM_preloadImages() { 
         var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
           var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
           if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
      }

       
      function MM_findObj(n, d) { 
         var p,i,x;   if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
           d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
         if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
         for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document); return x;
      }

       
      function MM_swapImage() {
         var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
          if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
      }
      //-->>
      </script>

      ... and in the BODY tag I have
       
      onLoad="MM_preloadImages('pic2.gif')
       
      ... and  later 
       
      <a href="index.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image1','','Pic2.gif',1)"><img name="Image1" border="0" src="Pic1.gif"></a>

       
      This all works well on an HTML page, but now I would like to generate the equivilant output when using Perl/CGI script to generate my HTML.   Could anyone help please?

       
      Thanks
      Simon


      Disclaimer
      This email is confidential and intended solely for the use of the individual
      to whom it is addressed. Any views or opinions presented are solely those
      of the author and do not necessarily represent those of Trace Computers PLC.
      If you are not the intended recipient, be advised that you have received
      this email in error and that any use, dissemination, forwarding, printing,
      or copying of this mail is strictly prohibited


    Your message has been successfully submitted and would be delivered to recipients shortly.