Rev 4599 | Rev 5426 | 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 |
||
| 7 | listsess=!column 2 of $whoconnect |
||
| 8 | listsess=!append item $wims_session to $listsess |
||
| 9 | !for se in $listsess |
||
| 10 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$se/var.stat |
||
| 11 | !next se |
||
| 12 | !endif |
||
| 23 | reyssat | 13 | !defread wimshome/log/classes/$wims_class/.def |
| 4599 | bpr | 14 | wims_class_log=Modify class configuration by $wims_realuser |
| 23 | reyssat | 15 | !endif |
| 16 | |||
| 17 | !read adm/du $wims_home/log/classes/$wims_class |
||
| 18 | |||
| 19 | !if $wims_superclass!=$empty |
||
| 20 | supertype=!defof class_type in wimshome/log/classes/$wims_superclass/.def |
||
| 21 | class_expiration=!defof class_expiration in wimshome/log/classes/$wims_superclass/.def |
||
| 22 | classdepth=!translate internal / to , in $wims_class |
||
| 23 | classdepth=!itemcnt $classdepth |
||
| 24 | !endif |
||
| 25 |