Subversion Repositories DevTools

Rev

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

Rev 6375 Rev 6376
Line 8... Line 8...
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
'------------ Variable Definition -------------
 10 
'------------ Variable Definition -------------
11 
Dim rsTemp
 11 
Dim rsTemp
12 
Dim rsQry
 12 
Dim rsQry
13 
Dim isProduct
 - 
 
14 
Dim sLink
 13 
Dim sLink
15 
Dim sSize
 14 
Dim sSize
16 
Dim sCompSize
 15 
Dim sCompSize
17 
Dim sIcon
 16 
Dim sIcon
18 
Dim parComparePvId
 17 
Dim parComparePvId
19 
Dim parCompare
 18 
Dim parCompare
20 
Dim parOsType
 - 
 
21 
Dim sDiffStateIcon
 19 
Dim sDiffStateIcon
22 
Dim sStyle
 20 
Dim sStyle
23 
Dim dAvailableOsTypes
 21 
Dim sCompVerText
- 
 
 22 
Dim sVerText
24 
'------------ Constants Declaration -----------
 23 
'------------ Constants Declaration -----------
25 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"
 24 
Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"
26 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"
 25 
Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"
27 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"
 26 
Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"
28 
'------------ Variable Init -------------------
 27 
'------------ Variable Init -------------------
29 
parComparePvId = Request("compare_pv_id")
 28 
parComparePvId = Request("compare_pv_id")
30 
parCompare = Request("compare")
 29 
parCompare = Request("compare")
31 
parOsType = Request("os_type")
 - 
 
32 
'----------------------------------------------
 30 
'----------------------------------------------
33 
If Request("btn") = "Compare" Then
 31 
If Request("btn") = "Compare" Then
34 
    parCompare = "true"
 32 
    parCompare = "true"
35 
End If
 33 
End If
36 
Set dAvailableOsTypes = CreateObject("Scripting.Dictionary")
 - 
 
37 
'----------------------------------------------
 34 
'----------------------------------------------
38 
%>
 35 
%>
39 
<%
 36 
<%
40 
'--------------------------------------------------------------------------------------------------------------------------------------
 37 
'--------------------------------------------------------------------------------------------------------------------------------------
41 
 
 - 
 
42 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
43 
Sub DisplayMessage ()
 38 
Sub DisplayMessage ()
44 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
 39 
    If (pkgInfoHash.Item ("dlocked") = "Y") Then
45 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
40 
        If (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") > 0) Then
46 
            Select Case CStr( pkgInfoHash.Item ("release_notes_info") )
 41 
            Select Case CStr( pkgInfoHash.Item ("release_notes_info") )
47 
            Case enum_RELEASE_NOTES_GENERATING
 42 
            Case enum_RELEASE_NOTES_GENERATING
Line 62... Line 57...
62 
        End If
 57 
        End If
63
58
64 
    End If
 59 
    End If
65 
End Sub
 60 
End Sub
66 
'--------------------------------------------------------------------------------------------------------------------------------------
 61 
'--------------------------------------------------------------------------------------------------------------------------------------
67 
Sub GetProductOsTypes ( outAvailableOsTypes, outOsType )
 - 
 
68 
    Dim rsQry
 - 
 
69
- 
 
70 
    ' --- Get all available product os types from captured components ---
 - 
 
71 
    OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
72
- 
 
73 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductBuildOsTypes.sql"), cint(0))
 - 
 
74
- 
 
75 
    OraDatabase.Parameters.Remove "PV_ID"
 - 
 
76
- 
 
77
- 
 
78 
    While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 - 
 
79 
        outAvailableOsTypes.Item (CStr(rsQry("os_id"))) = CStr(rsQry("os_id"))
 - 
 
80
- 
 
81 
        If outOsType = "" Then
 - 
 
82 
            outOsType = CStr(rsQry("os_id"))
 - 
 
83 
        End If
 - 
 
84
- 
 
85 
        rsQry.MoveNext
 - 
 
86 
    WEnd
 - 
 
87
- 
 
88 
    rsQry.Close()
 - 
 
89 
    Set rsQry = nothing
 - 
 
90
- 
 
91 
End Sub
 - 
 
92 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
93 
Sub DisplayOsTypeCombo ( )
 - 
 
94 
    Dim sOsType, aOsTypeParts, selected
 - 
 
95
- 
 
96
- 
 
97 
    ' -- Render combo box ---
 - 
 
98 
    If dAvailableOsTypes.Count > 0 Then
 - 
 
99 
        For Each sOsType In aPRODUCT_OS_BUILD_TYPES
 - 
 
100 
            aOsTypeParts = Split( sOsType, "|")
 - 
 
101
- 
 
102
- 
 
103 
            If dAvailableOsTypes.Exists ( CStr(aOsTypeParts(1)) ) Then
- 
 
104 
                ' Define selected item
 - 
 
105
- 
 
106 
                selected = ""
 - 
 
107
- 
 
108 
                If parOsType = "" Then
 - 
 
109 
                    parOsType = aOsTypeParts(1)
 - 
 
110 
                    selected = "selected"
 - 
 
111 
                Else
 - 
 
112 
                    If CStr(parOsType) = CStr(aOsTypeParts(1)) Then
 - 
 
113 
                        selected = "selected"
 - 
 
114 
                    End If
 - 
 
115 
                End If
 - 
 
116
- 
 
117 
                Response.write "<option value='"& aOsTypeParts(1) &"' "& selected &">"& aOsTypeParts(0) &"</option>"
 - 
 
118
- 
 
119 
            End If
 - 
 
120
- 
 
121 
        Next
 - 
 
122 
    End If
 - 
 
123
- 
 
124 
End Sub
 - 
 
125 
'--------------------------------------------------------------------------------------------------------------------------------------
 - 
 
126 
Sub DisplayComparePvIdCombo()
 62 
Sub DisplayComparePvIdCombo()
127 
    Dim rsQry, isOfficial
 63 
    Dim rsQry, isOfficial
128
64
- 
 
 65 
    sVerText = pkgInfoHash.Item("pkg_version")
- 
 
 66 
    sCompVerText = ""
- 
 
 67 
 
129 
    ' Define version to compare
 68 
    ' Define version to compare
130 
    If parComparePvId = "" Then
 69 
    If parComparePvId = "" Then
131 
        If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) Then
