Subversion Repositories wimsdev

Rev

Rev 14434 | Rev 16379 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !reset inputsize
  2. !if $wims_read_parm=$empty
  3.   !exit
  4. !endif
  5. !if $wims_read_parm=help
  6.   !read help/$lang/special/codeinput.phtml
  7.   !exit
  8. !endif
  9. !set parm=!replace internal ,   r by $  r in $wims_read_parm
  10. !set parm=!replace internal $   $ by $\
  11. $ in $parm
  12.  
  13. !set code=!item 1 of $parm
  14. !set code=!declosing $code
  15.  
  16. !set inputsize=!item 2 to -1 of $parm
  17. !set parm=!line 2 to -1 of $inputsize
  18. !set inputsize=!line 1 of $inputsize
  19.  
  20. !if noanswer iswordof $inputsize
  21.   !set noanswer=1
  22. !endif
  23. !if div iswordof $inputsize
  24.   !set pre=div
  25. !else
  26.   !set pre=pre
  27. !endif
  28. !set inputsize=!item 1 of $inputsize
  29. !default inputsize=1x5
  30. !set inputsize=!translate x to , in $inputsize
  31. !set inputsize=!items2words $inputsize
  32.  
  33. !set parmcnt=!linecnt $parm
  34. !set parm=!sort reverse line $parm
  35.  
  36. !set pretext=!replace internal reply by REPLY in $code
  37.  
  38. !for tt = 1 to $parmcnt
  39.   !set ld=!line $tt of $parm
  40.   !set upcase=!uppercase $(ld[1])
  41.   !reset inputsize_tmp
  42.   !if $(upcase) isin $pretext
  43.     !set reply_tmp=!nospace $(ld[1])
  44.     !set i_tmp=!text select 0123456789 in $reply_tmp
  45.     !if debug iswordof $m_oefenv and ?analyze notin $(replygood$i_tmp)
  46.       !read oef/special/debug.input $i_tmp
  47.     !endif
  48.     !set rep_tmp=!replace internal reply by r in $reply_tmp
  49.     !set embedded=!append item $rep_tmp to $embedded
  50.     !distribute item $ld into m_,inputsize_tmp,css
  51.     !set inputsize_tmp=!translate x to , in $inputsize_tmp
  52.     !if $(inputsize_tmp[2])=$empty and $(inputsize_tmp[1])!=$empty
  53.       !set inputsize_tmp=1,$inputsize_tmp
  54.     !endif
  55.     !set inputsize_tmp=!nospace $inputsize_tmp
  56.     !set inputsize_tmp=!items2words $inputsize_tmp
  57.     !default inputsize_tmp=$inputsize
  58.     !set nbdim=!wordcnt $inputsize_tmp
  59.     !if $nbdim==2
  60.       !distribute words $inputsize_tmp into sizer,sizec
  61.       !if $sizer==1
  62.         !set nbdim=1
  63.         !set inputsize_tmp=$sizec
  64.       !endif
  65.     !endif
  66.     !if $printing=yes
  67.       !set pretext=!replace internal $upcase by $prompt_empty in $pretext
  68.     !else
  69.       !reset style_tmp option_tmp
  70.       !if $(css)!=$empty
  71.         !if $(css)=default
  72.           !set class_tmp=class="wims_oef_input"
  73.         !endif
  74.         !set style_tmp=style="$(css)"
  75.       !endif
  76.       !if $nbdim==2
  77.         !set pretext=!replace internal $upcase by <textarea $class_tmp $style_tmp rows="$sizer" cols="$sizec" name="$reply_tmp">$($reply_tmp)</textarea> in $pretext
  78.       !else
  79.         !if $(replytype$i_tmp) iswordof menu
  80.           !set pretext_=!row 2 of $(replygood$i_tmp)
  81.           !if sort iswordof $(replyoption$i_tmp)
  82.             !set pretext_=!sort items $pretext_
  83.           !else
  84.             !set pretext_=!shuffle $pretext_
  85.           !endif
  86.           !set pretextcnt=!itemcnt $pretext_
  87.           !set pretext_tmp=<option value="">$ch_choose</option>
  88.           !for tmp=1 to $pretextcnt
  89.             !set pretext_tmp=!append word <option value="$(pretext_[$tmp])">$(pretext_[$tmp])</option>\
  90.               to $pretext_tmp
  91.           !next
  92.           !set pretext=!replace internal $upcase by \
  93.             <select id="$reply_tmp" name="$reply_tmp">$pretext_tmp</select> in $pretext
  94.         !else
  95.           !set pretext=!replace internal $upcase by <input $class_tmp $style_tmp id="$reply_tmp" size="$inputsize_tmp" name="$reply_tmp" value="$($reply_tmp)" /> in $pretext
  96.         !endif
  97.       !endif
  98.     !endif
  99.   !endif
  100. !next
  101.  
  102. !set pretext=!replace internal for="label by for="reply in $pretext
  103. !if $q_form=yes or $printing=yes
  104.   <$pre class="oef_codeinput">
  105.   $pretext
  106.   </$pre>
  107. !else
  108.   !set pretext=$code
  109.   !read themes/$wims_theme/oefcolors
  110.   !if $oef_indbad=$empty
  111.     !read themes/oefcolors
  112.   !endif
  113.   !for tt = 1 to $parmcnt
  114.     !set ld=!line $tt of $parm
  115.     !distribute item $ld into m_,inputsize_tmp,css
  116.     !default inputsize_tmp=$inputsize
  117.     !if $(ld[1]) isin $pretext
  118.       !set m_=!text select 0123456789 in $(ld[1])
  119.       !default reply_$m_=$(reply$m_)
  120.       !set tt=!word 1 of $(replygood$m_)
  121.       !if $tt!=?analyze
  122.         !set cl=!nospace oef_ind$(diareply$m_)
  123.         !if $(precreply$m_)=yes and $(diareply$m_)=bad
  124.           !set cl=!nospace oef_indprec
  125.         !endif
  126.         !if $(partialgood$m_)=yes
  127.           !set cl=!nospace oef_indpartial
  128.         !endif
  129.       !else
  130.         !set cl=oef_empty
  131.       !endif
  132.       !set pretext=!replace internal $(ld[1]) by <div class="inline $cl">$(reply_$m_)</div><sup>[$m_]</sup> in $pretext
  133.       !set replyname$m_=[$m_]
  134.     !endif
  135.   !next
  136.   <$pre>
  137.   $pretext
  138.   </$pre>
  139. !endif
  140.