Subversion Repositories wimsdev

Rev

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

Rev 16903 Rev 17153
Line 4... Line 4...
4
 
4
 
5
wims_prefix=class user tmp n sharing sharable
5
wims_prefix=class user tmp n sharing sharable wtime
6
!read tabletheme
6
!read tabletheme
7
!if $wims_user!=supervisor
7
!if $wims_user!=supervisor
8
  user=$wims_user
8
  user=$wims_user
9
!endif
9
!endif
10
 
10
 
Line 13... Line 13...
13
  !read adm/vfilter/listvarfilter.proc
13
  !read adm/vfilter/listvarfilter.proc
14
  !read adm/vfilter/varfilter proc
14
  !read adm/vfilter/varfilter proc
15
  !if $varfilterclear!=$empty
15
  !if $varfilterclear!=$empty
16
    !reset varfilterclear,status
16
    !reset varfilterclear,status
17
  !endif
17
  !endif
18
  !bound job within activity,useractivity,workingtime default activity
18
  !bound job within activity,useractivity,workingtime,cfwtime default activity
19
!else
19
!else
20
  !bound job within useractivity,workingtime default useractivity
20
  !bound job within useractivity,workingtime default useractivity
21
!endif
21
!endif
22
 
22
 
-
 
23
!if $job=workingtime or $job=cfwtime
-
 
24
  !read wimshome/log/classes/$wims_class/.def
-
 
25
  !bound wtime_subval between 1 and 30 default 15
-
 
26
  !bound wtime_open within 1,0 default 0
-
 
27
  !bound wtime_nbsub between 3 and 10 default 4
-
 
28
  ltcolor=#FFFFFF,#4682B4,#B0C4DE,#B0E0E6,#ADD8E6,#87CEEB,#87CEFA,#00BFFF,#6495ED,#1E90FF,#0000FF
-
 
29
  wtime_ltcolor=!item 1 to $[$wtime_nbsub+1] of $wtime_ltcolor
-
 
30
  !default wtime_ltcolor=#FFFFFF
-
 
31
  nb=!itemcnt $wtime_ltcolor
-
 
32
  !ifval $nb<$wtime_nbsub+1
-
 
33
    tmp=!item $[-($wtime_nbsub+1-$nb)] to -1 of $ltcolor
-
 
34
    wtime_ltcolor=!append item $tmp to $wtime_ltcolor
-
 
35
  !endif
-
 
36
  !if $wtime_open=0
-
 
37
    !if $wims_user=supervisor
-
 
38
      job=cfwtime
-
 
39
    !else
-
 
40
      error=notopen
-
 
41
      notallowed=1
-
 
42
      !exit
-
 
43
    !endif
-
 
44
  !endif
-
 
45
!endif
23
 
46
 
24
!read $job.proc
47
!read $job.proc
25
 
48