70 
        If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) Then
132 
            parComparePvId = pkgInfoHash.Item("last_pv_id")
 71 
            parComparePvId = pkgInfoHash.Item("last_pv_id")
133 
        Else
 72 
        Else
134 
            parComparePvId = 0
 73 
            parComparePvId = 0
135 
        End If
 74 
        End If
136
75
137 
    End If
 76 
    End If
138
77
139
- 
 
140 
    OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
78 
    OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
141 
    OraDatabase.Parameters.Add "PKG_ID",        pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
79 
    OraDatabase.Parameters.Add "PKG_ID",        pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
142 
    OraDatabase.Parameters.Add "V_EXT",         EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
80 
    OraDatabase.Parameters.Add "V_EXT",         EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2
143
81
144 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
 82 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))
Line 150... Line 88...
150 
        If rsQry("dlocked") = "Y" Then
 88 
        If rsQry("dlocked") = "Y" Then
151 
            isOfficial = "R&nbsp;"
 89 
            isOfficial = "R&nbsp;"
152 
        Else
 90 
        Else
153 
            isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
 91 
            isOfficial = "&nbsp;&nbsp;&nbsp;&nbsp;"
154 
        End If
 92 
        End If
- 
 
 93 
 
- 
 
 94 
        If rsQry("selected") <> "" Then
- 
 
 95 
            sCompVerText = rsQry("pkg_version")
- 
 
 96 
        End If
155
97
156 
        Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"
 98 
        Response.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"
157
99
158 
        rsQry.MoveNext
 100 
        rsQry.MoveNext
159 
    WEnd
 101 
    WEnd
Line 183... Line 125...
183 
            outStyle = "body_rowbold"
 125 
            outStyle = "body_rowbold"
184
126
185 
        Case Else
 127 
        Case Else
186 
            outIcon = ""
 128 
            outIcon = ""
187 
            outStyle = "body_rowg"
 129 
            outStyle = "body_rowg"
188
- 
 
189 
    End Select
 130 
    End Select
190
- 
 
191 
End Sub
 131 
End Sub
192 
'--------------------------------------------------------------------------------------------------------------------------------------
 132 
'--------------------------------------------------------------------------------------------------------------------------------------
193 
Sub DisplayDiffSummary( orsQry )
 133 
Sub DisplayDiffSummary( orsQry )
194 
    Dim dDiffSummary
 134 
    Dim dDiffSummary
195 
    Set dDiffSummary = CreateObject("Scripting.Dictionary")
 135 
    Set dDiffSummary = CreateObject("Scripting.Dictionary")
