Subversion Repositories wimsdev

Rev

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

Rev 12785 Rev 14432
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 
!set add=$parm1
 6 
!set add=$parm1
7 
!if ? isin $add
 7 
!if ? isin $add
8 
  !set add=!translate internal ? to , in $add
 8 
  !set add=!translate internal ? to , in $add
9 
  !set add=!item 2 of $add
 9 
  !set add=!item 2 of $add
10 
!endif
 10 
!endif
11 
!set eq==
 11 
!set eq==
12 
!if $eq notin $add and $wims_class>0 and / isin $add \
 12 
!if $eq notin $add and $wims_class>0 and / isin $add \
13 
          and $prim iswordof exercise tool
 13 
    and $prim iswordof exercise tool
14 
  !set add=!translate internal / to $ $ in $add
 14 
  !set add=!translate internal / to $ $ in $add
15 
  !distribute words $add into sh_,ex_
 15 
  !distribute words $add into sh_,ex_
16 
  !! ------------------------------------ ces 4 lignes sont à supprimées lorsqu-il est certain qu'elle ne sont plus indispensable lors des accès à primitive.phtml) le 23/11/2007 FG
 16 
  !! ------------------------------------ ces 4 lignes sont à supprimées lorsqu-il est certain qu'elle ne sont plus indispensable lors des accès à primitive.phtml) le 23/11/2007 FG
17 
  !! !set l_=!record $ex_ of wimshome/log/classes/$wims_class/sheets/.sheet$sh_
 17 
  !! !set l_=!record $ex_ of wimshome/log/classes/$wims_class/sheets/.sheet$sh_
18 
  !! !distribute lines $l_ into m_,p_,a_,b_,t_,d_
 18 
  !! !distribute lines $l_ into m_,p_,a_,b_,t_,d_