Subversion Repositories wimsdev

Rev

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

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