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