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 |