Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | 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
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