Subversion Repositories wimsdev

Rev

Rev 11690 | Rev 12980 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 11690 Rev 12845
Line 1... Line 1...
1 
!if robot isin $session or _ isin $session
 1 
!if robot isin $session or _ isin $session
2 
 !exit
 2 
  !exit
3 
!endif
 3 
!endif
4 
!read adm/class/classlang names.phtml
 4 
!read adm/class/classlang names.phtml
5 
!default module_title2=$module_title
 5 
!default module_title2=$module_title
6 
 
 6 
 
7 
listlim=100
 7 
listlim=100
Line 13... Line 13...
13 
!default class_bgcolor=$wims_bgcolor
 13 
!default class_bgcolor=$wims_bgcolor
14 
!default class_bgimg=$wims_bgimg
 14 
!default class_bgimg=$wims_bgimg
15 
!default class_css=$wims_css
 15 
!default class_css=$wims_css
16 
 
 16 
 
17 
!if $class!=$empty
 17 
!if $class!=$empty
18 
## output auth_method_list, aut_idp_method_list, auth_method, aut_idp_method
 18 
  ## output auth_method_list, aut_idp_method_list, auth_method, aut_idp_method
19 
  !read adm/class/initclass $class,auth
 19 
  !read adm/class/initclass $class,auth
20 
!endif
 20 
!endif
21 
!!useful ! if $class=$empty
 21 
!!useful ! if $class=$empty
22 
superclass=!text remove . in $superclass
 22 
superclass=!text remove . in $superclass
23 
!if $wims_superclass!=$empty
 23 
!if $wims_superclass!=$empty
24 
 superclass=$wims_superclass
 24 
  superclass=$wims_superclass
25 
!endif
 25 
!endif
26 
 
 26 
 
27 
!default superclass2=$superclass
 27 
!default superclass2=$superclass
28 
!read tabletheme
 28 
!read tabletheme
29 
!if $auth_method=$empty and $class!=$empty
 29 
!if $auth_method=$empty and $class!=$empty
30 
 !bound type within supervisor,participant,example,\
 30 
  !bound type within supervisor,participant,example,\
31 
   authsupervisor,authparticipant,forgetpwd default example
 31 
    authsupervisor,authparticipant,forgetpwd default example
32 
!else
 32 
!else
33 
 !bound type within supervisor,participant,example,\
 33 
  !bound type within supervisor,participant,example,\
34 
   authsupervisor,authparticipant default example
 34 
    authsupervisor,authparticipant default example
35 
!endif
 35 
!endif
36 
!if $type=example
 36 
!if $type=example
37 
 superclass=
 37 
  superclass=
38 
!endif
 38 
!endif
39 
 
 39 
 
40 
!if $type=forgetpwd
 40 
!if $type=forgetpwd
41 
 !changeto forgetpwd.proc
 41 
  !changeto forgetpwd.proc
42 
!endif
 42 
!endif
43 
 
 43 
 
44 
!if $superclass=$empty
 44 
!if $superclass=$empty
45 
 indf=wimshome/log/classes/.index
 45 
  indf=wimshome/log/classes/.index
46 
 limited=yes
 46 
  limited=yes
47 
!else
 47 
!else
48 
 indf=wimshome/log/classes/$superclass/.subclasses
 48 
  indf=wimshome/log/classes/$superclass/.subclasses
49 
 keyword=
 49 
  keyword=
50 
!endif
 50 
!endif
51 
keyword=!items2words $keyword
 51 
keyword=!items2words $keyword
52 
keyword=!trim $keyword
 52 
keyword=!trim $keyword
53 
kw=!words2items $keyword
 53 
kw=!words2items $keyword
54 
kw=!deaccent $kw
 54 
kw=!deaccent $kw
55 
kw=!tolower $kw
 55 
kw=!tolower $kw
56 
ccnt=!recordcnt $indf
 56 
ccnt=!recordcnt $indf
57 
!if $wims_class!=$empty
 57 
