Subversion Repositories wimsdev

Rev

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

  1. !set n_=$[$wims_read_parm]
  2. !if $wims_read_parm=$empty or $n_<1
  3.  !set obj=$newobject
  4.  !set Obj=$newObject
  5. !else
  6.  !set obj=!item $n_+1 of $statusline
  7.  !set obj=!char 2 to -2 of $obj
  8.  !set Obj=!item $n_+1 of $statusLine
  9.  !set Obj=!char 2 to -2 of $Obj
  10. !endif
  11.  
  12. !set a_=!char 1 of $Obj
  13. !distribute items <,>,= into lt,gt,eq
  14. !reset objisgoal
  15. !if $a_ isin $lt$gt
  16.  !if $a_=$lt
  17.   !set objisgoal=yes
  18.  !endif
  19. !endif
  20.  
  21. !if $obj!=$empty
  22.  !htmlmath $obj
  23. !else
  24.  &nbsp;
  25. !endif
  26.  
  27.