Rev 12411 | Rev 14349 | 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 |
||
| 12411 | bpr | 3 | !read scripts/setdef.proc |
| 4 | !if $up_exotitleform!=$class_exotitleform |
||
| 5 | !! change value of wims_exotitleform for connected student |
||
| 6 | !readproc adm/whoconnect 1 |
||
| 7 | !for k=1 to $wims_numpartconnected |
||
| 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 |
||
| 12 | !next se |
||
| 13 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat |
||
| 14 | !endif |
||
| 15 | !defread wimshome/log/classes/$wims_class/.def |
||
| 16 | wims_class_log=Modify class configuration by $wims_realuser |
||
| 23 | reyssat | 17 | !endif |
| 18 | |||
| 14315 | guerimand | 19 | !!read adm/du $wims_home/log/classes/$wims_class |
| 23 | reyssat | 20 | |
| 21 | !if $wims_superclass!=$empty |
||
| 12411 | bpr | 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 |
||
| 23 | reyssat | 26 | !endif |