Subversion Repositories wimsdev

Rev

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