Subversion Repositories wimsdev

levels=!record 0 of $classdir1/levels
levelcnt=!linecnt $levels
!if $levelcnt=0
  error=empty
  !exit
!endif
classes=!record 0 of $classdir1/classes
progs=!record 0 of $classdir1/programs
classcnt=!linecnt $classes
progcnt=!linecnt $progs

outfile=wimshome/$wims_sesdir/getfile/gateway.csv
!sh cd $wims_home/$wims_sesdir\
 mkdir -p getfile\
 rm -f getfile/gateway.csv

!for i=1 to $levelcnt
  l=!line $i of $levels
  !distribute items $l into c_,s_,d_,n_
  !if $n_!=$empty
    p1=!defof class_password in $classdir1/$c_/.def
    p2=!defof user_password in $classdir1/$c_/supervisor
    !appendfile $outfile level,$c_,$d_,$s_,$p1,$p2
  !endif
!next i

!for i=1 to $classcnt
  l=!line $i of $classes
  !distribute items $l into c_,s_,d_,n_
  !if $n_!=$empty
    p1=!defof class_password in $classdir1/$c_/.def
    p2=!defof user_password in $classdir1/$c_/supervisor
    !appendfile $outfile class,$c_,$d_,$s_,$p1,$p2
  !endif
!next i

!for i=1 to $progcnt
  l=!line $i of $progs
  !distribute items $l into c_,s_,d_,n_
  !if $n_!=$empty
    p1=!defof class_password in $classdir1/$c_/.def
    st=!defof class_progstyle in $classdir1/$c_/.def
    p2=!defof user_password in $classdir1/$c_/supervisor
    !appendfile $outfile program,$c_,$d_,$s_,$p1,$p2,$st
  !endif
!next i

!for i=1 to $levelcnt
  l=!line $i of $levels
  l=!item 1 of $l
  courses=!record 0 of $classdir1/$l/courses
  coursecnt=!linecnt $courses
  !for j=1 to $coursecnt
    l=!line $j of $courses
    !distribute items $l into c_,s_,d_,n_
    !if $n_!=$empty
      p1=!defof class_password in $classdir1/$c_/.def
      p2=!defof user_password in $classdir1/$c_/supervisor
      !appendfile $outfile course,$c_,$d_,$s_,$p1,$p2
    !endif
  !next j
!next i