Subversion Repositories wimsdev

Rev

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

Rev 2217 Rev 12617
Line 4... Line 4...
4 
!if $levelcnt=0
 4 
!if $levelcnt=0
5 
 error=empty
 5 
  error=empty
6 
 !exit
 6 
  !exit
7 
!endif
 7 
!endif
8 
classes=!record 0 of $classdir1/classes
 8 
classes=!record 0 of $classdir1/classes
9 
progs=!record 0 of $classdir1/programs
 9 
progs=!record 0 of $classdir1/programs
10 
classcnt=!linecnt $classes
 10 
classcnt=!linecnt $classes
11 
progcnt=!linecnt $progs
 11 
progcnt=!linecnt $progs
Line 14... Line 14...
14 
!sh cd $wims_home/$wims_sesdir\
 14 
!sh cd $wims_home/$wims_sesdir\
15 
 mkdir -p getfile\
 15 
 mkdir -p getfile\
16 
 rm -f getfile/gateway.csv
 16 
 rm -f getfile/gateway.csv
17 
 
 17 
 
18 
!for i=1 to $levelcnt
 18 
!for i=1 to $levelcnt
19 
 l=!line $i of $levels
 19 
  l=!line $i of $levels
20 
 !distribute items $l into c_,s_,d_,n_
 20 
  !distribute items $l into c_,s_,d_,n_
21 
 !if $n_!=$empty
 21 
  !if $n_!=$empty
22 
  p1=!defof class_password in $classdir1/$c_/.def
 22 
    p1=!defof class_password in $classdir1/$c_/.def
23 
  p2=!defof user_password in $classdir1/$c_/supervisor
 23 
    p2=!defof user_password in $classdir1/$c_/supervisor
24 
  !appendfile $outfile level,$c_,$d_,$s_,$p1,$p2
 24 
    !appendfile $outfile level,$c_,$d_,$s_,$p1,$p2
25 
 !endif
 25 
  !endif
26 
!next i
 26 
!next i
27 
 
 27 
 
28 
!for i=1 to $classcnt
 28 
!for i=1 to $classcnt
29 
 l=!line $i of $classes
 29 
  l=!line $i of $classes
30 
 !distribute items $l into c_,s_,d_,n_
 30 
  !distribute items $l into c_,s_,d_,n_
31 
 !if $n_!=$empty
 31 
  !if $n_!=$empty
32 
  p1=!defof class_password in $classdir1/$c_/.def
 32 
    p1=!defof class_password in $classdir1/$c_/.def
33 
  p2=!defof user_password in $classdir1/$c_/supervisor
 33 
    p2=!defof user_password in $classdir1/$c_/supervisor
34 
  !appendfile $outfile class,$c_,$d_,$s_,$p1,$p2
 34 
    !appendfile $outfile class,$c_,$d_,$s_,$p1,$p2
35 
 !endif
 35 
  !endif
36 
!next i
 36 
!next i
37 
 
 37 
 
38 
!for i=1 to $progcnt
 38 
!for i=1 to $progcnt
39 
 l=!line $i of $progs
 39 
  l=!line $i of $progs
40 
 !distribute items $l into c_,s_,d_,n_
 - 
 
41 
 !if $n_!=$empty
 - 
 
42 
  p1=!defof class_password in $classdir1/$c_/.def
 - 
 
43 
  st=!defof class_progstyle in $classdir1/$c_/.def
 - 
 
44 
  p2=!defof user_password in $classdir1/$c_/supervisor
 - 
 
45 
  !appendfile $outfile program,$c_,$d_,$s_,$p1,$p2,$st
 - 
 
46 
 !endif
 - 
 
47 
!next i
 - 
 
48 
 
 - 
 
49 
!for i=1 to $levelcnt
 - 
 
50 
 l=!line $i of $levels
 - 
 
51 
 l=!item 1 of $l
 - 
 
52 
 courses=!record 0 of $classdir1/$l/courses
 - 
 
53 
 coursecnt=!linecnt $courses
 - 
 
54 
 !for j=1 to $coursecnt
 - 
 
55 
  l=!line $j of $courses
 - 
 
56 
  !distribute items $l into c_,s_,d_,n_
 40 
  !distribute items $l into c_,s_,d_,n_
57 
  !if $n_!=$empty
 41 
  !if $n_!=$empty
58 
   p1=!defof class_password in $classdir1/$c_/.def
 42 
    p1=!defof class_password in $classdir1/$c_/.def
- 
 
 43 
    st=!defof class_progstyle in $classdir1/$c_/.def
59 
   p2=!defof user_password in $classdir1/$c_/supervisor
 44 
    p2=!defof user_password in $classdir1/$c_/supervisor
60 
   !appendfile $outfile course,$c_,$d_,$s_,$p1,$p2
 45 
    !appendfile $outfile program,$c_,$d_,$s_,$p1,$p2,$st
61 
  !endif
 46 
  !endif
- 
 
 47 
!next i
- 
 
 48 
 
- 
 
 49 
!for i=1 to $levelcnt
- 
 
 50 
  l=!line $i of $levels
- 
 
 51 
  l=!item 1 of $l
- 
 
 52 
  courses=!record 0 of $classdir1/$l/courses
- 
 
 53 
  coursecnt=!linecnt $courses
- 
 
 54 
  !for j=1 to $coursecnt
- 
 
 55 
    l=!line $j of $courses
- 
 
 56 
    !distribute items $l into c_,s_,d_,n_
- 
 
 57 
    !if $n_!=$empty
- 
 
 58 
      p1=!defof class_password in $classdir1/$c_/.def
- 
 
 59 
      p2=!defof user_password in $classdir1/$c_/supervisor
- 
 
 60 
      !appendfile $outfile course,$c_,$d_,$s_,$p1,$p2
- 
 
 61 
    !endif
62 
 !next j
 62 
  !next j
63 
!next i
 63 
!next i
64 
 
 64