Rev 15457 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
700 | bpr | 1 | !set anstype=yes |
2 | !set anstyle=symtext |
||
3 | !set ans_reaccent=yes |
||
3851 | bpr | 4 | !set ans_require= |
700 | bpr | 5 | |
6 | !if $wims_read_parm=def |
||
12532 | bpr | 7 | !exit |
700 | bpr | 8 | !endif |
1018 | bpr | 9 | |
700 | bpr | 10 | !if debug iswordof $m_oefenv and ?analyze notin $(replygood$i) |
12532 | bpr | 11 | !set replydefaulted=yes |
12 | !if $oef_default=yes |
||
13 | !set r_=!row 1 of $(replygood$i) |
||
14 | !set r_=!translate | to $\ |
||
700 | bpr | 15 | $ in $r_ |
12532 | bpr | 16 | !default reply$i=!line 1 of $r_ |
17 | !endif |
||
700 | bpr | 18 | !endif |
1018 | bpr | 19 | |
700 | bpr | 20 | !if $wims_read_parm!=noprompt |
12532 | bpr | 21 | <tr><td><label for="reply$i">$(replyname$i)</label></td><td> |
700 | bpr | 22 | !endif |
23 | !set keyboard=!getopt keyboard in $(replyoption$i) |
||
24 | !set style=!getopt style in $(replyoption$i) |
||
25 | !set style=!replace internal $ $ by ; in $style |
||
26 | !set style=!replace internal @ by $ $ in $style |
||
1018 | bpr | 27 | |
28 | !set inputoption=!replace internal $ $ by $\ |
||
29 | $ in $inputsize |
||
30 | !set inputsize=!line 1 of $inputoption |
||
31 | !set inputoption=!line 2 to -1 of $inputoption |
||
32 | !set option=!line 1 of $inputoption |
||
33 | !if $option issametext default |
||
34 | !set option=class="wims_oef_input" |
||
35 | !set inputoption=!line 2 to -1 of $inputoption |
||
36 | !endif |
||
37 | !if $inputoption!= |
||
12532 | bpr | 38 | !set inputoption=$option $inputoption |
1018 | bpr | 39 | !else |
12532 | bpr | 40 | !default inputoption=$option style="font-size:18px;background-color:#e8ffff;border:1px solid #3333CC;" |
1018 | bpr | 41 | !endif |
42 | !default style=color:black;border:1px solid grey;margin:1px;background-color:lightgrey;font-weight:bolder;font-size:100% |
||
43 | |||
44 | !set inputsize=!translate x to , in $inputsize |
||
45 | !set inputsize=!items2words $inputsize |
||
46 | !distribute words $inputsize into sizeh,sizev |
||
47 | !bound sizeh between integer 10 and 60 default 20 |
||
48 | !bound sizev between integer 1 and 20 default 1 |
||
49 | |||
50 | |||
3548 | bpr | 51 | !if universal isin $keyboard |
12532 | bpr | 52 | !set key_lang=!replace internal _ by , in $keyboard |
53 | !set key_lang=!item 2 of $key_lang |
||
54 | !reset wims_html_header |
||
55 | !read js/keyboard.phtml $key_lang |
||
56 | $wims_html_header |
||
1018 | bpr | 57 | !goto universal |
58 | !endif |
||
700 | bpr | 59 | !if $keyboard=si |
12532 | bpr | 60 | !set keyboard=Á Ą Ä É Ę Ě Í\ |
700 | bpr | 61 | á ą ä é ę ě í\ |
62 | Ó ô ú Ů Ý Č\ |
||
63 | ó Ô Ú ů ý č\ |
||
64 | ď Ĺ Ň Ŕ Ř Š Ž\ |
||
65 | ť ĺ ň ŕ ř š\ |
||
66 | |||
12532 | bpr | 67 | !goto kb |
700 | bpr | 68 | !endif |
69 | |||
70 | !if $keyboard=es |
||
12532 | bpr | 71 | !set keyboard=Á É Í Ñ Ó Ú Ü ¿\ |
700 | bpr | 72 | á é í ñ ó ú ü ¡ |
12532 | bpr | 73 | !goto kb |
700 | bpr | 74 | !endif |
75 | |||
76 | !if $keyboard=ru |
||
12532 | bpr | 77 | !set keyboard=А а Б б В в Г г Д д \ |
746 | bpr | 78 | Е е Ё ё Ж ж З з И и\ |
79 | Й й К к Л л М м Н н\ |
||
80 | О о П п Р р С с Т т\ |
||
81 | У у Ф ф Х х Ц ц\ |
||
82 | Ч ч Ш ш Щ щ Ъ ъ \ |
||
700 | bpr | 83 | Ы ы Ь ь Э э Ю ю Я я |
12532 | bpr | 84 | !goto kb |
700 | bpr | 85 | !endif |
86 | |||
87 | !if $keyboard=de |
||
12532 | bpr | 88 | !set keyboard= Ä ä É é Ö ö Ü ü ß |
89 | !goto kb |
||
700 | bpr | 90 | !endif |
91 | |||
92 | !if $keyboard=el |
||
4751 | bpr | 93 | !set keyboard= Α Β Γ Δ Ε Ζ Η Θ Ι Κ\ |
94 | α β γ δ ε ζ η θ ι κ\ |
||
95 | Λ Μ Ν Ξ Ο π ρ Σ \ |
||
96 | λ μ ν ξ ο Ρ σ Τ\ |
||
700 | bpr | 97 | τ Υ υ Φ φ Χ χ Ψ ψ Ω ω |
98 | |||
99 | !!Π Π τ\ |
||
100 | |||
101 | !endif |
||
102 | !if $keyboard=pl |
||
15457 | bpr | 103 | !set keyboard=Ą Ę Ó Ć Ł Ń Ś Ź Ż \ |
7691 | bpr | 104 | ą ę ó ć ł ń ś ź ż |
12532 | bpr | 105 | !goto kb |
700 | bpr | 106 | !endif |
107 | |||
108 | !if $keyboard=it |
||
12532 | bpr | 109 | !set keyboard=À Á È É Ì Í Ò Ó Ù Ú\ |
700 | bpr | 110 | à á è é ì í ò ó ù ú |
15457 | bpr | 111 | !goto kb |
700 | bpr | 112 | !endif |
113 | |||
114 | !if $keyboard=en_ipa |
||
15457 | bpr | 115 | !set keyboard=ɑ æ ə ɪ ʊ ʌ e ɒ \ |
5683 | bpr | 116 | ɑ: ɜ ɜ: ɒ: i: u: ɔ:\ |
700 | bpr | 117 | ŋ ʃ θ ð ʒ ˞ ʧ ʤ\ |
118 | eɪ aɪ ɔɪ aʊ əʊ ɪə eə |
||
119 | |||
120 | !!« » € ʉ ø ɐ ʏ ç β |
||
121 | !!ɣ ʎ ɲ ʁ ɥ ʔ |
||
12532 | bpr | 122 | !goto kb |
700 | bpr | 123 | !endif |
1449 | bpr | 124 | !if $keyboard=ipa |
12532 | bpr | 125 | !set keyboard= ɑ ɐ ɒ æ ɓ ʙ β ɔ ɕ ç ɗ ɖ ð ʤ ə ɘ ɚ ɛ ɜ \ |
1449 | bpr | 126 | ɝ ɞɟ ʄ ɡ ɠ ɢ ɢ ʛ ɦ ɧ ħ ɥ ʜ ɨ ɪ ʝ ɭ ɬ ɫ ɮ ʟ\ |
127 | ɱ ɯ ɰ ŋ ɳ ɲ ɴ ø ɵ ɸ θ œ ɶ ʘ ɹ ɺ ɾ ɻ ʀ ʁ ɽ\ |
||
128 | ʂ ʃ ʈ ʧ ʉ ʋ ʊ ʌ ɣ ɤ ʍ χ ʎ ʏ ʑ ʐ ʒ\ |
||
7691 | bpr | 129 | ʔ ʡ ʕ ʢ ǀ ǁ ǂ ǃ |
12532 | bpr | 130 | !goto kb |
1449 | bpr | 131 | !endif |
132 | |||
133 | !if $keyboard=fr_ipa |
||
15457 | bpr | 134 | !set keyboard= i e ɛ a ɑ ɔ o u y ø œ ə \ |
3253 | bpr | 135 | ɛ̃ ɑ̃ ɔ̃ j w ɥ [ ]\ |
136 | p b t d k g v f\ |
||
137 | s z ʃ ʒ l m n ɲ ʀ \ |
||
1449 | bpr | 138 | |
12532 | bpr | 139 | !! ɳ |
140 | !goto kb |
||
1449 | bpr | 141 | !endif |
7388 | bpr | 142 | !if $keyboard=braille |
12532 | bpr | 143 | !set prefix=10 |
144 | !set keyboard=ñ ó ù ĉ ā û ċ ă ú Ċ \ |
||
7388 | bpr | 145 | õ ÷ ý č ą ÿ ď ć þ Ď ĕ \ |
146 | ė Ī ĝ ĭ ĥ Ĭñ Ĭó Ĭù Ĭĉ Ĭā Ĭû Ĭċ \ |
||
147 | Ĭă Ĭú ĬĊ Ħ Ħ ò Ć ü Ĕ \ |
||
148 | Ģ Ė ö Ė ô Ģ Ģ |
||
1449 | bpr | 149 | |
12532 | bpr | 150 | !goto kb |
7388 | bpr | 151 | !endif |
152 | |||
700 | bpr | 153 | :kb |
7388 | bpr | 154 | |
700 | bpr | 155 | !set keyboard=!declosing $keyboard |
156 | !set keyboard=!rows2lines $keyboard |
||
157 | !set keyboard=!lines2rows $keyboard |
||
158 | !set keyboard=!singlespace $keyboard |
||
159 | !set keyboard=!rows2lines $keyboard |
||
7388 | bpr | 160 | !if $prefix!= |
161 | !set keyboard=!replace internal # by #$prefix in $keyboard |
||
162 | !endif |
||
163 | |||
700 | bpr | 164 | !set cnt_kb=!linecnt $keyboard |
165 | |||
13351 | obado | 166 | <script> |
6361 | bpr | 167 | /*<![CDATA[*/ |
700 | bpr | 168 | var browser=""; |
169 | var obj=new Object(); |
||
170 | !for u = 1 to $cnt_kb |
||
12532 | bpr | 171 | !set l=!line $u of $keyboard |
172 | !set l=!trim $l |
||
173 | !set l$u = !items2words $l |
||
700 | bpr | 174 | !next |
175 | |||
176 | !if $cnt_kb= 0 |
||
177 | !set cnt_kb=4 |
||
178 | !endif |
||
179 | |||
180 | !for u = 1 to $cnt_kb |
||
12532 | bpr | 181 | var l$u= "$(l$u)" ; |
700 | bpr | 182 | !next |
183 | |||
184 | function checkBrowser() |
||
185 | { |
||
186 | if(navigator.appName=='Microsoft Internet Explorer') |
||
187 | {browser='I';} |
||
188 | else if(navigator.appName=='Netscape') |
||
189 | {browser='N';} |
||
190 | return browser; |
||
191 | } |
||
192 | function addText(text) |
||
193 | { |
||
194 | obj=document.forms['replyform'].elements['reply$i']; |
||
195 | if(checkBrowser()=="I") |
||
196 | { |
||
197 | var start=obj.selectionStart; |
||
198 | var beg=obj.value.substring(0, start); |
||
199 | var end=obj.value.substring(start); |
||
200 | obj.value=end+text+beg; |
||
201 | obj.selectionStart=obj.selectionEnd=start+text.length; |
||
7691 | bpr | 202 | } |
700 | bpr | 203 | else |
204 | { |
||
205 | var start=obj.selectionStart; |
||
206 | var beg=obj.value.substring(0, start); |
||
207 | var end=obj.value.substring(start); |
||
208 | obj.value=beg+text+end; |
||
209 | obj.selectionStart=obj.selectionEnd=start+text.length; |
||
210 | obj.focus(); |
||
211 | } |
||
212 | } |
||
213 | |||
214 | function writeChar(win,string) |
||
215 | { |
||
216 | var buttons=string.split(' '); |
||
217 | var i; |
||
218 | for(i=0;i<buttons.length;i++) |
||
219 | { |
||
17171 | bpr | 220 | document.write('<input style="{$style}" type="button" value="'+buttons[i]+'" id="'+buttons[i]+'" onclick="addText(\''+buttons[i]+'\');">'); |
700 | bpr | 221 | } |
222 | } |
||
6361 | bpr | 223 | /*]]>*/ |
700 | bpr | 224 | </script> |
6134 | bpr | 225 | <div class="wimscenter"> |
13351 | obado | 226 | <script> |
6361 | bpr | 227 | /*<![CDATA[*/ |
700 | bpr | 228 | !for a = 1 to $cnt_kb |
229 | writeChar(self,l$a); |
||
17171 | bpr | 230 | document.write('<br>'); |
700 | bpr | 231 | !next |
6361 | bpr | 232 | /*]]>*/ |
700 | bpr | 233 | </script> |
6134 | bpr | 234 | </div> |
1018 | bpr | 235 | |
236 | :universal |
||
6134 | bpr | 237 | <div class="wimscenter"> |
1018 | bpr | 238 | <textarea name="reply$i" rows="$sizev" cols="$sizeh" $wims_id $inputoption>$(reply$i)</textarea> |
6134 | bpr | 239 | </div> |
700 | bpr | 240 | |
241 | !!data= decodeURIComponent(data); |
||
5644 | bpr | 242 | !if $wims_read_parm!=noprompt |
243 | </td></tr> |
||
244 | !endif |
||
700 | bpr | 245 | !reset inputsize |