Subversion Repositories wimsdev

Rev

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

Rev 11147 Rev 12555
Line 7... Line 7...
7 
!endif
 7 
!endif
8 
 
 8 
 
9 
tcsv=login,lastname,firstname,password,email,supervisable,supervise,participate\
 9 
tcsv=login,lastname,firstname,password,email,supervisable,supervise,participate\
10 
 
 10 
 
11 
!for i=1 to $teachercnt
 11 
!for i=1 to $teachercnt
12 
 l=!line $i of $teacherlist
 12 
  l=!line $i of $teacherlist
13 
 !distribute items $l into ln,fn,li
 13 
  !distribute items $l into ln,fn,li
14 
 pw=!defof user_password in $classdir_1/.users/$li
 14 
  pw=!defof user_password in $classdir_1/.users/$li
15 
 pw=!word 1 of $pw
 15 
  pw=!word 1 of $pw
16 
 em=!defof user_email in $classdir_1/.users/$li
 16 
  em=!defof user_email in $classdir_1/.users/$li
17 
 ep=!defof user_participate in $classdir_1/.users/$li
 17 
  ep=!defof user_participate in $classdir_1/.users/$li
18 
 es=!defof user_supervise in $classdir_1/.users/$li
 18 
  es=!defof user_supervise in $classdir_1/.users/$li
19 
 es=!items2words $es
 19 
  es=!items2words $es
20 
 tcsv=$tcsv\
 20 
  tcsv=$tcsv\
21 
"$li","$ln","$fn","$pw","$em","yes","$es","$ep"
 21 
"$li","$ln","$fn","$pw","$em","yes","$es","$ep"
22 
!next i
 22 
!next i
23 
 
 23 
 
24 
!writefile getfile/teachers.csv $tcsv
 24 
!writefile getfile/teachers.csv $tcsv
25 
ttsv=!translate , to $	$ in $tcsv
 25 
ttsv=!translate , to $	$ in $tcsv