Subversion Repositories wimsdev

Rev

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

Rev 12066 Rev 12070
Line 24... Line 24...
24 
 !endif
 24 
 !endif
25 
!endif
 25 
!endif
26 
 
 26 
 
27 
!if $wims_user=supervisor and $getuser!=supervisor
 27 
!if $wims_user=supervisor and $getuser!=supervisor
28 
 user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
 28 
 user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
- 
 
 29 
!endif
- 
 
 30 
 
- 
 
 31 
!if $reg!=$empty or $job2=photoerase
- 
 
 32 
 class_pass=!defof class_password in wimshome/log/classes/$wims_class/.def
- 
 
 33 
 !if $wims_user!=supervisor and $passcheck!=$class_pass
- 
 
 34 
  error=bad_classpass
- 
 
 35 
  !exit
- 
 
 36 
 !endif
29 
!endif
 37 
!endif
30 
 
 38 
 
31 
!if photoerase=$job2
 39 
!if photoerase=$job2
32 
    up_photofile=no
 40 
    up_photofile=no
33 
    up_photourl=
41 
    up_photourl=
Line 38... Line 46...
38 
 
 46 
 
39 
!! make list of name of classes,program etc...
 47 
!! make list of name of classes,program etc...
40 
!readproc mksubclslist.proc
 48 
!readproc mksubclslist.proc
41 
 
 49 
 
42 
!if $reg!=$empty
 50 
!if $reg!=$empty
43 
 class_pass=!defof class_password in wimshome/log/classes/$wims_class/.def
 - 
 
44 
 !if $wims_user!=supervisor and $passcheck!=$class_pass
 - 
 
45 
  error=bad_classpass
 - 
 
46 
  !exit
 - 
 
47 
 !endif
 - 
 
48 
 
 - 
 
49 
 up_password=
 51 
 up_password=
50 
 replacelist=regnum,comments,photourl,email,external_auth,photofile
 52 
 replacelist=regnum,comments,photourl,email,external_auth,photofile
51 
 !for r in $replacelist
 53 
 !for r in $replacelist
52 
    !default up_$r=$(user_$r)
 54 
    !default up_$r=$(user_$r)
53 
 !next r
 55 
 !next r