Subversion Repositories wimsdev

Rev

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

Rev 10640 Rev 10651
Line 1... Line 1...
1 
$U_gotoclass3
 1 
 
2 
!if $wims_superclass=$empty
 2 
!if $wims_superclass=$empty
3 
  !let wims_superclass=$wims_class
 3 
  !let wims_superclass=$wims_class
4 
!endif
 4 
!endif
5 
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
 5 
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
6 
!set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
 6 
!set user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
- 
 
 7 
!set levels=!record 0 of wimshome/log/classes/$wims_class/levels
- 
 
 8 
!set levelcnt=!linecnt $levels
7 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
 9 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
8 
!set classcnt=!linecnt $classes
 10 
!set classcnt=!linecnt $classes
9 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
 11 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
10 
!set progcnt=!linecnt $progs
 12 
!set progcnt=!linecnt $progs
11 
 
 13 
 
12 
!if $classcnt+$progcnt>=1
 14 
!!if $classcnt+$progcnt>=1
13 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
 15 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
14 
 !set coursecnt=!linecnt $courses
 16 
 !set coursecnt=!linecnt $courses
15 
!endif
 17 
!!endif
16 
!set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
 18 
!set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
17 
!set icoursecnt=!linecnt $icourses
 19 
!set icoursecnt=!linecnt $icourses
18 
!if $[$classcnt+$progcnt+$coursecnt+$icourses]=0
 - 
 
19 
  !goto nosubclass
 - 
 
20 
!endif
 - 
 
21 
 
 20 
 
- 
 
 21 
!!add the compulsory courses
- 
 
 22 
 
- 
 
 23 
!for cls in $user_participate
- 
 
 24 
  !set sub_=!record 0 of wimshome/log/classes/$cls/courses
- 
 
 25 
  !set sub_cnt=!linecnt $sub_
- 
 
 26 
  !if $sub_cnt>0
- 
 
 27 
     !for k_=1 to $sub_cnt
22 
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user
 28 
       !set parent_c=!defof class_parent in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.def
23 
!if $wims_user=supervisor and $wims_realuser=supervisor
 29 
       !set split=!replace internal / by , in $(sub_[$k_;1])
24 
  !set user_supervise=!column 1 of $classes\
 30 
       !set progstyle=!defof class_progstyle in wimshome/log/classes/$wims_superclass/$(split[1])/$(split[3])/.def
25 
  $progs\
 31 
       !if optional iswordof $progstyle
- 
 
 32 
          !set inscrit=!defof user_class in wimshome/log/classes/$wims_superclass/$(sub_[$k_;1])/.users/$wims_user
26 
  $courses
 33 
       !endif
- 
 
 34 
       !if mandatory iswordof $progstyle or $(split[1])/$(split[2]) iswordof $inscrit
27 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
 35 
          !set user_participate=!append item $wims_superclass/$(sub_[$k_;1]) to $user_participate
- 
 
 36 
       !endif
- 
 
 37 
     !next
28 
!endif
 38 
  !endif
- 
 
 39 
!next
29 
 
 40 
 
30 
!! ----------- definition des droits de connexion supervisor
 - 
 
31 
<br/>
 - 
 
32 
!let compsup=$empty
 41 
!let compsup=$empty
33 
!for cls in $user_supervise
 42 
!for cls in $user_participate
34 
 !let tmp=!replace internal / by , in $cls
 43 
 !let tmp=!replace internal / by , in $cls
35 
 !let nb=!itemcnt $tmp
 44 
 !let nb=!itemcnt $tmp
36 
 !for l=2 to $nb
 45 
 !for l=2 to $nb
37 
  !let t=!replace internal , by / in $(tmp[1 to $l])
 46 
  !let t=!replace internal , by / in $(tmp[1 to $l])
38 
  !let compsup=!append line $t to $compsup
 47 
  !let compsup=!append line $t to $compsup
Line 40... Line 49...
40 
!next cls
 49 
!next cls
41 
!let compsup=!sh echo "$compsup" | sort | uniq;
 50 
!let compsup=!sh echo "$compsup" | sort | uniq;
42 
!let compsup=!lines2items $compsup
 51 
!let compsup=!lines2items $compsup
43 
!let compsup=!nospace $compsup
 52 
!let compsup=!nospace $compsup
44 
 
 53 
 
45 
!let tab=0
 - 
 
46 
!for cls in $compsup
 54 
!read classgraph.phtml participate,$compsup
47 
 !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
 - 
 
48 
 !let t=!positionof item $(don[1]) in level,class,program,course
 - 
 
49 
 !if $t=3
 - 
 
50 
  !let ta=2
 - 
 
51 
 !else
 - 
 
52 
  !let ta=$t
 - 
 
53 
 !endif
 - 
 
54 
 !if $tab!=$ta
 - 
 
55 
  !if $tab>$ta
 - 
 
56 
   !for k=$ta+1 to $tab
 - 
 
57 
    </ul>
 - 
 
58 
   !next k
 - 
 
59 
  !else
 - 
 
60 
   !for k=$tab+1 to $ta
 - 
 
61 
    <ul class="wims_subclasses">
 - 
 
62 
   !next k
 - 
 
63 
  !endif
 - 
 
64 
 !endif
 - 
 
65 
 !let tab=$ta
 - 
 
66 
 !if $t=4
 - 
 
67 
  !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
 - 
 
68 
  !if $tmp=program
 - 
 
69 
   !let t=5
 - 
 
70 
  !endif
 - 
 
71 
 !endif
 - 
 
72 
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
 - 
 
73 
 !if $cls notitemof $user_supervise
 - 
 
74 
  $(don[2])
 - 
 
75 
 !else
 - 
 
76 
  !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
 - 
 
77 
 !endif
 - 
 
78 
 ($(don[3])) </span> </li>
 - 
 
79 
!next cls
 - 
 
80 
!for k=1 to $tab
 - 
 
81 
 </ul>
 - 
 
82 
!next k
 -