Subversion Repositories wimsdev

Rev

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

  1. <hr/>
  2. !read Exindex
  3. !set exocnt=!itemcnt $exolist
  4. !set qcnt=8
  5. !if $qcnt>$exocnt
  6.  !set qcnt=$exocnt
  7. !endif
  8. !if $exocnt<1
  9.  ¶Ô²»Æð, ±¾Ä£¿éĿǰûÓÐÁ·Ï°. ÇëÒÔºóÔÙÀ´!
  10.  !exit
  11. !endif
  12. !if $exocnt=1
  13. ±¾Ä£¿é°üº¬Ò»¸öÁ·Ï°, <b>
  14.  !item 1 of $titlelist
  15.  </b>.
  16.  !set exoo=!item 1 of $exolist
  17.  !href cmd=new&module=$module&exo=$exoo ÊÔÊÔ¿´.
  18.  !exit
  19. !endif
  20.  
  21. !form new
  22. <input type="hidden" name="module" value="$module"/>
  23. <table class="wimscenter" border="0"><tr>
  24. <td align="center">Ñ¡ÔñÇé½Ú:</td><td>
  25. !if $exocnt>6
  26.  !set selsize=6
  27. !else
  28.  !set selsize=$exocnt
  29. !endif
  30. !set wims_formselect_switch=multiple size=$selsize
  31. !set exo=$special_parm
  32. !if $exo!=$empty
  33.  !set exolist=!listuniq $exo,$exolist
  34.  !set exolist=!replace , by , $ in $exolist
  35.  !set dictionary=$module_dir/Extitles
  36.  !set translator_unknown=leave
  37.  !set titlelist=!exec translator $exolist
  38. !endif
  39. !formselect exo list $exolist prompt $titlelist
  40. !set wims_formselect_switch=
  41.  </td></tr><tr><td>Á·Ï°·ç¸ñ:</td><td>
  42.  !formselect style list 1,2,3,4 prompt \
  43.         ÕÒ³öµÚÒ»¸ö´íÎó,\
  44.         ÕÒ³öËùÓдíÎó,\
  45.         ²»¸øÀíÓÉ,\
  46.         ÿ²¿¶¼¸øÀíÓÉ
  47. </td></tr>
  48.  <tr><td>ÄѶÈ:</td><td>
  49.  !default level=2
  50.  !formselect level from 1 to 5
  51.   </td></tr></table>
  52.  <div class="wimscenter"><input type="submit" value="¿ªÊ¼"/>
  53.  </div>
  54.  !formend
  55.