Subversion Repositories wimsdev

Rev

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

  1. <hr style="width:35%">
  2. !readproc deduc/names
  3. !read Exindex
  4. !set exocnt=!itemcnt $exolist
  5. !set Askresult=0
  6. !set Askcontext=0
  7. !if $exocnt<1
  8.   $name_intro1
  9.   !exit
  10. !endif
  11. !if $exocnt=1
  12.   $(name_introone[1]), <b>
  13.   !item 1 of $titlelist
  14.   </b>.
  15.   !set exoo=!item 1 of $exolist
  16.   !href cmd=new&module=$module&exo=$exoo $(name_introone[2])
  17.   !exit
  18. !endif
  19.  
  20. !form new
  21. <input type="hidden" name="module" value="$module">
  22. <table class="wimscenter wimsborder"><tr>
  23. !set special_parm=!trim $special_parm
  24. !if $special_parm2=select and $special_parm!=$empty
  25.   <th>
  26.   $(name_intro2[1])
  27.   <br>
  28.   <em><span style="color:blue">$special_parm</span></em>:
  29.   </th>
  30. !else
  31.   <th>
  32.   $(name_intro2[2])
  33.   </th>
  34. !endif
  35. <td>
  36. !read deduc/select.phtml
  37. </td>
  38. </tr><tr><th>
  39. $(name_intro2[3])
  40. </th><td>
  41. !set qcmlevel=3
  42. !formselect qcmlevel from 1 to 9
  43. </td></tr><tr><th>
  44. $(name_intro2[4])
  45. </th><td>
  46. !formselect Askcontext list -1,0,1 prompt $name_introprompt
  47. </td></tr><tr><th>
  48. $(name_intro2[5])
  49. </th><td>
  50. !formselect Askresult list -1,0,1 prompt $name_introprompt
  51. !read introhook.phtml
  52. </td></tr></table>
  53. <div class="wimscenter wimsform">
  54. <input type="submit" value="$wims_name_work">
  55. </div>
  56.  
  57. !formend
  58.  
  59. !if $exocnt>10
  60.   !form intro
  61.   <input type="hidden" name="special_parm2" value="select">
  62.   <input type="hidden" name="module" value="$module">
  63.   $name_intro3
  64.   <input size="12" maxlength="12" name="special_parm" value="$oldparm">
  65.   <input type="submit" value="OK">
  66.  
  67.   !formend
  68. !endif
  69.  
  70. $name_intro_remark1
  71.  
  72. !if * isin $titlelist
  73.   <p>
  74.   $name_intro_remark2
  75.   </p>
  76. !endif
  77.