Subversion Repositories wimsdev

Rev

Rev 4158 | Rev 6362 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
2
!goto proc
3
!endif
4158 bpr 4
 
20 reyssat 5
slib_parms=0
4349 bpr 6
slib_author=Joke, EVERS
20 reyssat 7
!exit
8
 
9
:proc
10
 
11
slib_out=<script type='text/javascript'>var allow_to_fill_in=['input', 'textarea','select'];\
12
allow_to_fill_in=allow_to_fill_in.join('|');\
13
function disableselect(e){if (allow_to_fill_in.indexOf(e.target.tagName.toLowerCase())==-1){return false }}\
14
function Activate_It(){return true } \
15
if (typeof document.onselectstart!='undefined'){\
16
 document.onselectstart=new Function ('return false')}\
17
  else{document.onmousedown=disableselect;document.onmouseup=Activate_It;}\
18
 </script>