Subversion Repositories wimsdev

Rev

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

Rev 9633 Rev 9644
Line 7... Line 7...
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 
donnees=!sh grep -a primitives.phtml $wims_home/public_html/modules/$dir/doc/1/*.def | grep -a exercise
 12 
donnees=!sh grep -a primitives.phtml $wims_home/public_html/modules/$dir/doc/1/*.def
13 
nbexo=!linecnt $donnees
 13 
nbexo=!linecnt $donnees
14 
donsh=$empty
 14 
donsh=$empty
15 
!for k=1 to $nbexo
 15 
!for k=1 to $nbexo
16 
 exodon=!line $k of $donnees
 16 
 exodon=!line $k of $donnees
- 
 
 17 
 test=!item 2 of $exodon
- 
 
 18 
 !if exercise iswordof $test
17 
 iniparm=!item -2 of $exodon
 19 
  liniparm=!item -2 of $exodon
18 
 title=!item -1 of $exodon
 20 
  title=!item -1 of $exodon
19 
 !read getparm $iniparm module,worksheet,cmd
 21 
  !read getparm $liniparm module,worksheet,cmd
- 
 
 22 
  test=!getdef category in wimshome/public_html/modules/$get_module/INDEX
- 
 
 23 
  !if exercise isin $test or oef isin $test
20 
 !for name in cmd,worksheet,module
 24 
   !for name in cmd,worksheet,module
21 
  iniparm=!replace internal $name=$(get_$name) by $empty in $iniparm
 25 
    liniparm=!replace internal $name=$(get_$name) by $empty in $liniparm
22 
 !next name
 26 
   !next name
23 
 iniparm=!singlespace $iniparm
 27 
   liniparm=!singlespace $liniparm
24 
 iniparm=!replace internal & by , in $iniparm
 28 
   liniparm=!replace internal & by , in $liniparm
25 
 iniparm=!nonempty item $iniparm
 29 
   liniparm=!nonempty item $liniparm
26 
 iniparm=!replace internal , by & in $iniparm
 30 
   liniparm=!replace internal , by & in $liniparm
27 
 !if $iniparm!=$empty
 - 
 
28 
  tmp=:$get_module\
 31 
   tmp=:$get_module\
29 
$iniparm\
 32 
$liniparm\
30 
10\
 33 
10\
31 
1\
 34 
1\
32 
$title\
 35 
$title\
33 
\
 36 
\
34 
 
 37 
 
35 
 donsh=!append line $tmp to $donsh
 38 
   donsh=!append line $tmp to $donsh
- 
 
 39 
  !endif
36 
 !endif
 40 
 !endif
37 
!next k
 41 
!next k
- 
 
 42 
 
- 
 
 43 
!if $donsh=$empty
- 
 
 44 
 error=noexo
- 
 
 45 
 wims_menu_items=!append line back2,1,cmd=reply&job=prop to $wims_menu_items
- 
 
 46 
 !exit
- 
 
 47 
!endif
38 
 
 48 
 
39 
autosheet=$[$nbsheet+1]
 49 
autosheet=$[$nbsheet+1]
- 
 
 50 
 
40 
!writefile wimshome/log/classes/$wims_class/sheets/.sheet$autosheet $donsh
 51 
!writefile wimshome/log/classes/$wims_class/sheets/.sheet$autosheet $donsh
41 
title=!line 4 of $docu
 52 
title=!line 4 of $docu
42 
date=!defof class_expiration in wimshome/log/classes/$wims_class/.def
 53 
date=!defof class_expiration in wimshome/log/classes/$wims_class/.def
- 
 
 54 
 
43 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\
 55 
!appendfile wimshome/log/classes/$wims_class/sheets/.sheets :0\
44 
$date\
 56 
$date\
45 
$title
 57 
$title
46 
 
 - 
 
47 
message=$name_confirmmksheet
 58 
message=$name_confirmmksheet
- 
 
 59 
docu=!nonempty line $docu
48 
n=!linecnt $docu
 60 
n=!linecnt $docu
49 
!if $n<=6
 61 
!if $n<=6
50 
 docu=!append line $autosheet to $docu
 62 
 docu=!append line $autosheet to $docu
51 
!else
 63 
!else
52 
 docu=!replace line number 7 by $autosheet in $docu
 64 
 docu=!replace line number 7 by $autosheet in $docu
53 
!endif
 65 
!endif
- 
 
 66 
 
54 
!read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
 67 
!read proc/updatefield.proc wimshome/log/classes/$wims_class/doc/.docindex\
55 
$sdoc\
 68 
$sdoc\
56 
\
 69 
\
57 
$docu
 70 
$docu
58 
!distribute lines $docu into dir,param,title,desc,status,wksheet,autosheet
 71 
!distribute lines $docu into dir,param,title,desc,status,wksheet,autosheet