Subversion Repositories wimsdev

Rev

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

Rev 10111 Rev 14890
Line 6... Line 6...
6 
!endif
 6 
!endif
7 
 
 7 
 
8 
classcnt=!recordcnt wimshome/log/classes/.index
 8 
classcnt=!recordcnt wimshome/log/classes/.index
9 
 
 9 
 
10 
!if $job2=first
 10 
!if $job2=first
- 
 
 11 
  !readproc class/search.proc
- 
 
 12 
  !if $overflow!=yes
11 
 !readproc scripts/ccaccount.proc
 13 
    !readproc scripts/ccaccount.proc
12 
 test=!record 0 of wimshome/s2/$wims_session/$bst_since
 14 
    test=!record 0 of wimshome/s2/$wims_session/$bst_since
13 
 n=!linecnt $test
 15 
    n=!linecnt $test
- 
 
 16 
    !if $n>0
- 
 
 17 
      actives=yes
14 
 !for i=1 to $n
 18 
      !for i=1 to $n
15 
  l=!line $i of $test
 19 
        l=!line $i of $test
16 
  !distribute item $l into c,t
 20 
        !distribute item $l into c,t
- 
 
 21 
        !if $c isitemof $list_cl_id
17 
  t=$[floor(($t+30)/60)]
 22 
          t=$[floor(($t+30)/60)]
18 
  activ_$c=$t
 23 
          activ_$c=$t
19 
 !next i
 24 
        !endif
20 
 !if $n>0
 25 
      !next i
21 
  actives=yes
 26 
    !endif
22 
 !endif
 27 
  !endif
23 
 !readproc class/search.proc
 - 
 
24 
!endif
 28 
!endif
25 
 
 29 
 
26 
!if $job2!=first
 30 
!if $job2!=first
27 
 !defread wimshome/log/classes/$jobclass/.def
 31 
 !defread wimshome/log/classes/$jobclass/.def
28 
!endif
 32 
!endif