Subversion Repositories wimsdev

Rev

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

Rev 53 Rev 201
Line 1... Line -...
1 
 
 - 
 
2 
!if \ isin $parm1
 1 
!if \ isin $parm1
3 
 !for p in 1
 2 
 !for p in 1
4 
  !set parm$p=!slashsubst $(parm$p)
 3 
  !set parm$p=!slashsubst $(parm$p)
5 
 !next p
 4 
 !next p
6 
!endif
 5 
!endif
Line 12... Line 11...
12 
!set eq==
 11 
!set eq==
13 
!if $eq notin $add and $wims_class>0 and / isin $add \
 12 
!if $eq notin $add and $wims_class>0 and / isin $add \
14 
        and $prim iswordof exercise tool
 13 
        and $prim iswordof exercise tool
15 
 !set add=!translate internal / to $ $ in $add
 14 
 !set add=!translate internal / to $ $ in $add
16 
 !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
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_
19 
 !set m_exotitle=$t_
 19 
!! !set m_exotitle=$t_
20 
 !set m_exodescription=$d_
 20 
!! !set m_exodescription=$d_
- 
 
 21 
!! ------------------------------------------------
- 
 
 22 
 !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
21 
 !set prompt=!item 2 to -1 of $parms
 23 
 !set prompt=!item 2 to -1 of $parms
22 
 !default prompt=$t_
 24 
 !default prompt=$t_
23 
 !href cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
 25 
 !href session=$wims_session&cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
24 
 !exit
 26 
 !exit
25 
!endif
 27 
!endif
26 
!set add=!translate internal & to $ $ in $add
 28 
!set add=!translate internal & to $ $ in $add
27 
!set n=!wordcnt $add
 29 
!set n=!wordcnt $add
28 
!reset nadd,lmod,lses,lcmd
 30 
!reset nadd,lmod,lses,lcmd