Subversion Repositories wimsdev

Rev

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

Rev 13219 Rev 13227
Line 32... Line 32...
32 
!endif
 32 
!endif
33 
!if $wims_user=supervisor and $getuser!=supervisor
 33 
!if $wims_user=supervisor and $getuser!=supervisor
34 
  user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
 34 
  user_vars=!sh grep -E '^!set user__' $Userdef | sed 's/^!set user__//g'
35 
!endif
 35 
!endif
36 
 
 36 
 
37 
!if $reg!=$empty or $job2=photoerase
 37 
!if $job2=photoerase
38 
  !if $wims_user!=supervisor and $allowchange!=yes
 38 
  !if $wims_user=supervisor or $allowchange=yes
39 
    !if $job2=photoerase
 39 
    up_photourl=
40 
      !restart module=adm/class/usermanage&job=getclasspwd&job2=photoerase
 40 
    !sh rm -f $wims_home/log/classes/$photodir/photoboard/$getuser
41 
    !else
 41 
    !reset reg
42 
      !restart module=adm/class/usermanage&job=getclasspwd
 42 
    replacelist=photourl
43 
    !endif
 43 
  !else
- 
 
 44 
    !reset job2,reg
44 
  !endif
 45 
  !endif
45 
!endif
 - 
 
46 
 
 - 
 
47 
!if photoerase=$job2
 - 
 
48 
  up_photourl=
 - 
 
49 
  !sh rm -f $wims_home/log/classes/$photodir/photoboard/$getuser
 - 
 
50 
  !reset reg
 - 
 
51 
  replacelist=photourl
 - 
 
52 
!endif
 46 
!endif
53 
 
 47 
 
54 
!! make list of name of classes,program etc...
 48 
!! make list of name of classes,program etc...
55 
!readproc mksubclslist.proc
 49 
!readproc mksubclslist.proc
56 
 
 50