Subversion Repositories wimsdev

Rev

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

Rev 9682 Rev 12330
Line 4... Line 4...
4
!endif
4
!endif
5
 
5
 
6
docu=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
6
docu=!record $sdoc of wimshome/log/classes/$wims_class/doc/.docindex
7
autosheet=!line 7 of $docu
7
autosheet=!line 7 of $docu
8
!if $autosheet!=$empty
8
!if $autosheet!=$empty
9
 !exit
9
  !exit
10
!endif
10
!endif
11
dir=!line 1 of $docu
11
dir=!line 1 of $docu
12
 
12
 
13
donnees=!sh grep -a primitives.phtml $wims_home/public_html/modules/$dir/doc/1/*.def | grep exercise
13
donnees=!sh grep -a primitives.phtml $wims_home/public_html/modules/$dir/doc/1/*.def | grep exercise
14
nbexo=!linecnt $donnees
14
nbexo=!linecnt $donnees
15
donsh=$empty
15
donsh=$empty
16
!for k=1 to $nbexo
16
!for k=1 to $nbexo
17
 exodon=!line $k of $donnees
17
  exodon=!line $k of $donnees
18
 test=!item 2 of $exodon
18
  test=!item 2 of $exodon
19
 !if exercise iswordof $test
19
  !if exercise iswordof $test
20
  liniparm=!item -2 of $exodon
20
    liniparm=!item -2 of $exodon
21
  title=!item -1 of $exodon
21
    title=!item -1 of $exodon
22
  !read getparm $liniparm module,worksheet,cmd
22
    !read getparm $liniparm module,worksheet,cmd
23
  test=!getdef category in wimshome/public_html/modules/$get_module/INDEX
23
    test=!getdef category in wimshome/public_html/modules/$get_module/INDEX
24
  !if exercise isin $test or oef isin $test
24
    !if exercise isin $test or oef isin $test
25
   !for name in cmd,worksheet,module
25
      !for name in cmd,worksheet,module
26
    liniparm=!replace internal $name=$(get_$name) by $empty in $liniparm
26
        liniparm=!replace internal $name=$(get_$name) by $empty in $liniparm
27
   !next name
27
      !next name
28
   liniparm=!singlespace $liniparm
28
      liniparm=!singlespace $liniparm
29
   liniparm=!replace internal & by , in $liniparm
29
      liniparm=!replace internal & by , in $liniparm
30
   liniparm=!nonempty item $liniparm
30
      liniparm=!nonempty item $liniparm
31
   liniparm=!replace internal , by & in $liniparm
31
      liniparm=!replace internal , by & in $liniparm
32
   helpcmd=!item 1 of $exodon
32
      helpcmd=!item 1 of $exodon
33
   helpcmd=!replace internal : by , in $helpcmd
33
      helpcmd=!replace internal : by , in $helpcmd
34
   helpcmd=!replace internal / by , in $(helpcmd[1])
34
      helpcmd=!replace internal / by , in $(helpcmd[1])
35
   helpcmd=!replace internal . by , in $(helpcmd[-1])
35
      helpcmd=!replace internal . by , in $(helpcmd[-1])
36
   tmp=:$get_module\
36
      tmp=:$get_module\
37
$liniparm\
37
$liniparm\
38
10\
38
10\
39
1\
39
1\
40
$title\
40
$title\
41
\
41
\
42
\
42
\
43
\
43
\
44
module=$dir&block=$(helpcmd[1])&cmd=new,10
44
module=$dir&block=$(helpcmd[1])&cmd=new,10
45
 
45
 
46
   donsh=!append line $tmp to $donsh
46
      donsh=!append line $tmp to $donsh
-
 
47
    !endif
47
  !endif
48
  !endif
48
 !endif
-
 
49
!next k
49
!next k
50
 
50
 
51
!if $donsh=$empty
51
!if $donsh=$empty
52
 error=noexo
52
 error=noexo
53
 wims_menu_items=!append line back2,1,cmd=reply&job=prop to $wims_menu_items
53
 wims_menu_items=!append line back2,1,cmd=reply&job=prop to $wims_menu_items