!if $wims_class!=$empty
58 
 !read var.direct
 58 
  !read var.direct
59 
 !if $error!=$empty
 59 
  !if $error!=$empty
60 
  !exit
 60 
    !exit
61 
 !endif
 61 
  !endif
62 
!endif
 62 
!endif
63 
 
 63 
 
64 
clcnt=0
 64 
clcnt=0
65 
encnt=0
 65 
encnt=0
66 
lacnt=0
 66 
lacnt=0
67 
excnt=0
 67 
excnt=0
68 
listla=
 68 
listla=
69 
!if $type=example
 69 
!if $type=example
70 
 !for i=1 to $ccnt
 70 
  !for i=1 to $ccnt
71 
  l=!record $i of $indf
 71 
    l=!record $i of $indf
72 
  c=!item 1 of $l
 72 
    c=!item 1 of $l
73 
  !if NaN notin $[$c] and $c<10000
 73 
    !if NaN notin $[$c] and $c<10000
74 
   ltest=!defof class_lang in wimshome/log/classes/$c/.def
 74 
      ltest=!defof class_lang in wimshome/log/classes/$c/.def
75 
   !advance excnt
 75 
      !advance excnt
76 
   !if $module_language iswordof $ltest
 76 
      !if $module_language iswordof $ltest
77 
    laclasses=!append line $l to $laclasses
 77 
        laclasses=!append line $l to $laclasses
78 
    !advance lacnt
 78 
        !advance lacnt
79 
   !else
 79 
      !else
80 
    listla=!append item $ltest to $listla
 80 
        listla=!append item $ltest to $listla
81 
    !if $ltest=en
 81 
        !if $ltest=en
82 
     enclasses=!append line $l to $enclasses
 82 
          enclasses=!append line $l to $enclasses
83 
     !advance encnt
 83 
          !advance encnt
- 
 
 84 
        !endif
- 
 
 85 
      !endif
84 
    !endif
 86 
    !endif
- 
 
 87 
  !next i
- 
 
 88 
 
- 
 
 89 
  !if $lacnt>0
- 
 
 90 
    clcnt=$lacnt
- 
 
 91 
    classes=$laclasses
85 
   !endif
 92 
  !else
- 
 
 93 
    clcnt=$encnt
- 
 
 94 
    classes=$enclasses
86 
  !endif
 95 
  !endif
87 
 !next i
 - 
 
88 
 !if $lacnt>0
 - 
 
89 
  clcnt=$lacnt
 - 
 
90 
  classes=$laclasses
 - 
 
91 
 !else
 96 
 
92 
  clcnt=$encnt
 - 
 
93 
  classes=$enclasses
 - 
 
94 
 !endif
 - 
 
95 
 listla=!listuniq $listla
 97 
  listla=!listuniq $listla
96 
 listla=!replace internal , by </span>, <span class="tt"> in <span class="tt">$listla</span>
 98 
  listla=!replace internal , by </span>, <span class="tt"> in <span class="tt">$listla</span>
97 
 othercnt=$[$excnt-$lacnt]
 99 
  othercnt=$[$excnt-$lacnt]
98 
!endif
 100 
!endif
99 
 
 101 
 
100 
!if $type iswordof supervisor participant
 102 
!if $type iswordof supervisor participant
101 
 sccnt=0
 103 
  sccnt=0
102 
 !if $wims_class!=$empty
 104 
  !if $wims_class!=$empty
103 
  !defread wimshome/log/classes/$wims_class/.def
 105 
    !defread wimshome/log/classes/$wims_class/.def
104 
  !! n_type is not always good
 106 
    !! n_type is not always good
105 
  !set wims_ariane=!append line n_$type,8, to $wims_ariane
 107 
    !set wims_ariane=!append line n_$type,8, to $wims_ariane
106 
  !default class_type=0
 108 
    !default class_type=0
107 
  !set wims_ariane_self=no
 109 
    !set wims_ariane_self=no
108 
  !if $class_type>=2
 110 
    !if $class_type>=2
