Subversion Repositories wimsdev

Rev

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

  1. <p><hr> <p>
  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. <center><table border=0><tr>
  24. <td align=center>Ñ¡ÔñÇé½Ú:<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.  <tr><td align=center>Á·Ï°·ç¸ñ:<td>
  42.  !formselect style list 1,2,3,4 prompt \
  43.         ÕÒ³öµÚÒ»¸ö´íÎó,\
  44.         ÕÒ³öËùÓдíÎó,\
  45.         ²»¸øÀíÓÉ,\
  46.         ÿ²¿¶¼¸øÀíÓÉ
  47.  <tr><td align=center>ÄѶÈ:<td>
  48.  !default level=2
  49.  !formselect level from 1 to 5
  50.  </table>
  51.  <p><center><input type=submit value="¿ªÊ¼">
  52.  </center> <p>
  53.