Subversion Repositories wimsdev

Rev

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

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