Subversion Repositories wimsdev

Rev

Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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