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
 1 
!default graphics=0
- 
 
 2 
!if $wims_user=supervisor
- 
 
 3 
  user=!item 1 of $user
- 
 
 4 
  !read adm/class/userisinclass ,$user
3 
!if $choice=all
 5 
  !if $script_reply!=yes
4 
  !reset loginlist
 6 
    !reset job
- 
 
 7 
    !changeto var.proc
- 
 
 8 
  !endif
5 
!endif
 9 
!endif
6 
 
 10 
 
7 
showsheet_=!nospace $showheet
 - 
 
8 
activ=
 - 
 
9 
sheetcnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets
 11 
!read adm/class/userdef classes,$wims_class,$user
10 
!bound numshowsheet between integer 1 and $sheetcnt default 1
 - 
 
11 
!set shs_title=
 - 
 
12 
nbexototal=0
 - 
 
13 
!for j = 1 to $sheetcnt
 12 
!readproc $userdef
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 
 
 13 
 
25 
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
 14 
!readproc script/listsheet.proc
31 
 
 - 
 
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
 -