Subversion Repositories wimsdev

Rev

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

Rev 4176 Rev 4365
Line 46... Line 46...
46 
 ### contient les classes auxquelles est inscrit l'étudiant et les cours non obligatoires
 46 
 ### contient les classes auxquelles est inscrit l'étudiant et les cours non obligatoires
47 
 test=!items2words $test
 47 
 test=!items2words $test
48 
 !if $qclass iswordof $test
 48 
 !if $qclass iswordof $test
49 
    !exit
 49 
    !exit
50 
 !endif
 50 
 !endif
- 
 
 51
51 
 class_typename=!defof class_typename in $classdeffile
 52 
 class_typename=!defof class_typename in $classdeffile
- 
 
 53
- 
 
 54 
 !if $class_typename iswordof class and $qclass notwordof $test
- 
 
 55 
 	error=Sorry, this user does not participates to this subclass.
- 
 
 56 
 	!exit
- 
 
 57 
 !endif
- 
 
 58
52 
 !if $class_typename iswordof program and (mandatory notwordof $class_progstyles or $class_progstyles=$empty)
 59 
 !if $class_typename iswordof program and (mandatory notwordof $class_progstyles or $class_progstyles=$empty)
53 
 ###si le programme n'est pas obligatoire, user_participate contient ce qu'il faut
 60 
 ###si le programme n'est pas obligatoire, user_participate contient ce qu'il faut
54 
     qlist=!record 0 of wimshome/log/classes/$qclass/courses
 61 
     qlist=!record 0 of wimshome/log/classes/$qclass/courses
55 
     qcourses=!linecnt $qlist
 62 
     qcourses=!linecnt $qlist
56 
     !for q_c=1 to $qcourses
 63 
     !for q_c=1 to $qcourses
Line 65... Line 72...
65 
        !endif
 72 
        !endif
66 
        !exit
 73 
        !exit
67 
      !endif
 74 
      !endif
68 
     !next
 75 
     !next
69 
 !endif
 76 
 !endif
- 
 
 77
- 
 
 78