Subversion Repositories wimsdev

Rev

Rev 5603 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5603 Rev 12429
Line 2... Line 2...
2 
!! it should be execute when skillbullet is modify
 2 
!! it should be execute when skillbullet is modify
3 
 
 3 
 
4 
!reset tmprecord
 4 
!reset tmprecord
5 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 5 
nbsheet=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
6 
!for k=1 to $nbsheet
 6 
!for k=1 to $nbsheet
7 
 sheet_$k=<ul>
 7 
  sheet_$k=<ul>
8 
 !reset flagsh_$k
 8 
  !reset flagsh_$k
9 
!next k
 9 
!next k
10 
!for k=1 to $livret_nbcomp
 10 
!for k=1 to $livret_nbcomp
11 
 !for p=1 to $(nbpalier_$k)
 11 
  !for p=1 to $(nbpalier_$k)
12 
  tmp=!record $p of $livret_dir/.comp$k
 12 
    tmp=!record $p of $livret_dir/.comp$k
13 
  !distribute line $tmp into ti,ex
 13 
    !distribute line $tmp into ti,ex
14 
  ex=!items2lines $ex
 14 
    ex=!items2lines $ex
15 
  ex=!replace internal . by , in $ex
 15 
    ex=!replace internal . by , in $ex
16 
  ex=!column 1 of $ex
 16 
    ex=!column 1 of $ex
17 
  ex=!listuniq $ex
 17 
    ex=!listuniq $ex
18 
  !for t in $ex
 18 
    !for t in $ex
19 
   !if $(flagsh_$t)=1
 19 
      !if $(flagsh_$t)=1
20 
    sheet_$t=!append line <li><b>$name_n_Palier : </b> $ti</li> to $(sheet_$t)
 20 
        sheet_$t=!append line <li><b>$name_n_Palier : </b> $ti</li> to $(sheet_$t)
21 
   !else
 21 
      !else
22 
    sheet_$t=!append line <li><b>$name_Competence : </b>$(title_$k)<ul><li><b>$name_n_Palier : </b>$ti</li> to $(sheet_$t)
 22 
        sheet_$t=!append line <li><b>$name_Competence : </b>$(title_$k)<ul><li><b>$name_n_Palier : </b>$ti</li> to $(sheet_$t)
23 
    flagsh_$t=1
 23 
        flagsh_$t=1
- 
 
 24 
      !endif
- 
 
 25 
    !next t
- 
 
 26 
  !next p
- 
 
 27 
  !for t=1 to $nbsheet
- 
 
 28 
    !if $(flagsh_$t)=1
- 
 
 29 
      !reset flagsh_$t
- 
 
 30 
      sheet_$t=!append line </ul> to $(sheet_$t)
24 
   !endif
 31 
    !endif
25 
  !next t
 32 
  !next t
26 
 !next p
 - 
 
27 
 !for t=1 to $nbsheet
 - 
 
28 
  !if $(flagsh_$t)=1
 - 
 
29 
   !reset flagsh_$t
 - 
 
30 
   sheet_$t=!append line </ul> to $(sheet_$t)
 - 
 
31 
  !endif
 - 
 
32 
 !next t
 - 
 
33 
!next k
 33 
!next k
34 
 
 34 
 
35 
!for k=1 to $nbsheet
 35 
!for k=1 to $nbsheet
36 
 tst=!linecnt $(sheet_$k)
 36 
  tst=!linecnt $(sheet_$k)
37 
 !if $tst>1
 37 
  !if $tst>1
38 
  sheet_$k=!append line </ul> to $(sheet_$k)
 38 
    sheet_$k=!append line </ul> to $(sheet_$k)
39 
 !else
 39 
  !else
40 
  !reset sheet_$k
 40 
    !reset sheet_$k
41 
 !endif
 41 
  !endif
42 
 tmprecord=!append line :$(sheet_$k) to $tmprecord
 42 
  tmprecord=!append line :$(sheet_$k) to $tmprecord
43 
!next k
 43 
!next k
44 
!writefile $livret_dir/sheetindex.rc $tmprecord
 44 
!writefile $livret_dir/sheetindex.rc $tmprecord