Subversion Repositories wimsdev

Rev

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

Rev 12803 Rev 12927
Line 18... Line 18...
18 
  !exit
 18 
  !exit
19 
!endif
 19 
!endif
20 
!goto $_job
 20 
!goto $_job
21 
 
 21 
 
22 
:put
 22 
:put
23 
 !set _value=!words2items $_value
 23 
  !set _value=!words2items $_value
24 
 !set _n=!itemcnt $_value
 24 
  !set _n=!itemcnt $_value
25 
 !reset IPscore$_num,begindscore$_num,enddscore$_num,begintscore$_num,endtscore$_num
 25 
  !reset IPscore$_num,begindscore$_num,enddscore$_num,begintscore$_num,endtscore$_num
- 
 
 26 
  !set datecheck$_num=$empty
26 
 !for _k=1 to $_n
 27 
  !for _k=1 to $_n
27 
  !set _c=!char 1 of $(_value[$_k])
 28 
    !set _c=!char 1 of $(_value[$_k])
28 
  !if $_c=>
 29 
    !if $_c=>
29 
    !set begindscore$_num=!char 2 to 9 of $(_value[$_k])
 30 
      !set begindscore$_num=!char 2 to 9 of $(_value[$_k])
30 
    !set begintscore$_num=!char 11 to 15 of $(_value[$_k])
 31 
      !set begintscore$_num=!char 11 to 15 of $(_value[$_k])
31 
  !else
 32 
    !else
32 
    !if $_c=<
 33 
      !if $_c=<
33 
      !set enddscore$_num=!char 2 to 9 of $(_value[$_k])
 34 
        !set enddscore$_num=!char 2 to 9 of $(_value[$_k])
34 
      !set endtscore$_num=!char 11 to 15 of $(_value[$_k])
 35 
        !set endtscore$_num=!char 11 to 15 of $(_value[$_k])
35 
    !else
 36 
      !else
36 
      !set IPscore$_num=$(IPscore$_num) $(_value[$_k])
 37 
        !set IPscore$_num=$(IPscore$_num) $(_value[$_k])
- 
 
 38 
      !endif
- 
 
 39 
    !endif
- 
 
 40 
  !next _k
- 
 
 41 
  !let _now=!char 1 to 8 of $wims_now
- 
 
 42 
  !if $(begindscore$_num)=$class_creation or $(begindscore$_num)=$empty
- 
 
 43 
    !let begindscore$_num=$_now
- 
 
 44 
    !if $(enddscore$_num)=$empty
- 
 
 45 
      !let datecheck$_num=yes
37 
    !endif
 46 
    !endif
38 
  !endif
 47 
  !endif
39 
 !next _k
 - 
 
40 
 !let _now=!char 1 to 8 of $wims_now
 - 
 
41 
 !if $(begindscore$_num)=$class_creation or $(begindscore$_num)=$empty
 - 
 
42 
  !let begindscore$_num=$_now
 - 
 
43 
 !endif
 - 
 
44 
 !default enddscore$_num=$class_expiration
 48 
  !default enddscore$_num=$class_expiration
45 
 !default begintscore$_num=00:00
 49 
  !default begintscore$_num=00:00
46 
 !default endtscore$_num=23:59
 50 
  !default endtscore$_num=23:59
47 
 !exit
 51 
  !exit
48 
 
 52 
 
49 
:html
 53 
:html
50 
<ul class="wims_nopuce">
 54 
<ul class="wims_nopuce">
51 
  <li>
 55 
  <li>
- 
 
 56
52 
    <label for="begindscore$_num">$wims_name_from</label>
 57 
    <label for="begindscore$_num">$wims_name_from</label>
53 
!if $jquery_defined=yes
 58 
    !if $jquery_defined=yes
54 
  !read adm/datepickerform.phtml $(begindscore$_num)\
 59 
      !read adm/datepickerform.phtml $(begindscore$_num)\
55 
begindscore$_num\
 60 
begindscore$_num\
56 
"$class_creation","$class_expiration"
 61 
"$class_creation","$class_expiration"
57 
!else
 62 
    !else
58 
  <input size="8" name="begindscore$_num" id="begindscore$_num" value="$(begindscore$_num)" />
 63 
      <input size="8" name="begindscore$_num" id="begindscore$_num" value="$(begindscore$_num)" />
