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