Subversion Repositories wimsdev

Rev

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

Rev 12947 Rev 12950
Line 2... Line 2...
2 
!default graphics=0
 2 
!default graphics=0
3 
!if $choice=all
 3 
!if $choice=all
4 
  !reset loginlist
 4 
  !reset loginlist
5 
!endif
 5 
!endif
6 
 
 6 
 
7 
showsheet_=!nospace $showheet
 - 
 
8 
activ=
 - 
 
9 
sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 - 
 
10 
!bound numshowsheet between integer 1 and $sheetcnt default 1
 - 
 
11 
!set shs_title=
 - 
 
12 
nbexototal=0
 - 
 
13 
!for j = 1 to $sheetcnt
 7 
!readproc script/listsheet.proc
14 
  nbexo$j=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$j
 - 
 
15 
  nbexototal=$[$nbexototal + $(nbexo$j)]
 - 
 
16 
  t_=!record $j of wimshome/log/classes/$wims_class/sheets/.sheets
 - 
 
17 
  !distribute line $t_ into a_,bidon,ti_
 - 
 
18 
  a_=!char 1 of $a_
 - 
 
19 
  activ=!append item $a_ to $activ
 - 
 
20 
  shs_title=!append line $ti_ to $shs_title
 - 
 
21 
!next
 - 
 
22 
shs_title=!replace internal , by , in $shs_title
 - 
 
23 
shs_title=!lines2items $shs_title
 - 
 
24 
 
 8 
 
25 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
 9 
usercnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
26 
 
 - 
 
27 
!set activlist=!positionof item 0 in $activ
 - 
 
28 
!set listtot=!makelist x for x = 1 to $sheetcnt
 - 
 
29 
!set activlist=!listcomplement $activlist in $listtot
 - 
 
30 
!set activlist_cnt=!itemcnt $activlist
 - 
 
31 
 
 10 
 
32 
!if $choice iswordof login filter first all
 11 
!if $choice iswordof login filter first all
33 
  !reset select_user
 12 
  !reset select_user
34 
!endif
 13 
!endif
35 
!if $choice iswordof select filter first all
 14 
!if $choice iswordof select filter first all