Subversion Repositories wimsdev

Rev

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
	authsupervisor,authparticipant default example
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