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