Subversion Repositories wimsdev

Rev

Rev 16004 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16004 Rev 16436
Line 118... Line 118...
118 
wims_participate=$user_participate\
 118 
wims_participate=$user_participate\
119 
wims_superclass=$class_superclass\
 119 
wims_superclass=$class_superclass\
120 
wims_supervise=$user_supervise\
 120 
wims_supervise=$user_supervise\
121 
wims_supertype=$class_type\
 121 
wims_supertype=$class_type\
122 
wims_typename=$class_typename
 122 
wims_typename=$class_typename
- 
 
 123 
 
- 
 
 124 
!! for supervisors accessing via adm/raw
- 
 
 125 
!! ./adm/class/authprep needs the variable sup_secure to be set
- 
 
 126 
!!
- 
 
 127 
!! (code from modules/home/var.auth and modules/adm/class/classes/var.auth)
- 
 
 128 
!if $quser=supervisor
- 
 
 129 
  sech=$class_secure
- 
 
 130 
  sech=!trim $sech
- 
 
 131 
  !if $sech=$empty
- 
 
 132 
    t=0
- 
 
 133 
  !else
- 
 
 134 
    t=!checkhost $sech
- 
 
 135 
    !if $t<1
- 
 
 136 
      t=-1
- 
 
 137 
    !endif
- 
 
 138 
  !endif
- 
 
 139 
  sup_secure=$t
- 
 
 140 
!else
- 
 
 141 
  !read ./adm/class/raftest
- 
 
 142 
  !if $raftest>$lastallow
- 
 
 143 
    !exit
- 
 
 144 
  !endif
- 
 
 145 
  sup_secure=-1
- 
 
 146 
!endif
123 
 
 147 
 
124 
!read ./adm/class/authprep $wims_class,$quser
 148 
!read ./adm/class/authprep $wims_class,$quser
125 
!writefile wimshome/$wims_sesdir/var.stat $classdef
 149 
!writefile wimshome/$wims_sesdir/var.stat $classdef
126 
 
 150 
 
127 
!! the following not needed with lines above
 151 
!! the following not needed with lines above