Subversion Repositories wimsdev

Rev

Rev 6362 | Blame | Compare with Previous | Last modification | View Log | RSS feed

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_parms=0
slib_author=Joke, EVERS
!exit

:proc

slib_out=<script type='text/javascript'>\
/*<![CDATA[*/\
var allow_to_fill_in=['input', 'textarea','select'];\
allow_to_fill_in=allow_to_fill_in.join('|');\
function disableselect(e){if (allow_to_fill_in.indexOf(e.target.tagName.toLowerCase())==-1){return false }}\
function Activate_It(){return true } \
if (typeof document.onselectstart!='undefined'){\
 document.onselectstart=new Function ('return false')}\
  else{document.onmousedown=disableselect;document.onmouseup=Activate_It;}\
/*]]>*/\
 </script>