Subversion Repositories wimsdev

Rev

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