Line 227... Line 167...
227
167
228 
End Sub
 168 
End Sub
229 
'--------------------------------------------------------------------------------------------------------------------------------------
 169 
'--------------------------------------------------------------------------------------------------------------------------------------
230 
%>
 170 
%>
231 
    <!-- DETAILS ------------------------------------------------->
 171 
    <!-- DETAILS ------------------------------------------------->
232 
    <%
 - 
 
233 
    ' --- Decide if pv_id is ERG Product ---
 - 
 
234 
    isProduct = FALSE
 - 
 
235 
 
 - 
 
236 
    if NOT IsEmpty(parOsType) Then
 - 
 
237 
 
 - 
 
238 
        If NOT IsNull( pkgInfoHash.Item("base_view_id") ) OR ( pkgInfoHash.Item("base_view_id") <> "") Then
 - 
 
239 
            If CInt(pkgInfoHash.Item("base_view_id")) = enumBASE_VIEW_PRODUCTS Then
 - 
 
240 
                isProduct = TRUE
 - 
 
241 
            End If
 - 
 
242 
        Else
 - 
 
243 
            ' Try to be smart and decide if it is ERG product by name
 - 
 
244 
            If (InStr( pkgInfoHash.Item("pkg_name"), "ERG", 0) = 1) OR (InStr( pkgInfoHash.Item("pkg_name"), "VIX", 0) = 1) Then
 - 
 
245 
                isProduct = TRUE
 - 
 
246 
            End If
 - 
 
247 
        End If
 - 
 
248 
    End If
 - 
 
249 
 
 - 
 
250 
    %>
- 
 
251
172
252 
    <%
 173 
    <%
253 
    ' -- Open Database connection
 174 
    ' -- Open Database connection
254 
    If isProduct Then
 - 
 
255 
        Call GetProductOsTypes ( dAvailableOsTypes, parOsType )
 - 
 
256
175
257 
        If parCompare <> "" Then
 176 
    If parCompare <> "" Then
258 
            OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
177 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
259 
            OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
178 
        OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
260 
            OraDatabase.Parameters.Add "OS_ID", parOsType,  ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
261
179
262 
            Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductComponentDiff.sql"), cint(0))
 180 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
263
181
264 
            OraDatabase.Parameters.Remove "PV_ID"
 182 
        OraDatabase.Parameters.Remove "PV_ID"
265 
            OraDatabase.Parameters.Remove "COMPARE_PV_ID"
 183 
        OraDatabase.Parameters.Remove "COMPARE_PV_ID"
266 
            OraDatabase.Parameters.Remove "OS_ID"
 - 
 
267
- 
 
268 
        Else
 - 
 
269
- 
 
270 
            OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
271 
            OraDatabase.Parameters.Add "OS_ID", parOsType,  ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
272
- 
 
273 
            Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProductComponents.sql"), cint(0))
 - 
 
274
- 
 
275 
            OraDatabase.Parameters.Remove "PV_ID"
 - 
 
276 
            OraDatabase.Parameters.Remove "OS_ID"
 - 
 
277 
        End If
 - 
 
278
184
279 
    Else
 185 
    Else
- 
 
 186 
        OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
280
187
281 
        If parCompare <> "" Then
 - 
 
282 
            OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
283 
            OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
284
- 
 
285 
            Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0))
 - 
 
286
- 
 
287 
            OraDatabase.Parameters.Remove "PV_ID"
 - 
 
288 
            OraDatabase.Parameters.Remove "COMPARE_PV_ID"
 - 
 
289
- 
 
290 
        Else
 - 
 
291 
            OraDatabase.Parameters.Add "PV_ID", parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
292
- 
 
293 
            Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponents.sql"), cint(0))
 188 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponents.sql"), cint(0))
294
189
295 
            OraDatabase.Parameters.Remove "PV_ID"
 190 
        OraDatabase.Parameters.Remove "PV_ID"
296
- 
 
297 
        End If
 - 
 
298
191
299 
    End If
 192 
    End If
300 
    %>
 - 
 
301
- 
 
302 
 
 - 
 
303 
    <%If isProduct Then%>
 - 
 
304
- 
 
305 
        <%If rsQry.Recordcount > 0 Then%>
 - 
 
306 
        <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 - 
 
307 
        <tr>
 - 
 
308 
          <td nowrap class="body_txt">Build Platform
 - 
 
309 
            <select name="os_type" class="form_item">
 - 
 
