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