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 |