| Line 106... |
Line 106... |
| 106 |
End If
|
106 |
End If
|
| 107 |
End Function
|
107 |
End Function
|
| 108 |
'----------------------------------------------------------------------------------------------------------------------
|
108 |
'----------------------------------------------------------------------------------------------------------------------
|
| 109 |
' Function to get the Version Control System type ID for ClearCase, based on the assumption that the TAG used for
|
109 |
' Function to get the Version Control System type ID for ClearCase, based on the assumption that the TAG used for
|
| 110 |
' ClearCase is 'CC'
|
110 |
' ClearCase is 'CC'
|
| 111 |
Function get_clearcase_vcs_type_id()
|
111 |
'Function get_clearcase_vcs_type_id()
|
| - |
|
112 |
' Dim rsTemp, Query_String
|
| - |
|
113 |
'
|
| - |
|
114 |
' Query_String = _
|
| - |
|
115 |
' " SELECT * FROM VCS_TYPE WHERE tag = 'CC'"
|
| - |
|
116 |
'
|
| - |
|
117 |
' Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| - |
|
118 |
' If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| - |
|
119 |
' get_clearcase_vcs_type_id = rsTemp("vcs_type_id")
|
| - |
|
120 |
' Else
|
| - |
|
121 |
' Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")
|
| - |
|
122 |
' End If
|
| - |
|
123 |
' rsTemp.Close
|
| - |
|
124 |
' Set rsTemp = nothing
|
| - |
|
125 |
'End Function
|
| - |
|
126 |
|
| - |
|
127 |
'----------------------------------------------------------------------------------------------------------------------
|
| - |
|
128 |
' Function to get the Version Control System type ID for Subversion, based on the assumption that the TAG used for
|
| - |
|
129 |
' Subversion is 'SVN'
|
| - |
|
130 |
Function get_subversion_vcs_type_id()
|
| 112 |
Dim rsTemp, Query_String
|
131 |
Dim rsTemp, Query_String
|
| 113 |
|
132 |
|
| 114 |
Query_String = _
|
133 |
Query_String = _
|
| 115 |
" SELECT * FROM VCS_TYPE WHERE tag = 'CC'"
|
134 |
" SELECT * FROM VCS_TYPE WHERE tag = 'SVN'"
|
| 116 |
|
135 |
|
| 117 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
136 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 118 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
137 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| 119 |
get_clearcase_vcs_type_id = rsTemp("vcs_type_id")
|
138 |
get_subversion_vcs_type_id = rsTemp("vcs_type_id")
|
| 120 |
Else
|
139 |
Else
|
| 121 |
Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")
|
140 |
Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Subversion, Tag: SVN")
|
| 122 |
End If
|
141 |
End If
|
| 123 |
rsTemp.Close
|
142 |
rsTemp.Close
|
| 124 |
Set rsTemp = nothing
|
143 |
Set rsTemp = nothing
|
| 125 |
End Function
|
144 |
End Function
|
| - |
|
145 |
|
| 126 |
'----------------------------------------------------------------------------------------------------------------------
|
146 |
'----------------------------------------------------------------------------------------------------------------------
|
| 127 |
' Function to get the Version Control System type ID for Uncontrolled, based on the assumption that the TAG used for
|
147 |
' Function to get the Version Control System type ID for Uncontrolled, based on the assumption that the TAG used for
|
| 128 |
' ClearCase is 'UC'
|
148 |
' ClearCase is 'UC'
|
| 129 |
Function get_uncontrolled_vcs_type_id()
|
149 |
Function get_uncontrolled_vcs_type_id()
|
| 130 |
Dim rsTemp, Query_String
|
150 |
Dim rsTemp, Query_String
|
| Line 143... |
Line 163... |
| 143 |
End Function
|
163 |
End Function
|
| 144 |
'----------------------------------------------------------------------------------------------------------------------
|
164 |
'----------------------------------------------------------------------------------------------------------------------
|
| 145 |
Sub Get_Form_Details( nPv_id, ByRef objDetails )
|
165 |
Sub Get_Form_Details( nPv_id, ByRef objDetails )
|
| 146 |
Dim rsTemp, Query_String
|
166 |
Dim rsTemp, Query_String
|
| 147 |
|
167 |
|
| 148 |
Dim CC_vcs_type_id
|
168 |
' Dim CC_vcs_type_id
|
| - |
|
169 |
Dim SVN_vcs_type_id
|
| 149 |
Dim UC_vcs_type_id
|
170 |
Dim UC_vcs_type_id
|
| 150 |
|
171 |
|
| 151 |
' Get VCS type IDs to use when evaluating legacy rows created before the introduction of the VCS tables and logic.
|
172 |
' Get VCS type IDs to use when evaluating legacy rows created before the introduction of the VCS tables and logic.
|
| 152 |
' These get uses in the query (see below) in the CASE statement.
|
173 |
' These get uses in the query (see below) in the CASE statement.
|
| 153 |
CC_vcs_type_id = get_clearcase_vcs_type_id()
|
174 |
' CC_vcs_type_id = get_clearcase_vcs_type_id()
|
| - |
|
175 |
SVN_vcs_type_id = get_subversion_vcs_type_id
|
| 154 |
UC_vcs_type_id = get_uncontrolled_vcs_type_id()
|
176 |
UC_vcs_type_id = get_uncontrolled_vcs_type_id()
|
| 155 |
|
177 |
|
| 156 |
Query_String = _
|
178 |
Query_String = _
|
| 157 |
" SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, pv.src_path, pv.pv_description,"&_
|
179 |
" SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, pv.src_path, pv.pv_description,"&_
|
| 158 |
" pv.pv_overview, pv.v_ext, is_deployable, is_build_env_required, pv.build_type,"&_
|
180 |
" pv.pv_overview, pv.v_ext, is_deployable, is_build_env_required, pv.build_type,"&_
|
| 159 |
" pv.bs_id, pv.dlocked,"&_
|
181 |
" pv.bs_id, pv.dlocked,"&_
|
| 160 |
" (CASE WHEN pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN "& UC_vcs_type_id &_
|
182 |
" (CASE WHEN pkg_label = 'N/A' AND pv.vcs_type_id IS NULL THEN "& UC_vcs_type_id &_
|
| 161 |
" WHEN pv.vcs_type_id IS NULL THEN " & CC_vcs_type_id &_
|
183 |
" WHEN pv.vcs_type_id IS NULL THEN " & SVN_vcs_type_id &_
|
| 162 |
" ELSE pv.vcs_type_id END) AS vcs_type_id "&_
|
184 |
" ELSE pv.vcs_type_id END) AS vcs_type_id "&_
|
| 163 |
" FROM package_versions pv, packages pkg"&_
|
185 |
" FROM package_versions pv, packages pkg"&_
|
| 164 |
" WHERE pv.pkg_id = pkg.pkg_id"&_
|
186 |
" WHERE pv.pkg_id = pkg.pkg_id"&_
|
| 165 |
" AND pv_id = "& nPv_id
|
187 |
" AND pv_id = "& nPv_id
|
| 166 |
|
188 |
|
| Line 392... |
Line 414... |
| 392 |
If criticalSectionIsEditable Then
|
414 |
If criticalSectionIsEditable Then
|
| 393 |
|
415 |
|
| 394 |
If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) OR _
|
416 |
If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) OR _
|
| 395 |
(objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then
|
417 |
(objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then
|
| 396 |
rsTemp.Fields("pkg_label").Value = SSLabel
|
418 |
rsTemp.Fields("pkg_label").Value = SSLabel
|
| 397 |
ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SVN_TAG) and isWIP Then
|
419 |
ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) and isWIP Then
|
| 398 |
rsTemp.Fields("pkg_label").Value = SSLabel
|
420 |
rsTemp.Fields("pkg_label").Value = SSLabel
|
| 399 |
Else
|
421 |
Else
|
| 400 |
rsTemp.Fields("pkg_label").Value = "N/A"
|
422 |
rsTemp.Fields("pkg_label").Value = "N/A"
|
| 401 |
End If
|
423 |
End If
|
| 402 |
|
424 |
|
| Line 469... |
Line 491... |
| 469 |
End Sub
|
491 |
End Sub
|
| 470 |
'----------------------------------------------------------------------------------------------------------------------
|
492 |
'----------------------------------------------------------------------------------------------------------------------
|
| 471 |
' Renders the HTML for the Version Control Settings drop down list box
|
493 |
' Renders the HTML for the Version Control Settings drop down list box
|
| 472 |
Sub RenderVCSCombo(nTag)
|
494 |
Sub RenderVCSCombo(nTag)
|
| 473 |
|
495 |
|
| - |
|
496 |
If IsNull(nTag) OR nTag = "" Then
|
| - |
|
497 |
nTag = enum_VCS_SUBVERSION_TAG
|
| - |
|
498 |
End If
|
| - |
|
499 |
|
| 474 |
Query_String = "SELECT * FROM vcs_type ORDER BY name"
|
500 |
Query_String = "SELECT * FROM vcs_type ORDER BY name"
|
| 475 |
|
501 |
|
| 476 |
Response.Write "<select id='vcs_name_combo' name='vcs_name_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='vcs_changed();'>"
|
502 |
Response.Write "<select id='vcs_name_combo' name='vcs_name_combo' class='form_item' "& disableCriticalSectionEdit &" onchange='vcs_changed();'>"
|
| 477 |
|
503 |
|
| 478 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
504 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|