Subversion Repositories wimsdev

Rev

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

Rev 17315 Rev 17319
Line 25... Line 25...
25 
  tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar
 25 
  tmp=!record $(tmp[3]) of wimshome/log/classes/$wims_class/.techvar
26 
  listval=!line 2 of $tmp
 26 
  listval=!line 2 of $tmp
27 
  numsess=!itemcnt $listval
 27 
  numsess=!itemcnt $listval
28 
  !default mod_numsess=$numsess
 28 
  !default mod_numsess=$numsess
29 
  !for i=1 to $numsess
 29 
  !for i=1 to $numsess
- 
 
 30 
    up=!replace internal : by , in $(up_etime$i)
- 
 
 31 
    !distribute item $up into up_ehour$i,up_emin$i
- 
 
 32 
    up=!replace internal : by , in $(up_btime$i)
- 
 
 33 
    !distribute item $up into up_bhour$i,up_bmin$i
30 
    p=!positionof item $(listval[$i]) in $listcle
 34 
    p=!positionof item $(listval[$i]) in $listcle
31 
    !if $p!=$empty
 35 
    !if $p!=$empty
32 
      tdon=!line $p of $data
 36 
      tdon=!line $p of $data
33 
      !for v=1 to 10
 37 
      !for v=1 to 10
34 
        !default up_$(listvar[$v])$i=$(tdon[$v+1])
 38 
        !default up_$(listvar[$v])$i=$(tdon[$v+1])