Subversion Repositories wimsdev

Rev

Rev 20 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!set n_=$[$wims_read_parm]
2
!if $wims_read_parm=$empty or $n_<1
16118 bpr 3
  !set obj=$newobject
4
  !set Obj=$newObject
20 reyssat 5
!else
16118 bpr 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
20 reyssat 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
16118 bpr 16
  !if $a_=$lt
17
    !set objisgoal=yes
18
  !endif
20 reyssat 19
!endif
20
 
16118 bpr 21
!if $Obj!=$empty
22
  !insmath $Obj
20 reyssat 23
!else
16118 bpr 24
  &nbsp;
20 reyssat 25
!endif