Rev 23 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
teacherlist=!record 0 of $classdir1/.teacherlist
teachercnt=!linecnt $teacherlist
!if $teachercnt<=0
!exit
!endif
tcsv=login,lastname,firstname,password,email,supervisable\
!for i=1 to $teachercnt
l=!line $i of $teacherlist
!distribute items $l into ln,fn,li
pw=!defof user_password in $classdir1/.users/$li
pw=!word 1 of $pw
em=!defof user_email in $classdir1/.users/$li
tcsv=$tcsv\
"$li","$ln","$fn","$pw","$em","yes"
!next i
!writefile getfile/teachers.csv $tcsv
ttsv=!translate , to $ $ in $tcsv
!writefile getfile/teachers.tsv $ttsv