Subversion Repositories wimsdev

!set methtit=ɾ³ýÎÞÓõļÙÉè
!set methparmtype=special
!set methparmrelax=1
!set stepnocount=yes
!set methhelp=<p>Äã¿ÉÒÔÓÃÕâ¸ö·½·¨É¾³ýÎÞÓõļÙÉè,\
 ÒÔ¾»»¯»·¾³. ²»¹ý, <b>Çë×¢Òâ</b>! Èç¹ûÄãɾ³ýÁ˱ØÒªµÄ¼ÙÉè,\
Ä㽫ÎÞ·¨Íê³ÉÖ¤Ã÷!\
 </p>\
ÈκÎʱºòÄ㶼¿ÉÒÔʹÓÃÕâ¸ö·½·¨¶ø²»Óõ£Ðı»¿Û·Ö,\
ÒòΪÕâ²»»áÔö¼ÓÍƵ¼µÄ²½Êý.
!set N_=!linecnt $m_context

!if $wims_read_parm iswordof form check
 !goto $wims_read_parm
!endif

!if $N_<1
 !set error1=Ä¿Ç°Çé¿öÏÂÒѾ­Ã»ÓÐÈκμÙÉè!
!endif

!exit
:form
 $methhelp
 <p>
 ÕâÀïÊǵ±Ç°µÄ¼ÙÉè. ±ê¼ÇÄãÏëɾ³ýµÄ¼ÙÉè.
 </p><ul>
 !for i=1 to $N_
  !set l=!line $i of $m_context
  <li> <input type="checkbox" name="methparm1" value="$i"> \($l)</li>
 !next i
 </ul>
!exit
:check
 !reset newobject,oldobject
 n_=!itemcnt $methparm1
 !if $n_=0
  methexp=¿ÕµÄ²½Öè
  !exit
 !endif
 nc=
 !for i=1 to $N_
  !if $i notitemof $methparm1
   l=!line $i of $m_context
   nc=!append line $l to $nc
  !endif
 !next i
 m_context=$nc
 !read deduc/objects.combine
 methexp=ɾ³ý $n_ hypotheses

!exit