Subversion Repositories wimsdev

Rev

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

  1. !!useful ???
  2. !set name_title=$wims_name_title
  3. !set name_author=$wims_name_Author (<tt>$wims_name_firstname, $wims_name_lastname</tt>)
  4. !set name_email=$wims_name_email
  5. !set name_credits=$wims_name_credits
  6.  
  7. !form reply name="replyform" id="replyform"
  8. <input type="hidden" name="level" value="3"/>
  9. $table_header
  10. <caption>$model_title
  11. <br>$desc
  12. !set wims_ref_class=wims_button_help
  13. !href target=wims_mhelp cmd=help&special_parm=model,1 $wims_name_help
  14. </sup>
  15. </caption>
  16. !!$table_hdtr
  17.  
  18. !set ta=
  19. !for i in $sps,$parms
  20.  !reset reply$i
  21.  !if $(type$i)!=matrix and $(name$i) notwordof $model_textarea
  22.   !set val=!replace internal " by &#34; in $(val$i)
  23.  !if $i isitemof $sps
  24.   !set title$i=$(name_$(name$i))
  25.  !endif
  26.  !if $(type$i) iswordof integer int real and $i notitemof $sps and \
  27.         $(name$i) notwordof $model_random $model_computed
  28.   !set len=8
  29.  !else
  30.   !set len=40
  31.  !endif
  32.  $table_tr
  33.  <td>$(title$i)
  34.  !if $(help$i)!=$empty or $(name$i) iswordof $model_helped
  35.   !set wims_ref_class=wims_button_help
  36.   !href target=wims_mhelp cmd=help&module=$module&special_parm=model,$i $wims_name_help
  37.  
  38.  !endif
  39.  </td>
  40.  <td>
  41.  !if $(menu$i)!=$empty
  42.   !set t_=!itemcnt $(menu$i)
  43.   !set t_=!makelist x for x=1 to $t_
  44.   !set reply$i=$val
  45.   !formselect reply$i list $t_ prompt $(menu$i)
  46.  !else
  47.   !set l_=!charcnt $val
  48.   !if $l_ > 50
  49.    !set val=!reinput $val
  50.    <textarea name="reply$i" cols="$len" rows="3">$val</textarea>
  51.   !else
  52.    <input size="$len" name="reply$i" value="$val"/>
  53.   !endif
  54.  !endif
  55.  </td>
  56.  </tr>
  57. !else
  58.  !set ta=!append item $i to $ta
  59. !endif
  60. !next i
  61.  
  62. $table_end
  63. !if $ta!=$empty
  64. !for i in $ta
  65.  <a name="textarea$i"></a>
  66.  <div style="text-align:center; padding:10px;">$(title$i)
  67.  !set val=!reinput $(val$i)
  68.  <a class="wims_button" href="#textarea$i" onclick="document.forms['replyform'].reply$i.value=''">$name_clean</a>
  69.  !if $(help$i)!=$empty
  70.    !set wims_ref_class=wims_button_help
  71.    !href target=wims_mhelp cmd=help&module=$module&special_parm=model,$i $wims_name_help
  72.   !endif
  73.   <br>
  74.   <textarea name="reply$i" cols="120" rows="10" class="wims_model_textarea"
  75.   !if $(type$i) iswordof matrix
  76.    wrap="off"
  77.   !endif
  78.   >$val
  79. </textarea></div>
  80.  !next i
  81. !endif
  82. <center>
  83. <input type="submit" value="$name_sendsource"/>
  84. &nbsp;
  85. &nbsp;
  86. !set wims_ref_class=wims_button
  87. !href cmd=reply&level=1 $wims_name_giveup
  88. </center>
  89.  
  90. </form>
  91.  
  92.