Subversion Repositories DevTools

Rev

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

Rev 5097 Rev 5098
Line 1... Line 1...
1 
<%
 1 
<%
2 
'=====================================================
 2 
'=====================================================
3 
'                COMMON SUBs Part 1
 3 
'                COMMON SUBs Part 1
4 
'=====================================================
 4 
'=====================================================
5 
Dim haveCommonSubs: haveCommonSubs = 1
 5 
Const haveCommonSubs = 1
6 
%>
 6 
%>
7 
<%
 7 
<%
8 
'-----------------------------------------------------------------------------------------------------------------------------
 8 
'-----------------------------------------------------------------------------------------------------------------------------
9 
Sub CloseWindow
 9 
Sub CloseWindow
10 
%>
 10 
%>
Line 477... Line 477...
477 
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
 477 
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
478 
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
 478 
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
479 
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
 479 
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
480 
          pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
 480 
          pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
481 
          pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
 481 
          pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
- 
 
 482 
          pkgInfoHash.Add "is_pegged", (rsTemp.Fields("pegged") <> 0)
482 
 
 483 
 
483 
       Else
 484 
       Else
484 
          ' -- Package Version is not a member of the specified release
 485 
          ' -- Package Version is not a member of the specified release
485 
          '    Get Basic Release and Project Details
 486 
          '    Get Basic Release and Project Details
486 
          Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
 487 
          Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
Line 1890... Line 1891...
1890 
       NiceInt = CInt(val)
 1891 
       NiceInt = CInt(val)
1891 
   Else
 1892 
   Else
1892 
       NiceInt = def
 1893 
       NiceInt = def
1893 
   End If
 1894 
   End If
1894 
End Function
 1895 
End Function
1895 
 
 - 
 
1896 
%>
 1896 
%>