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_