!if \ isin $parm1
!for p in 1
!set parm$p=!slashsubst $(parm$p)
!endif
!set add=$parm1
!if ? isin $add
!set add=!translate internal ? to , in $add
!set add=!item 2 of $add
!endif
!set eq==
!if $eq notin $add and $wims_class>0 and / isin $add \
and $prim iswordof exercise tool
!set add=!translate internal / to $ $ in $add
!distribute words $add into sh_,ex_
!! ------------------------------------ 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
!! !set l_=!record $ex_ of wimshome/log/classes/$wims_class/sheets/.sheet$sh_
!! !distribute lines $l_ into m_,p_,a_,b_,t_,d_
!! !set m_exotitle=$t_
!! !set m_exodescription=$d_
!! ------------------------------------------------
!distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
!set prompt=!item 2 to -1 of $parms
!default prompt=$t_
!href session=$wims_session&cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
!exit
!endif
!set add=!translate internal & to $ $ in $add
!set n=!wordcnt $add
!reset nadd,lmod,lses,lcmd
!for i=1 to $n
!set l=!word $i of $add
!set ll=!translate = to , in $l
!distribute items $ll into l1,l2
!if $l1=cmd and $l2 iswordof intro help close
!set lcmd=$l2
!endif
!if $l1=module
!set lmod=$l2
!endif
!if $l1 notwordof module cmd session
!set nadd=$nadd $l
!endif
!next i
!default lmod=home
!default lcmd=new
!set nadd=!translate internal $ $ to & in $nadd
!set prompt=!item 2 to -1 of $parms
!default prompt=!module title $lmod
!default prompt=Unknown activity
!href module=$lmod&cmd=$lcmd$nadd $prompt