Rev 7684 | Rev 14315 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7684 | Rev 12411 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| 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 |
| 13 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat |
13 | !setdef wims_exotitleform=$up_exotitleform in wimshome/sessions/$wims_session/var.stat |
| 14 | !endif |
14 | !endif |
| 15 | !defread wimshome/log/classes/$wims_class/.def |
15 | !defread wimshome/log/classes/$wims_class/.def |
| 16 | wims_class_log=Modify class configuration by $wims_realuser |
16 | wims_class_log=Modify class configuration by $wims_realuser |
| 17 | !endif |
17 | !endif |
| 18 | 18 | ||
| 19 | !read adm/du $wims_home/log/classes/$wims_class |
19 | !read adm/du $wims_home/log/classes/$wims_class |
| 20 | 20 | ||
| 21 | !if $wims_superclass!=$empty |
21 | !if $wims_superclass!=$empty |
| 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 |