310 
            <%Call DisplayOsTypeCombo()%>
 - 
 
311 
            </select>
 - 
 
312 
            <input name="btn" type="submit" class="form_btn" value="View"></td>
 - 
 
313 
        </tr>
 - 
 
314 
      </table>
- 
 
315 
        <%End If%>
- 
 
316
- 
 
317 
        <%If rsQry.Recordcount < 1 Then%>
 - 
 
318
- 
 
319 
        <%
 - 
 
320 
        ' No files found ...
 - 
 
321 
        Call DisplayInfo ( "NO_PRODUCT_FILES_CAPTURED", "400" )
 - 
 
322 
        %>
 - 
 
323
- 
 
324 
        <%End If%>
 - 
 
325
- 
 
326 
    <%End If%>
- 
 
327 
 
 - 
 
328 
    <%'
 193 
      '
329 
      ' If not called from a history tab then we display a dialog to allow comparison
 194 
      ' If not called from a history tab then we display a dialog to allow comparison
330 
      ' with another version
 195 
      ' with another version
331 
    %>
 196 
    %>
332 
    <%If pkgCompare Then %>
 197 
    <%If pkgCompare Then %>
333 
            <form name="formname" method="get" action="<%=ScriptName%>" onSubmit="ProgressBar.style.visibility='visible';">
 198 
            <form name="formname" method="get" action="<%=ScriptName%>" onSubmit="ProgressBar.style.visibility='visible';">
334 
            <br>
199 
            <br>
335 
                        <span class="body_colb">Files and Folders</span><br>
 200 
            <span class="body_colb">Files and Folders</span><br>
336
201
337 
                        <%If rsQry.Recordcount > 0 Then%>
 202 
            <%If rsQry.Recordcount > 0 Then%>
338 
                        <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 203 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
339 
                          <tr>
 204 
              <tr>
340 
                            <td nowrap class="body_txt">
 205 
                <td nowrap class="body_txt">
341 
                                Show differences since version
 206 
                    Show differences since version
342 
                                <select name="compare_pv_id" class="form_item">
 207 
                    <select name="compare_pv_id" class="form_item">
343 
                                <%Call DisplayComparePvIdCombo()%>
 208 
                    <%Call DisplayComparePvIdCombo()%>
344 
                                </select>
 209 
                    </select>
345 
                                <input name="btn" type="submit" class="form_btn" value="Compare">
210 
                    <input name="btn" type="submit" class="form_btn" value="Compare">
- 
 
 211 
                    <%If parCompare <> "" Then%>
- 
 
 212 
                    &nbsp;&nbsp;&nbsp;
- 
 
 213 
                    <a class="form_btn" href="<%=scriptName%>?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>">Show <%=sVerText%></a>
- 
 
 214 
                    <a class="form_btn" href="<%=scriptName%>?pv_id=<%=parComparePvId%>&rtag_id=<%=parRtag_id%>">Show <%=sCompVerText%></a>
346 
                            </td>
 215 
                    <%End If%>
- 
 
 216 
                </td>
347 
                            <td nowrap class="body_txt" align="right">
 217 
                <td nowrap class="body_txt" align="right">
348 
                                <%If parCompare <> "" Then%>
 218 
                    <%If parCompare <> "" Then%>
349 
                                    <%Call DisplayDiffSummary( rsQry ) %>
 219 
                        <%Call DisplayDiffSummary( rsQry ) %>
350 
                                <%End If%>
 220 
                    <%End If%>
351 
                            </td>
 221 
                </td>
352 
                          </tr>
 222 
              </tr>
353 
                        </table>
 223 
            </table>
354 
                        <hr size="1" noshade color="#999999">
224 
            <hr size="1" noshade color="#999999">
355 
                        <%End If%>
225 
            <%End If%>
356 
    <%End If%>
 226 
    <%End If%>
357 
 
 227 
 
358 
    <!-- MODULE COMPONENTS ++++++++++++++++++++++++++++++++++++++ -->
 228 
    <!-- MODULE COMPONENTS ++++++++++++++++++++++++++++++++++++++ -->
359
229
360
230
361 
        <!-- ==================================================== -->
 231 
        <!-- ==================================================== -->
362 
        <!-- ===================  COMPARE ======================= -->
 232 
        <!-- ===================  COMPARE ======================= -->
363 
        <!-- ==================================================== -->
 233 
        <!-- ==================================================== -->
364 
        <%If parCompare <> "" Then%>
 234 
        <%If parCompare <> "" Then%>
