Subversion Repositories wimsdev

Rev

Rev 4349 | 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
 
6362 bpr 11
slib_out=<script type='text/javascript'>\
12
/*<![CDATA[*/\
13
var allow_to_fill_in=['input', 'textarea','select'];\
20 reyssat 14
allow_to_fill_in=allow_to_fill_in.join('|');\
15
function disableselect(e){if (allow_to_fill_in.indexOf(e.target.tagName.toLowerCase())==-1){return false }}\
16
function Activate_It(){return true } \
17
if (typeof document.onselectstart!='undefined'){\
18
 document.onselectstart=new Function ('return false')}\
19
  else{document.onmousedown=disableselect;document.onmouseup=Activate_It;}\
6362 bpr 20
/*]]>*/\
21
 </script>