Subversion Repositories wimsdev

Rev

Rev 9682 | Rev 12338 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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