Subversion Repositories wimsdev

Rev

Rev 5426 | Rev 12411 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5426 Rev 7684
Line 2... Line 2...
2 
!if $save!=$empty
 2 
!if $save!=$empty
3 
 !read scripts/setdef.proc
 3 
 !read scripts/setdef.proc
4 
 !if $up_exotitleform!=$class_exotitleform
 4 
 !if $up_exotitleform!=$class_exotitleform
5 
!! change value of wims_exotitleform for connected student
 5 
!! change value of wims_exotitleform for connected student
6 
  !readproc adm/whoconnect 1
 6 
  !readproc adm/whoconnect 1
7 
  !for k=1 to $wims_numpartconnected
7 
  !for k=1 to $wims_numpartconnected
8 
   !let s=!itemcnt $(wims_whoconnect[$k])
 8 
   !let s=!itemcnt $(wims_whoconnect[$k])
9 
   !for ses=3 to $s
 9 
   !for ses=3 to $s
10 
    !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat
 10 
    !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat
11 
   !next ses
 11 
   !next ses
12 
  !next se
 12 
  !next se
Line 22... Line 22...
22 
 supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def
 22 
 supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def
23 
 class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
 23 
 class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def
24 
 classdepth=!translate internal / to , in $wims_class
 24 
 classdepth=!translate internal / to , in $wims_class
25 
 classdepth=!itemcnt $classdepth
 25 
 classdepth=!itemcnt $classdepth
26 
!endif
 26 
!endif
27 
 
 -