Subversion Repositories wimsdev

Rev

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

Rev 17531 Rev 17665
Line 19... Line 19...
19 
  !exit
 19 
  !exit
20 
!endif
 20 
!endif
21 
!goto $_job
 21 
!goto $_job
22 
 
 22 
 
23 
:put
 23 
:put
24 
  !set _value=!words2items $_value
 24 
!set _value=!words2items $_value
25 
  !set _n=!itemcnt $_value
 25 
!set _n=!itemcnt $_value
26 
  !reset IPscore$_num,begindscore$_num,enddscore$_num,begintscore$_num,endtscore$_num
 26 
!reset IPscore$_num,begindscore$_num,enddscore$_num,begintscore$_num,endtscore$_num
27 
  !set datecheck$_num=$empty
 27 
!set datecheck$_num=$empty
28 
  !for _k=1 to $_n
 28 
!for _k=1 to $_n
29 
    !set _c=!char 1 of $(_value[$_k])
 29 
  !set _c=!char 1 of $(_value[$_k])
- 
 
 30 
  !if $_c=>
- 
 
 31 
    !set begindscore$_num=!char 2 to 9 of $(_value[$_k])
- 
 
 32 
    !set begintscore$_num=!char 11 to 15 of $(_value[$_k])
- 
 
 33 
  !else
30 
    !if $_c=>
 34 
    !if $_c=<
31 
      !set begindscore$_num=!char 2 to 9 of $(_value[$_k])
 35 
      !set enddscore$_num=!char 2 to 9 of $(_value[$_k])
32 
      !set begintscore$_num=!char 11 to 15 of $(_value[$_k])
 36 
      !set endtscore$_num=!char 11 to 15 of $(_value[$_k])
33 
    !else
 37 
    !else
34 
      !if $_c=<
 - 
 
35 
        !set enddscore$_num=!char 2 to 9 of $(_value[$_k])
 - 
 
36 
        !set endtscore$_num=!char 11 to 15 of $(_value[$_k])
 - 
 
37 
      !else
 - 
 
38 
        !set IPscore$_num=$(IPscore$_num) $(_value[$_k])
 38 
      !set IPscore$_num=$(IPscore$_num) $(_value[$_k])
39 
      !endif
 - 
 
40 
    !endif
 - 
 
41 
  !next _k
 - 
 
42 
  !let _now=!char 1 to 8 of $wims_now
 - 
 
43 
  !if $(begindscore$_num)=$class_creation or $(begindscore$_num)=$empty
 - 
 
44 
    !let begindscore$_num=$_now
 - 
 
45 
    !if $(enddscore$_num)=$empty
 - 
 
46 
      !let datecheck$_num=none
 - 
 
47 
    !endif
 39 
    !endif
48 
  !endif
 40 
  !endif
- 
 
 41 
!next _k
- 
 
 42 
!let _now=!char 1 to 8 of $wims_now
- 
 
 43 
!if $(begindscore$_num)=$class_creation or $(begindscore$_num)=$empty
- 
 
 44 
  !let begindscore$_num=$_now
- 
 
 45 
  !if $(enddscore$_num)=$empty
- 
 
 46 
    !let datecheck$_num=none
- 
 
 47 
  !endif
- 
 
 48 
!endif
49 
  !default enddscore$_num=$class_expiration
 49 
!default enddscore$_num=$class_expiration
50 
  !default begintscore$_num=00:00
 50 
!default begintscore$_num=00:00
51 
  !default endtscore$_num=23:59
 51 
!default endtscore$_num=23:59
52 
  !exit
 52 
!exit
53 
 
 53 
 
54 
:html
 54 
:html
55 
!let _now=!char 1 to 8 of $wims_now
 55 
!let _now=!char 1 to 8 of $wims_now
56 
!if exam isin $module
 56 
!if exam isin $module
57 
 !set allid_=3,4
 57 
  !set allid_=3,4
58 
!else
 58 
!else
59 
 !set allid_=2,3
 59 
  !set allid_=2,3
60 
!endif
 60 
!endif
61 
!if $_num != $empty
 61 
!if $_num != $empty
62 
  !! score restriction use a $_num for each techvar
 62 
  !! score restriction use a $_num for each techvar
63 
  <label for="datecheck$_num">$(name_shinfo[6])</label>
 63 
  <label for="datecheck$_num">$(name_shinfo[6])</label>
64 
  <select name="datecheck$_num" id="datecheck$_num"
 64 
  <select name="datecheck$_num" id="datecheck$_num"