109 
   !read adm/class/userdef classes,$wims_class,$wims_user
 111 
      !read adm/class/userdef classes,$wims_class,$wims_user
110 
   supervisable=!defof user_supervisable in $userdef
 112 
      supervisable=!defof user_supervisable in $userdef
111 
   super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def
 113 
      super_type=!defof class_type in wimshome/log/classes/$wims_superclass/.def
112 
   !ifval $super_type=4
 114 
      !ifval $super_type=4
113 
    stype=$[$super_type]
 115 
        stype=$[$super_type]
114 
    sp=!translate internal / to , in $superclass2
 116 
        sp=!translate internal / to , in $superclass2
115 
    splevel=!itemcnt $sp
 117 
        splevel=!itemcnt $sp
116 
    sparent=!item 1 to -2 of $sp
 118 
        sparent=!item 1 to -2 of $sp
117 
    sparent=!translate internal , to / in $sparent
 119 
        sparent=!translate internal , to / in $sparent
118 
    sparent=!nospace $sparent
 120 
        sparent=!nospace $sparent
119 
    !if $splevel=1
 121 
        !if $splevel=1
120 
     classes1=!record 0 of wimshome/log/classes/$superclass2/levels
 122 
          classes1=!record 0 of wimshome/log/classes/$superclass2/levels
121 
    !endif
 123 
        !endif
122 
    !if $splevel=2
 124 
        !if $splevel=2
123 
     classes1=!record 0 of wimshome/log/classes/$superclass2/classes
 125 
          classes1=!record 0 of wimshome/log/classes/$superclass2/classes
124 
     classes2=!record 0 of wimshome/log/classes/$superclass2/programs
 126 
          classes2=!record 0 of wimshome/log/classes/$superclass2/programs
125 
     !!classes1=!append line $classes2 to $classes1
 127 
          !!classes1=!append line $classes2 to $classes1
- 
 
 128 
        !endif
- 
 
 129 
        !if $splevel=3
- 
 
 130 
          classes1=!record 0 of wimshome/log/classes/$superclass2/courses
- 
 
 131 
        !endif
- 
 
 132 
        clcnt=!linecnt $classes1
- 
 
 133 
        clcnt_pr=!linecnt $classes2
- 
 
 134 
        classes=
- 
 
 135 
        classes_pr=
- 
 
 136 
        !for i=1 to $clcnt
- 
 
 137 
          l=!line $i of $classes1
- 
 
 138 
          !distribute items $l into code,Sup,name,sup
- 
 
 139 
          classes=!append line $wims_superclass/$code,,,$name to $classes
- 
 
 140 
        !next i
- 
 
 141 
        !for i=1 to $clcnt_pr
- 
 
 142 
          l=!line $i of $classes2
- 
 
 143 
          !distribute items $l into code,Sup,name,sup
- 
 
 144 
          classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr
- 
 
 145 
        !next i
- 
 
 146 
        !exit
- 
 
 147 
      !endif
- 
 
 148 
    !endif
- 
 
 149 
  !endif
- 
 
 150 
 
- 
 
 151 
  !for i=1 to $ccnt
- 
 
 152 
    l=!record $i of $indf
- 
 
 153 
    !distribute items $l into code,expire,inst,cl,la,ty
- 
 
 154 
    l1=!deaccent $l
- 
 
 155 
    l1=!tolower $l1
- 
 
 156 
    c1=!text extract 0123456789 in $code
- 
 
 157 
    k=yes
- 
 
 158 
    !for w in $kw
- 
 
 159 
      !if $w notin $l1
- 
 
 160 
        k=no
- 
 
 161 
        !break
- 
 
 162 
      !endif
- 
 
 163 
    !next w
- 
 
 164 
    !!delete condition on language in a superclass
- 
 
 165 
    !if (/ isin $code or $c1>9999) and ($la=$module_language or $class_type!=) and\
- 
 
 166 
      ($code!=$wims_class or ($wims_user!=supervisor and $type=supervisor)) and \
