Subversion Repositories wimsdev

!set methtit=½»»»²»µÈʽµÄÁ½±ß
!set methenv=ZZ QQ RR
!set methparmtype=parm inequality
!set methhelp=´Ë·½·¨°Ñ²»µÈʽ \(A < B) ¸Äд³É \(B > A),\
 »ò·´Ö®.

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

!exit
:form
 ½»»»²»µÈʽµÄÁ½±ß
 !read deduc/methparm.phtml 1

!exit
:check
 !distribute items $methparmobj1 into data,left,sign,right
 methexp=½»»» \($left $sign $right) µÄÁ½±ß

 newsign=!translate internal <> to >< in $sign
 newobject1=$right $newsign $left
 oldobject=1

 contextlist=$ct_Always,\
    $ct_OnlywhenÁ½±ßÊÇÕýµÄ,\
    $ct_OnlywhenÁ½±ßͬºÅ,\
    $ct_Onlywhen²»µÈʽÊÇÑϸñµÄ

 resultlist=$newobject1,\
  $right $sign $left

!exit