Subversion Repositories wimsdev

Rev

Rev 16903 | Rev 16946 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 16903 Rev 16926
Line 37... Line 37...
37 
dnum=!word 1 of $output
 37 
dnum=!word 1 of $output
38 
!readproc adm/calendar.proc endmonth $date
 38 
!readproc adm/calendar.proc endmonth $date
39 
wnum=$[ceil(($output-(7-$dnum+1))/7)+1]
 39 
wnum=$[ceil(($output-(7-$dnum+1))/7)+1]
40 
test=!fileexists wimshome/sessions/$wims_session/$user.st
 40 
test=!fileexists wimshome/sessions/$wims_session/$user.st
41 
!if $test!=yes
 41 
!if $test!=yes
- 
 
 42 
  test=!sh if [ -e $wims_home/log/ccaccount/$wims_class/$user ]; then\
42 
  test=!sh awk -F" " 'BEGIN {d=0;v=0} {if (substr($$1,1,8)==d) {v+=$$2} else {if (d!=0) print ":"d","v;d=substr($$1,1,8);v=$$2}}' $wims_home/log/ccaccount/$wims_class/$user > $wims_home/sessions/$wims_session/$user.st;
 43 
             awk -F" " 'BEGIN {d=0;v=0} {if (substr($$1,1,8)==d) {v+=$$2} else {if (d!=0) print ":"d","v;d=substr($$1,1,8);v=$$2}}' $wims_home/log/ccaccount/$wims_class/$user > $wims_home/sessions/$wims_session/$user.st;\
- 
 
 44 
           fi
43 
!endif
 45 
!endif
44 
nbactivity=!recordcnt wimshome/sessions/$wims_session/$user.st
 46 
nbactivity=!recordcnt wimshome/sessions/$wims_session/$user.st
45 
!if $nbactivity>0
 47 
!if $nbactivity>0
46 
  cpta=0
 48 
  cpta=0
47 
  activity=0,0
 49 
  activity=0,0
48 
  !while $cpta<$nbactivity and $(activity[1])<$date
 50 
  !while $cpta<$nbactivity and $(activity[1])<$date
49 
    !increase cpta
 51 
    !increase cpta
50 
    activity=!record $cpta of wimshome/sessions/$wims_session/$user.st
 52 
    activity=!record $cpta of wimshome/sessions/$wims_session/$user.st
51 
  !endwhile
53 
  !endwhile
- 
 
 54 
!else
- 
 
 55 
  error=noactivity
- 
 
 56 
  notallowed=1
- 
 
 57 
  !exit
52 
!endif
 58 
!endif
53 
!! ----- first item is color for 0 activity (maybe zone number and color can be paramétrizable ?)
 59 
!! ----- first item is color for 0 activity (maybe zone number and color can be paramétrizable ?)
54 
ltcolor=white,red,yellow,orange,green
 60 
ltcolor=white,red,yellow,orange,green
55 
!! ------ time for each zone
 61 
!! ------ time for each zone
56 
utime=$class_utime
 62 
utime=$class_utime