Subversion Repositories wimsdev

Rev

Rev 15795 | Rev 16805 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15795 Rev 15808
Line 86... Line 86...
86 
  !endif
 86 
  !endif
87 
!endif
 87 
!endif
88 
 
 88 
 
89 
!if $class_type isin 024
 89 
!if $class_type isin 024
90 
  !! --- check geoloc
 90 
  !! --- check geoloc
91 
  up_geoloc=!text select 0123456789., in $up_geoloc
 91 
  up_geoloc=!text select -0123456789., in $up_geoloc
92 
  X=!item 1 of $up_geoloc
 92 
  X=!item 1 of $up_geoloc
93 
  X=$[$X * 1]
 93 
  X=$[$X * 1]
94 
  Y=!item 2 of $up_geoloc
 94 
  Y=!item 2 of $up_geoloc
95 
  Y=$[$Y * 1]
 95 
  Y=$[$Y * 1]
96 
  N=!itemcnt $up_geoloc
 96 
  N=!itemcnt $up_geoloc