Rev 5426 | Rev 12411 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | |
| 2 | !if $save!=$empty |
||
| 3 | !read scripts/setdef.proc |
||
| 5258 | guerimand | 4 | !if $up_exotitleform!=$class_exotitleform |
| 5 | !! change value of wims_exotitleform for connected student |
||
| 6 | !readproc adm/whoconnect 1 |
||
| 7684 | bpr | 7 | !for k=1 to $wims_numpartconnected |
| 5426 | guerimand | 8 | !let s=!itemcnt $(wims_whoconnect[$k]) |
| 9 | !for ses=3 to $s |
||
| 10 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$(wims_whoconnect[$k;$ses])/var.stat |
||
| 11 | !next ses |
||
| 5258 | guerimand | 12 | !next se |
| 5426 | guerimand | 13 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat |
| 5258 | guerimand | 14 | !endif |
| 23 | reyssat | 15 | !defread wimshome/log/classes/$wims_class/.def |
| 4599 | bpr | 16 | wims_class_log=Modify class configuration by $wims_realuser |
| 23 | reyssat | 17 | !endif |
| 18 | |||
| 19 | !read adm/du $wims_home/log/classes/$wims_class |
||
| 20 | |||
| 21 | !if $wims_superclass!=$empty |
||
| 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 |
||
| 24 | classdepth=!translate internal / to , in $wims_class |
||
| 25 | classdepth=!itemcnt $classdepth |
||
| 26 | !endif |