365
- 
 
366 
 
 - 
 
367 
            <%If rsQry.Recordcount > 0 Then%>
 235 
            <%If rsQry.Recordcount > 0 Then%>
368
236
369
- 
 
370 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 237 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
371 
            <tr>
 238 
            <tr class="form_field_hdr">
372 
              <td width="1"   background="images/bg_form_lightbluedark.gif" class="form_item"></td>
 239 
              <td width="1"   rowspan="2"></td>
373 
              <td width="60%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td>
 240 
              <td width="60%" rowspan="2">Name</td>
374 
              <td width="10%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td>
 241 
              <td width="20%" colspan="2" align="center"><%=sVerText%></td>
375 
              <td width="10%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">CKSUM</td>
 242 
              <td width="20%" colspan="2" align="center"><%=sCompVerText%></td>
- 
 
 243 
            </tr>
- 
 
 244 
            <tr class="form_field_hdr">
- 
 
 245 
              <td align="right">Byte Size</td>
- 
 
 246 
              <td align="right">CKSUM</td>
376 
              <td width="10%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Comp Byte Size</td>
 247 
              <td align="right">Byte Size</td>
377 
              <td width="10%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Comp CKSUM</td>
 248 
              <td align="right">CKSUM</td>
378 
            </tr>
 249 
            </tr>
379 
            <%
 250 
            <%
380 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
251 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
- 
 
 252 
                Dim sizeStyle : sizeStyle = ""
- 
 
 253 
                Dim sumStyle  : sumStyle = ""
- 
 
 254 
                Dim diffState : diffState = rsQry("diff_state")
381
255 
                Dim sSum, sCompSum
- 
 
 256 
                sSum = rsQry("crc_cksum")
- 
 
 257 
                sCompSum = rsQry("comp_crc_cksum")
- 
 
 258 
                sSize = rsQry("byte_size")
- 
 
 259 
                sCompSize = rsQry("comp_byte_size")
382 
                Call GetDiffStateIcon( rsQry("diff_state"), sDiffStateIcon, sStyle )
 260 
                Call GetDiffStateIcon( diffState, sDiffStateIcon, sStyle )
383
261
384 
                ' Find if this is file or folder
 262 
                ' Find if this is file or folder
385 
                If IsNull( rsQry("crc_cksum") )  AND  (rsQry("byte_size") = 0) Then
263 
                If (IsNull(sSum) AND  (sSize = 0)) OR (IsNull(sCompSum) AND (sCompSize = 0)) Then
386 
                    sSize = ""
 264 
                    sSize = ""
387 
                    sCompSize = ""
 265 
                    sCompSize = ""
388 
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
 266 
                    sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"
389 
                Else
 267 
                Else
390 
                    sSize = rsQry("byte_size")
 268 
                    sSize = rsQry("byte_size")
391 
                    sCompSize = rsQry("comp_byte_size")
 269 
                    sCompSize = rsQry("comp_byte_size")
392 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 270 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
- 
 
 271 
 
- 
 
 272 
                    If diffState > 1 OR (sSum <>  sCompSum) Then
- 
 
 273 
                        sumStyle = "err_dtl"
- 
 
 274 
                    End If
- 
 
 275 
 
- 
 
 276 
                    If diffState > 1 OR (sSize <> sCompSize) Then
- 
 
 277 
                        sizeStyle = "err_dtl"
- 
 
 278 
                    End If
- 
 
 279 
 
393 
                End If
 280 
                End If
394
281
395 
            %>
 282 
            %>
396 
            <tr>
 283 
            <tr class="form_item_grey">
397 
              <td background="images/bg_form_lightgray.gif" nowrap class="body_txt_gray"><%=sDiffStateIcon%></td>
 284 
              <td nowrap ><%=sDiffStateIcon%></td>
398 
              <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>"><%=sIcon & rsQry("name")%></td>
 285 
              <td nowrap class="<%=sStyle%>"><%=sIcon & rsQry("name")%></td>
399 
              <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>" align="right"><%=sSize%></td>
 286 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sSize%></td>
400 
              <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>" align="right"><%=rsQry("crc_cksum")%></td>
 287 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sSum%></td>
401 
              <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>" align="right"><%=sCompSize%></td>
 288 
              <td nowrap class="<%=sizeStyle%>" align="right"><%=sCompSize%></td>
402 
              <td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>" align="right"><%=rsQry("comp_crc_cksum")%></td>
 289 
              <td nowrap class="<%=sumStyle%>"  align="right"><%=sCompSum%></td>