59 
!endif
 64 
    !endif
60 
    <label for="begintscore$_num">$wims_name_at</label>
 65 
    <label for="begintscore$_num">$wims_name_at</label>
61 
    <input size="5" name="begintscore$_num" id="begintscore$_num" value="$(begintscore$_num)" />
 66 
    <input size="5" name="begintscore$_num" id="begintscore$_num" value="$(begintscore$_num)" />
62 
 
 67 
 
63 
    <label for="enddscore$_num">$wims_name_to</label>
 68 
    <label for="enddscore$_num">$wims_name_to</label>
64 
!if $jquery_defined=yes
 69 
    !if $jquery_defined=yes
65 
  !read adm/datepickerform.phtml $(enddscore$_num)\
 70 
      !read adm/datepickerform.phtml $(enddscore$_num)\
66 
enddscore$_num\
 71 
enddscore$_num\
67 
"$class_creation","$class_expiration"
 72 
"$class_creation","$class_expiration"
68 
!else
 73 
    !else
69 
  <input size="8" name="enddscore$_num" id="enddscore$_num" value="$(enddscore$_num)" />
 74 
      <input size="8" name="enddscore$_num" id="enddscore$_num" value="$(enddscore$_num)" />
70 
!endif
 75 
    !endif
71 
    <label for="endtscore$_num">$wims_name_at</label>
 76 
    <label for="endtscore$_num">$wims_name_at</label>
72 
    <input size="5" name="endtscore$_num" id="endtscore$_num" value="$(endtscore$_num)" />
 77 
    <input size="5" name="endtscore$_num" id="endtscore$_num" value="$(endtscore$_num)" />
- 
 
 78 
    <input type="checkbox" name="datecheck$_num" value="yes" id="datecheck$_num"
- 
 
 79 
      !if $(datecheck$_num)=yes
- 
 
 80 
        checked="checked"
- 
 
 81 
      !endif
- 
 
 82 
    />
- 
 
 83 
    !reset datecheck$_num
- 
 
 84 
    <label for="datecheck$_num">$wims_name_Close</label>
73 
  </li><li>
 85 
  </li><li>
74 
    <label for="IPscore$_num">$wims_name_IP</label>
 86 
    <label for="IPscore$_num">$wims_name_IP</label>
75 
    <input size="10" name="IPscore$_num" id="IPscore$_num" value="$(IPscore$_num)" placeholder="127.0.0.1" />
 87 
    <input size="10" name="IPscore$_num" id="IPscore$_num" value="$(IPscore$_num)" placeholder="127.0.0.1" />
76 
  </li>
 88 
  </li>
77 
</ul>
 89 
</ul>
Line 116... Line 128...
116 
!next _t
 128 
!next _t
117 
!! IP restriction char
 129 
!! IP restriction char
118 
!set IPscore$_num=!text select char 1234567890. in $(IPscore$_num)
 130 
!set IPscore$_num=!text select char 1234567890. in $(IPscore$_num)
119 
!! write output
 131 
!! write output
120 
!reset _output
 132 
!reset _output
121 
!if $(begindscore$_num)!=$empty and ($(begindscore$_num)!=$class_creation or $(begintscore$_num)!=00:00)
 133 
!if $(begindscore$_num)!=$empty and ($(begindscore$_num)!=$class_creation or $(begintscore$_num)!=00:00) and yes notin $(datecheck$_num)
122 
  !set _output=$_output>$(begindscore$_num).$(begintscore$_num)
 134 
  !set _output=$_output>$(begindscore$_num).$(begintscore$_num)
123 
!endif
 135 
!endif
124 
!if $(enddscore$_num)!=$empty and ($(enddscore$_num)!=$class_expiration or $(endtscore$_num)!=23:59)
 136 
!if $(enddscore$_num)!=$empty and ($(enddscore$_num)!=$class_expiration or $(endtscore$_num)!=23:59) and yes notin $(datecheck$_num)
125 
  !set _output=$_output <$(enddscore$_num).$(endtscore$_num)
 137 
  !set _output=$_output <$(enddscore$_num).$(endtscore$_num)
126 
!endif
 138 
!endif
127 
!set _output=$_output $(IPscore$_num)
 139 
!set _output=$_output $(IPscore$_num)
128 
!exit
 140 
!exit