Subversion Repositories wimsdev

Rev

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

Rev 2497 Rev 15421
Line 6... Line 6...
6 
 
 6 
 
7 
test=!line 1 to $bst_num of $test
 7 
test=!line 1 to $bst_num of $test
8 
sccnt=0
 8 
sccnt=0
9 
clcnt=0
 9 
clcnt=0
10 
!if $test=$empty
 10 
!if $test=$empty
11 
 !exit
 11 
  !exit
12 
!endif
 12 
!endif
13 
 
 13 
 
14 
n=!linecnt $test
 14 
n=!linecnt $test
15 
!for i=1 to $n
 15 
!for i=1 to $n
16 
 l=!line $i of $test
 16 
  l=!line $i of $test
17 
 !distribute item $l into c,t
 17 
  !distribute item $l into c,t
18 
 l=!defof class_lang\
 18 
  l=!defof class_lang\
19 
class_supervisor\
 19 
class_supervisor\
20 
class_email\
 20 
class_email\
21 
class_creation\
 21 
class_creation\
22 
class_expiration\
 22 
class_expiration\
23 
class_description\
 23 
class_description\
24 
class_institution\
 24 
class_institution\
25 
class_type in wimshome/log/classes/$c/.def
 25 
class_type in wimshome/log/classes/$c/.def
26 
 nbuser=!recordcnt wimshome/log/classes/$c/.userlist
 26 
  nbuser=!recordcnt wimshome/log/classes/$c/.userlist
27 
 !distribute line $l into lg,sup,mail,cre,exp,des,inst,ty
 27 
  !distribute line $l into lg,sup,mail,cre,exp,des,inst,ty
28 
 t=$[floor(($t+30)/60)]
 28 
  t=$[floor(($t+30)/60)]
29 
 don=$c,$lg,$sup,$mail,$cre,$exp,$des,$inst,$t,$nbuser
 29 
  don=$c,$lg,$sup,$mail,$cre,$exp,$des,$inst,$t,$nbuser
30 
 !if $ty isin 24
 30 
  !if $ty isin 24
31 
  !advance sccnt
 31 
    !advance sccnt
32 
  sclasses=!append line $don to $sclasses
 32 
   sclasses=!append line $don to $sclasses
33 
 !else
 33 
  !else
34 
  !advance clcnt
 34 
    !advance clcnt
35 
  classes=!append line $don to $classes
 35 
    classes=!append line $don to $classes
36 
 !endif
 36 
  !endif
37 
!next i
 37 
!next i