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_