Subversion Repositories wimsdev

Rev

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

Rev 201 Rev 12785
Line 8... Line 8...
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_
19 
!! !set m_exotitle=$t_
 19 
  !! !set m_exotitle=$t_
20 
!! !set m_exodescription=$d_
 20 
  !! !set m_exodescription=$d_
21 
!! ------------------------------------------------
 21 
  !! ------------------------------------------------
22 
 !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
 22 
  !distribute lines $(m_infoexo$ex_) into m_,p_,a_,b_,t_,d_
23 
 !set prompt=!item 2 to -1 of $parms
 23 
  !set prompt=!item 2 to -1 of $parms
24 
 !default prompt=$t_
 24 
  !default prompt=$t_
25 
 !href session=$wims_session&cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
 25 
  !href session=$wims_session&cmd=new&module=$m_&worksheet=$sh_&$p_ $prompt
26 
 !exit
 26 
  !exit
27 
!endif
 27 
!endif
28 
!set add=!translate internal & to $ $ in $add
 28 
!set add=!translate internal & to $ $ in $add
29 
!set n=!wordcnt $add
 29 
!set n=!wordcnt $add
30 
!reset nadd,lmod,lses,lcmd
 30 
!reset nadd,lmod,lses,lcmd
31 
!for i=1 to $n
 31 
!for i=1 to $n
32 
 !set l=!word $i of $add
 32 
  !set l=!word $i of $add
33 
 !set ll=!translate = to , in $l
 33 
  !set ll=!translate = to , in $l
34 
 !distribute items $ll into l1,l2
 34 
  !distribute items $ll into l1,l2
35 
 !if $l1=cmd and $l2 iswordof intro help close
 35 
  !if $l1=cmd and $l2 iswordof intro help close
36 
    !set lcmd=$l2
 36 
    !set lcmd=$l2
37 
 !endif
 37 
  !endif
38 
 !if $l1=module
 38 
  !if $l1=module
39 
   !set lmod=$l2
 39 
    !set lmod=$l2
40 
 !endif
 40 
  !endif
41 
 !if $l1 notwordof module cmd session
 41 
  !if $l1 notwordof module cmd session
42 
   !set nadd=$nadd $l
 42 
    !set nadd=$nadd $l
43 
 !endif
 43 
  !endif
44 
!next i
 44 
!next i
45 
!default lmod=home
 45 
!default lmod=home
46 
!default lcmd=new
 46 
!default lcmd=new
47 
!set nadd=!translate internal $ $ to & in $nadd
 47 
!set nadd=!translate internal $ $ to & in $nadd
48 
!set prompt=!item 2 to -1 of $parms
 48 
!set prompt=!item 2 to -1 of $parms
49 
!default prompt=!module title $lmod
 49 
!default prompt=!module title $lmod
50 
 
 50 
 
51 
!default prompt=Unknown activity
 51 
!default prompt=Unknown activity
52 
 
 52 
 
53 
!href module=$lmod&cmd=$lcmd$nadd $prompt
 53 
!href module=$lmod&cmd=$lcmd$nadd $prompt
54 
 
 -