Subversion Repositories wimsdev

Rev

Rev 9506 | Rev 10401 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5020 bpr 1 
!read adm/class/initclass $wims_class
1421 bpr 2 
 
1467 bpr 3 
!if $directcnt>0
10351 bpr 4 
 !for i_=1 to $directcnt
1304 bpr 5 
  !set cl=!word 1 of $(directlist[$i_])
10351 bpr 6 
  !if /0/ notin $(cl)/
1421 bpr 7 
    !set type_=!defof class_typename in wimshome/log/classes/$cl/.def
8 
    !set direct$type_=!append item $(directlist[$i_]) to $(direct$type_)
1304 bpr 9 
  !else
10 
   !set directtest=!append item $(directlist[$i_]) to $directtest
11 
  !endif
10351 bpr 12 
 !next
13 
!set directlist2=!items2lines $directlist
14 
!set directlist2=!lines2rows $directlist2
15 
!set directlist2=!words2items $directlist2
5036 bpr 16 
 
1741 bpr 17 
$name_direct:
10351 bpr 18 
 
19 
<div class="spacer">
20 
!read classgraph $directlist2
21 
</div>
22 
!! <table class="wims_classes_direct">
23 
!! !for typ in portal,group,level,class,course,program,test
24 
!!  !set nstyle=wims_classes_direct_$typ
25 
!!  !set ntype_=$typ
26 
!!  !set ntype_ = !replace internal program by $(CL_Name[3]) in $ntype_
27 
!!  !set ntype_ = !replace internal level by $(CL_Name[1])  in $ntype_
28 
!!  !set ntype_ = !replace internal class by $(CL_Name[2])  in $ntype_
29 
!!  !set ntype_ = !replace internal course by $(CL_Name[4]) in $ntype_
30 
!!  !set ntype_ = !replace internal portal by $(CL_Name[6]) in $ntype_
31 
!!  !set ntype_ = !replace internal group by $(CL_Name[6]) in $ntype_
32 
!!  !set ntype_ = !replace internal test by $(CL_Name[7]) in $ntype_
33 
!!  !for cl in $(direct$typ)
34 
!!   !distribute words $cl into c_,u_
35 
!!   !set n_=!defof class_institution, class_description in\
36 
!! wimshome/log/classes/$c_/.def
37 
!!   !if $u_=supervisor
38 
!!  !set t_=supervisor
39 
!!   !if $c_ notwordof $wims_supervise and $wims_realuser!=$wims_user
40 
!!     !goto out
41 
!!    !endif
42 
!!   !else
43 
!!    !set t_=$type
44 
 !!  !endif
45 
!!  <tr class="$nstyle"><td class="wims_classes_direct_type">$ntype_</td>
46 
!!  <td class="wims_classes_direct_name">
47 
!!  !set u__=$u_
48 
!!   !if $auth_method isitemof $auth_method_list
49 
!!     !if $u_ != supervisor
50 
!!      !readproc adm/class/userdef classes,$c_,$u_
51 
!!      !set u__=!defof user_external_auth in $userdef
52 
!!     !endif
53 
!!   !endif
54 
!!   !href cmd=reply&type=auth$t_&class=$c_&auth_user=$u__ $n_
55 
!!   </td><td class="tt">$u__</td>
56 
!!   </tr>
4109 bpr 57 
:out
10351 bpr 58 
!! !reset c_ u_ t_
59 
!!  !next cl
60 
!! !next typ
61 
!! </table>
23 reyssat 62 
 !if $wims_user=supervisor
9506 bpr 63 
   $name_text3
64 
 !else
65 
   $name_text1
23 reyssat 66 
 !endif
67 
!else
68 
 !if $wims_user=supervisor
9506 bpr 69 
  $name_text2
23 reyssat 70 
 !else
9506 bpr 71 
  $name_noaccount
23 reyssat 72 
 !endif
73 
!endif
74