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 
 
 -