1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
classdir_1=$wims_read_parm
teacherlist=!record 0 of $classdir_1/.teacherlist
teachercnt=!linecnt $teacherlist
!if $teachercnt<=0
!exit
!endif
tcsv=login,lastname,firstname,password,email,supervisable,supervise,participate\
!for i=1 to $teachercnt
l=!line $i of $teacherlist
!distribute items $l into ln,fn,li
pw=!defof user_password in $classdir_1/.users/$li
pw=!word 1 of $pw
em=!defof user_email in $classdir_1/.users/$li
ep=!defof user_participate in $classdir_1/.users/$li
es=!defof user_supervise in $classdir_1/.users/$li
es=!items2words $es
tcsv=$tcsv\
"$li","$ln","$fn","$pw","$em","yes","$es","$ep"
!next i
!writefile getfile/teachers.csv $tcsv
ttsv=!translate , to $ $ in $tcsv
!writefile getfile/teachers.tsv $ttsv
|
