Subversion Repositories wimsdev

Rev

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

Rev 14868 Rev 16615
Line 141... Line 141...
141
      class_parent=$wims_superclass/$parentcheck
141
      class_parent=$wims_superclass/$parentcheck
142
    !endif
142
    !endif
143
  !endif
143
  !endif
144
  !default wims_realuser=$wims_user
144
  !default wims_realuser=$wims_user
145
  !read adm/class/userdef logclasses,$wims_class,$wims_realuser
145
  !read adm/class/userdef logclasses,$wims_class,$wims_realuser
146
  supervisable=!defof user_supervisable in $userdef
146
  supervisable=!defof user_supervisable,user_forcechpwd in $userdef
-
 
147
  !distribute item $supervisable into supervisable forcechpwd
-
 
148
  !if $wims_realuser!=supervisor and $forcechpwd=yes
-
 
149
    test=!fileexists wimshome/sessions/$wims_session/var
-
 
150
    !if $test!=yes
-
 
151
      !writefile wimshome/$wims_sesdir/var REMOTE_ADDR=$httpd_REMOTE_ADDR\
-
 
152
HTTP_REFERER=$httpd_HTTP_REFERER\
-
 
153
QUERY_STRING=\
-
 
154
HTTP_USER_AGENT=$httpd_HTTP_USER_AGENT\
-
 
155
HTTP_COOKIE=$httpd_HTTP_COOKIE\
-
 
156
w_cmd=new\
-
 
157
w_lang=$class_lang\
-
 
158
w_module=$module\
-
 
159
w_session=$session\
-
 
160
w_special_parm=\
-
 
161
w_special_parm2=\
-
 
162
w_useropts=$wims_useropts\
-
 
163
w_wims_session=$wims_session\
-
 
164
w_wims_subsession=$wims_subsession\
-
 
165
w_wims_window=$wims_window\
-
 
166
w_worksheet=\
-
 
167
w_wims_exo=\
-
 
168
w_wims_isexam=\
-
 
169
w_wims_ismanager=$wims_ismanager\
-
 
170
w_wims_mode=$wims_mode\
-
 
171
w_wims_module_start_time=\
-
 
172
w_wims_protocol=$wims_protocol\
-
 
173
w_wims_req_time=$wims_req_time\
-
 
174
w_wims_scorereg=\
-
 
175
w_wims_session_serial=$wims_session_serial\
-
 
176
w_wims_session_start_time=$wims_session_start_time\
-
 
177
w_wims_sheet=
-
 
178
    !endif
-
 
179
    !restart module=adm/class/passwd&+job=user
-
 
180
  !endif
147
  !if $class_type>=2
181
  !if $class_type>=2
148
    !if $class_type=4
182
    !if $class_type=4
149
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
183
      subclasses=!record 0 of wimshome/log/classes/$wims_class/classes
150
      subclasses=!column 1 of $subclasses
184
      subclasses=!column 1 of $subclasses
151
      subclasses=!makelist $wims_class/x for x in $subclasses
185
      subclasses=!makelist $wims_class/x for x in $subclasses
Line 199... Line 233...
199
    subclasscnt1=!itemcnt $subclass1
233
    subclasscnt1=!itemcnt $subclass1
200
    subclasscnt2=!itemcnt $subclass2
234
    subclasscnt2=!itemcnt $subclass2
201
    subclasscnt3=!itemcnt $subclass3
235
    subclasscnt3=!itemcnt $subclass3
202
  !endif
236
  !endif
203
!endif
237
!endif
-
 
238
 
204
!readproc ./var.cdt
239
!readproc ./var.cdt
205
!read ./otherclass.proc
240
!read ./otherclass.proc
206
!if $wims_sheet=$empty
241
!if $wims_sheet=$empty
207
  !!! should be on the complete home page
242
  !!! should be on the complete home page
208
  !!distribute items no,no into wims_ariane_self,wims_ariane_home
243
  !!distribute items no,no into wims_ariane_self,wims_ariane_home