403 
            </tr>
 290 
            </tr>
404 
            <%
 291 
            <%
405 
                rsQry.MoveNext
 292 
                rsQry.MoveNext
406 
            WEnd
 293 
            WEnd
407
294
Line 409... Line 296...
409 
            Set rsQry = nothing
 296 
            Set rsQry = nothing
410 
            %>
 297 
            %>
411 
            </table><br>
 298 
            </table><br>
412
299
413 
            <%End If%>
 300 
            <%End If%>
414
- 
 
415
- 
 
416 
        <%Else%>
 301 
        <%Else%>
417 
        <!-- ==================================================== -->
 302 
        <!-- ==================================================== -->
418 
        <!-- =================== NORMAL FILES =================== -->
 303 
        <!-- =================== NORMAL FILES =================== -->
419 
        <!-- ==================================================== -->
 304 
        <!-- ==================================================== -->
420 
 
 - 
 
421 
            <%If rsQry.Recordcount < 1 Then%>
 305 
            <%If rsQry.Recordcount < 1 Then
422
306 
                ' No files found ...
423 
            <%
 - 
 
424 
            ' No files found ...
 307 
                Call DisplayMessage ()
425 
            Call DisplayMessage ()
 308 
            Else
426 
            %>
 309 
            %>
427
- 
 
428 
            <%Else%>
 - 
 
429
- 
 
430 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
 310 
            <table width="100%"  border="0" cellspacing="1" cellpadding="3">
431 
            <tr>
 311 
            <tr class="form_field_hdr">
432 
              <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td>
 312 
              <td width="25%" >Name</td>
433 
              <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td>
 313 
              <td width="25%" align="right">Byte Size</td>
434 
              <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">CKSUM</td>
 314 
              <td width="25%" align="right">CKSUM</td>
435 
              <td width="25%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">MODCRC</td>
 315 
              <td width="25%" align="right">MODCRC</td>
436 
            </tr>
 316 
            </tr>
437 
            <%
 317 
            <%
438 
            Dim uRL
 318 
            Dim uRL
439 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
319 
            While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
440 
                sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
 320 
                sLink = dpkg_archiveURL & pkgInfoHash.Item ("pkg_name") &"/"& pkgInfoHash.Item ("pkg_version") &"/"& Replace( rsQry("file_path") & rsQry("file_name"), "\", "/" )
Line 447... Line 327...
447 
                    sSize = rsQry("byte_size")
 327 
                    sSize = rsQry("byte_size")
448 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
 328 
                    sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"
449 
                End If
 329 
                End If
450
330
451 
            %>
 331 
            %>
452 
            <tr>
 332 
            <tr class="form_field_grey_bg body_txt_gray">
453 
              <td background="images/bg_form_lightgray.gif" nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=sIcon & rsQry("file_path") & rsQry("file_name")%></a></td>
 333 
              <td nowrap><a target="_blank" href="<%=sLink%>" class="body_txt_gray_link"><%=sIcon & rsQry("file_path") & rsQry("file_name")%></a></td>
454 
              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=sSize%></td>
 334 
              <td nowrap align="right"><%=sSize%></td>
455 
              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=rsQry("crc_cksum")%></td>
 335 
              <td nowrap align="right"><%=rsQry("crc_cksum")%></td>
456 
              <td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=rsQry("crc_modcrc")%></td>
 336 
              <td nowrap align="right"><%=rsQry("crc_modcrc")%></td>
457 
            </tr>
 337 
            </tr>
458 
            <%
 338 
            <%
459 
                rsQry.MoveNext
 339 
                rsQry.MoveNext
460 
            WEnd
 340 
            WEnd
461
- 
 
462 
            rsQry.Close()
 341 
            rsQry.Close()
463 
            Set rsQry = nothing
 342 
            Set rsQry = nothing
464 
            %>
 343 
            %>
465 
            </table><br>
 344 
            </table><br>
466
345
467 
            <%End If%>
 346 
            <%End If%>
468
- 
 
469
- 
 
470 
        <!-- ==================================================== -->
 - 
 
471 
        <!-- ==================================================== -->
 - 
 
472 
        <!-- ==================================================== -->
347 
        <!-- ==================================================== -->
473 
        <%End If%>
348 
        <%End If%>
474
349
475 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
350 
    <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
476 
    <%If pkgCompare Then %>
 351 
    <%If pkgCompare Then %>