- 
 
 167 
      $k = yes
- 
 
 168 
      !if $ty isin 24
- 
 
 169 
        sclasses=!append line $l to $sclasses
- 
 
 170 
        !advance sccnt
- 
 
 171 
      !else
- 
 
 172 
        classes=!append line $l to $classes
- 
 
 173 
        !advance clcnt
- 
 
 174 
      !endif
126 
    !endif
 175 
    !endif
127 
    !if $splevel=3
 - 
 
128 
     classes1=!record 0 of wimshome/log/classes/$superclass2/courses
 - 
 
129 
    !endif
 - 
 
130 
    clcnt=!linecnt $classes1
 - 
 
131 
    clcnt_pr=!linecnt $classes2
 - 
 
132 
    classes=
 - 
 
133 
    classes_pr=
 - 
 
134 
    !for i=1 to $clcnt
 - 
 
135 
     l=!line $i of $classes1
 - 
 
136 
     !distribute items $l into code,Sup,name,sup
 176 
    !if $limited = yes and $clcnt+$sccnt > $listlim
137 
     classes=!append line $wims_superclass/$code,,,$name to $classes
 - 
 
138 
    !next i
 - 
 
139 
    !for i=1 to $clcnt_pr
 - 
 
140 
     l=!line $i of $classes2
 - 
 
141 
     !distribute items $l into code,Sup,name,sup
 - 
 
142 
     classes_pr=!append line $wims_superclass/$code,,,$name to $classes_pr
 - 
 
143 
    !next i
 - 
 
144 
    !exit
 - 
 
145 
   !endif
 - 
 
146 
  !endif
 - 
 
147 
 !endif
 - 
 
148 
 !for i=1 to $ccnt
 - 
 
149 
  l=!record $i of $indf
 - 
 
150 
  !distribute items $l into code,expire,inst,cl,la,ty
 - 
 
151 
  l1=!deaccent $l
 - 
 
152 
  l1=!tolower $l1
 - 
 
153 
  c1=!text extract 0123456789 in $code
 - 
 
154 
  k=yes
 - 
 
155 
  !for w in $kw
 - 
 
156 
   !if $w notin $l1
 177 
      overflow=yes
157 
    k=no
 - 
 
158 
    !break
 178 
      !break
159 
   !endif
 - 
 
160 
  !next w
 - 
 
161 
  !!delete condition on language in a superclass
 - 
 
162 
  !if (/ isin $code or $c1>9999) and ($la=$module_language or $class_type!=) and\
 - 
 
163 
   ($code!=$wims_class or ($wims_user!=supervisor and $type=supervisor)) and \
 - 
 
164 
   $k = yes
 - 
 
165 
    !if $ty isin 24
 - 
 
166 
      sclasses=!append line $l to $sclasses
 - 
 
167 
      !advance sccnt
 - 
 
168 
    !else
 - 
 
169 
      classes=!append line $l to $classes
 - 
 
170 
      !advance clcnt
 - 
 
171 
    !endif
 179 
    !endif
- 
 
 180 
  !next i
- 
 
 181 
  !if $wims_user!=$empty and $wims_supertype iswordof 2 4
- 
 
 182 
    sccnt=0
172 
  !endif
 183 
  !endif
173 
  !if $limited = yes and $clcnt+$sccnt > $listlim
 - 
 
174 
   overflow=yes
 - 
 
175 
   !break
 - 
 
176 
  !endif
 - 
 
177 
 !next i
 - 
 
178 
 !if $wims_user!=$empty and $wims_supertype iswordof 2 4
 - 
 
179 
  sccnt=0
 - 
 
180 
 !endif
 - 
 
181 
!endif
 184 
!endif
182 
 
 185 
 
183 
!if $type iswordof authparticipant authsupervisor
 186 
!if $type iswordof authparticipant authsupervisor
184 
 !reset class_defined
 187 
 !reset class_defined
185 
 class=!text remove . in $class
 188 
 class=!text remove . in $class