Rev 5105 | Rev 5408 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5105 | Rev 5350 | ||
---|---|---|---|
Line 25... | Line 25... | ||
25 | !endif |
25 | !endif |
26 | 26 | ||
27 | !default superclass2=$superclass |
27 | !default superclass2=$superclass |
28 | !read tabletheme |
28 | !read tabletheme |
29 | !bound type within supervisor,participant,example,\ |
29 | !bound type within supervisor,participant,example,\ |
30 |
|
30 | authsupervisor,authparticipant,forgetpwd default example |
31 | !if $type=example |
31 | !if $type=example |
32 | superclass= |
32 | superclass= |
- | 33 | !endif |
|
- | 34 | ||
- | 35 | !if $type=forgetpwd |
|
- | 36 | !changeto forgetpwd.proc |
|
33 | !endif |
37 | !endif |
34 | 38 | ||
35 | !if $superclass=$empty |
39 | !if $superclass=$empty |
36 | indf=wimshome/log/classes/.index |
40 | indf=wimshome/log/classes/.index |
37 | limited=yes |
41 | limited=yes |
Line 47... | Line 51... | ||
47 | ccnt=!recordcnt $indf |
51 | ccnt=!recordcnt $indf |
48 | !if $wims_class!=$empty |
52 | !if $wims_class!=$empty |
49 | !read var.direct |
53 | !read var.direct |
50 | !if $error!=$empty |
54 | !if $error!=$empty |
51 | !exit |
55 | !exit |
52 | !endif |
56 | !endif |
53 | !endif |
57 | !endif |
54 | 58 | ||
55 | clcnt=0 |
59 | clcnt=0 |
56 | encnt=0 |
60 | encnt=0 |
57 | lacnt=0 |
61 | lacnt=0 |
58 | excnt=0 |
62 | excnt=0 |
59 | listla= |
63 | listla= |
Line 109... | Line 113... | ||
109 | !endif |
113 | !endif |
110 | !if $splevel=2 |
114 | !if $splevel=2 |
111 | classes1=!record 0 of wimshome/log/classes/$superclass2/classes |
115 | classes1=!record 0 of wimshome/log/classes/$superclass2/classes |
112 | classes2=!record 0 of wimshome/log/classes/$superclass2/programs |
116 | classes2=!record 0 of wimshome/log/classes/$superclass2/programs |
113 | !!classes1=!append line $classes2 to $classes1 |
117 | !!classes1=!append line $classes2 to $classes1 |
114 | !endif |
118 | !endif |
115 | !if $splevel=3 |
119 | !if $splevel=3 |
116 | classes1=!record 0 of wimshome/log/classes/$superclass2/courses |
120 | classes1=!record 0 of wimshome/log/classes/$superclass2/courses |
117 | !endif |
121 | !endif |
118 | clcnt=!linecnt $classes1 |
122 | clcnt=!linecnt $classes1 |
119 | clcnt_pr=!linecnt $classes2 |
123 | clcnt_pr=!linecnt $classes2 |
Line 128... | Line 132... | ||
128 | l=!line $i of $classes2 |
132 | l=!line $i of $classes2 |
129 | !distribute items $l into code,Sup,name,sup |
133 | !distribute items $l into code,Sup,name,sup |
130 | classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr |
134 | classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr |
131 | !next i |
135 | !next i |
132 | !exit |
136 | !exit |
133 | !endif |
137 | !endif |
134 | !endif |
138 | !endif |
135 | !endif |
139 | !endif |
136 | !for i=1 to $ccnt |
140 | !for i=1 to $ccnt |
137 | l=!record $i of $indf |
141 | l=!record $i of $indf |
138 | !distribute items $l into code,expire,inst,cl,la,ty |
142 | !distribute items $l into code,expire,inst,cl,la,ty |
139 | l1=!deaccent $l |
143 | l1=!deaccent $l |
Line 189... | Line 193... | ||
189 | 193 | ||
190 | !if $class_defined=yes and ($auth_user!=$empty or $auth_method isitemof $auth_method_list) |
194 | !if $class_defined=yes and ($auth_user!=$empty or $auth_method isitemof $auth_method_list) |
191 | !changeto var.auth |
195 | !changeto var.auth |
192 | !endif |
196 | !endif |
193 | !endif |
197 | !endif |
- | 198 |