Subversion Repositories DevTools

Rev

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

Rev 5045 Rev 5046
Line 25... Line 25...
25
'           Other           - Subset of Count
25
'           Other           - Subset of Count
26
'   The data is for all time
26
'   The data is for all time
27
'   [May need to rethink that if processing time blows out]
27
'   [May need to rethink that if processing time blows out]
28
'
28
'
29
'   Get Requests
29
'   Get Requests
30
'       ?today=n            - Limit result set n days ago
30
'       ?day=n            - Limit result set n days ago
31
'                             0 == Results since midnight
31
'                             0 == Results since midnight
32
'                             1 == yesterday
32
'                             1 == yesterday
33
'
33
'
34
'=====================================================
34
'=====================================================
35
%>
35
%>
Line 111... Line 111...
111
    Dim dataSet : Set dataSet = newDataSet("data", oJSON.data)
111
    Dim dataSet : Set dataSet = newDataSet("data", oJSON.data)
112
 
112
 
113
    '
113
    '
114
    '   Support time limited query
114
    '   Support time limited query
115
    '
115
    '
116
    Dim today : today = NiceInt( Request("today"), -1 )
116
    Dim repday : repday = NiceInt( Request("day"), -1 )
117
    Dim limit : limit = ""
117
    Dim limit : limit = ""
118
    If today >= 0 Then
118
    If repday >= 0 Then
119
        infoSet("today") = today
119
        infoSet("day") = repday
120
        limit = " AND bi.TIMESTAMP > TRUNC(SYSDATE - "& today &")"
120
        limit = " AND bi.TIMESTAMP > TRUNC(SYSDATE - "& repday &")"
121
        limit = limit & " AND bi.TIMESTAMP < TRUNC(SYSDATE - "& today - 1 &")"
121
        limit = limit & " AND bi.TIMESTAMP < TRUNC(SYSDATE - "& repday - 1 &")"
122
    End If
122
    End If
123
 
123
 
124
 
124
 
125
    '   The query
125
    '   The query
126
    '
126
    '