Subversion Repositories wimsdev

Rev

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

Rev 2184 Rev 14341
Line 7... Line 7...
7 
  l_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
 7 
  l_=!record $i+1 of wimshome/log/classes/$wims_class/.grades
8 
  n_=!item 1 of $l_
 8 
  n_=!item 1 of $l_
9 
  n_=!hex $n_
 9 
  n_=!hex $n_
10 
  g_$n_=$l_
 10 
  g_$n_=$l_
11 
!next i
 11 
!next i
12 
t=!record 1 of wimshome/log/classes/$wims_class/.grades
 12 
update_content=!record 1 of wimshome/log/classes/$wims_class/.grades
13 
t=!replace line number 1 by $per in $t
 13 
update_content=!replace line number 1 by $per in $update_content
14 
!writefile wimshome/log/classes/$wims_class/.grades :$t
 - 
 
15 
!for u=1 to $ucnt
 - 
 
16 
  t_=!item $u of $ulist
 14 
update_field=1
17 
  t_=!hex $t_
 15 
update_nbline=$empty
18 
  !appendfile wimshome/log/classes/$wims_class/.grades :$(g_$t_)
 16 
!read adm/uprecord wimshome/log/classes/$wims_class/.grades
19 
!next u
 17 
 
20 
!read var.init
 18 
!read var.init
21 
 
 19