Subversion Repositories wimsdev

Rev

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

Rev 17872 Rev 17978
Line 1... Line 1...
1
!if \ isin $parm1
1
!if \ isin $parm1
2
  !for p in 1
2
  !for p in 1
3
    !set parm$p=!slashsubst $(parm$p)
3
    !set parm$p=!slashsubst $(parm$p)
4
  !next p
4
  !next p
5
!endif
5
!endif
-
 
6
 
6
!set add=$parm1
7
!set add=$parm1
7
!if ? isin $add
8
!if ? isin $add
8
  !set add=!translate internal ? to , in $add
9
  !set add=!translate internal ? to , in $add
9
  !set add=!item 2 of $add
10
  !set add=!item 2 of $add
10
!endif
11
!endif
11
!set eq==
12
!set eq==
12
!!for exercices and tools in a class, syntax of the form sheet_exercise/numero_exercise
13
!!for exercices and tools in a class, syntax of the form numero_sheet/numero_exercise
13
!if $eq notin $add and $wims_class>0 and / isin $add \
14
!if $eq notin $add and $wims_class>0 and / isin $add \
14
    and $prim iswordof exercise tool
15
    and $prim iswordof exercise tool
15
  !set add=!translate internal / to $ $ in $add
16
  !set add=!translate internal / to $ $ in $add
16
  !distribute words $add into sh_,ex_
17
  !distribute words $add into sh_,ex_
17
  !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
18
  !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_