| 1,41 → 1,41 |
|---|
| |
| !if $gotcnt=0 |
| !if $srch=$empty |
| !if $srch=$empty |
| !exit |
| !endif |
| !if $module!=home |
| Sorry, nothing has been found for <span class="wims_emph"> |
| $search</span>. |
| !endif |
| <p> |
| This database of popup calculator forms |
| is still in its preliminary status. The server has |
| registered your failed request, so that the authors will see what people |
| are asking for, and add things according to the demand. Thanks for your |
| patience. |
| </p> |
| !exit |
| !endif |
| !if $module!=home |
| Sorry, nothing has been found for <span class="wims_emph"> |
| $search</span>. |
| !endif |
| <p> |
| This database of popup calculator forms |
| is still in its preliminary status. The server has |
| registered your failed request, so that the authors will see what people |
| are asking for, and add things according to the demand. Thanks for your |
| patience. |
| </p> |
| !exit |
| !endif |
| !set gotm1=!lines2items $gotm |
| !set gotm1=!item 1 to 20 of $gotm1 |
| !if .. isin $gotm1 |
| !reset gotm |
| !reset gotm |
| !endif |
| !for s in $gotm1 |
| !set vars=!record 5 of $formdir/$s.def |
| !set vars=!nonempty lines $vars |
| !if $vars!=$empty |
| !set n_=!linecnt $vars |
| !for i=1 to $n_ |
| !set l_=!line $i of $vars |
| !set var_$i=!randitem $l_ |
| !next i |
| !set vars=!record 5 of $formdir/$s.def |
| !set vars=!nonempty lines $vars |
| !if $vars!=$empty |
| !set n_=!linecnt $vars |
| !for i=1 to $n_ |
| !set l_=!line $i of $vars |
| !set var_$i=!randitem $l_ |
| !next i |
| !endif |
| |
| |
| !set ops=!record 2 of $formdir/$s.def |
| !set submits=!record 3 of $formdir/$s.def |
| !set content=!record 4 of $formdir/$s.def |
| |
| |
| !set ops=!nonempty lines $ops |
| !set ocnt=!linecnt $ops |
| !reset oplist |
| 49,51 → 49,49 |
|---|
| !endif |
| !next op |
| !set oplist=!listcomplement module,size,color,precision in $oplist |
| |
| |
| !set submits=!translate internal " to $ $ in $submits |
| !set submits=!nonempty lines $submits |
| !set scnt=!linecnt $submits |
| !for su=1 to $scnt |
| !set sl=!line $su of $submits |
| !distribute items $sl into n_,v_ |
| !set n_=!word 1 of $n_ |
| !if $v_!=$empty |
| !if $n_!=$empty |
| !set N_=name=$n_ |
| !else |
| !reset N_ |
| !endif |
| !set submit$su=<input type="submit" $N_ value="$v_" $jsdef/> |
| !endif |
| !next su |
| !set sl=!line $su of $submits |
| !distribute items $sl into n_,v_ |
| !set n_=!word 1 of $n_ |
| !if $v_!=$empty |
| !if $n_!=$empty |
| !set N_=name=$n_ |
| !else |
| !reset N_ |
| !endif |
| !set submit$su=<input type="submit" $N_ value="$v_" $jsdef/> |
| !endif |
| !next su |
| |
| !default op_size=$default_size |
| !default op_module=$default_module |
| !default op_color=$default_color |
| !default op_precision=$default_precision |
| !set content=!nonempty lines $content |
| <!-- Independent calculator form: $s --> |
| <form target="$winname" name="calcform" action="$wims_ref_name"> |
| <input type="hidden" name="session" value="popup" /> $sizeinput |
| <input type="hidden" name="module" value="$op_module" /> |
| <input type="hidden" name="precision" value="$op_precision" /> |
| !for o in $oplist |
| <input type="hidden" name="$o" value="$(op_$o)" /> |
| !next o |
| <table width="90%" style="background-color:$op_color;padding:10pt; |
| border-collapse:collapse;"> |
| <tr>$content |
| </td></tr></table></form> |
| !reset op_module, op_color, op_size, op_precision |
| !default op_size=$default_size |
| !default op_module=$default_module |
| !default op_color=$default_color |
| !default op_precision=$default_precision |
| !set content=!nonempty lines $content |
| <!-- Independent calculator form: $s --> |
| <form target="$winname" name="calcform" action="$wims_ref_name"> |
| <input type="hidden" name="session" value="popup" /> $sizeinput |
| <input type="hidden" name="module" value="$op_module" /> |
| <input type="hidden" name="precision" value="$op_precision" /> |
| !for o in $oplist |
| <input type="hidden" name="$o" value="$(op_$o)" /> |
| !next o |
| <table width="90%" style="background-color:$op_color;padding:10pt; |
| border-collapse:collapse;"> |
| <tr>$content |
| </td></tr></table></form> |
| !reset op_module, op_color, op_size, op_precision |
| !next s |
| |
| !if noremark notwordof $wims_read_parm |
| <p class="small"><b>Remark.</b> |
| All the above forms are independent from the Wims server |
| and from each other. So that they will also work within your own web pages |
| (but only online). You can save this page, open its source, and copy the forms |
| you want into your own page, possibly with modifications. |
| </p> |
| <p class="small"><b>Remark.</b> |
| All the above forms are independent from the Wims server |
| and from each other. So that they will also work within your own web pages |
| (but only online). You can save this page, open its source, and copy the forms |
| you want into your own page, possibly with modifications. |
| </p> |
| !endif |
| |
| |