| Line 29... |
Line 29... |
| 29 |
Dim parPv_id
|
29 |
Dim parPv_id
|
| 30 |
Dim query
|
30 |
Dim query
|
| 31 |
Dim rsQry, rsTemp
|
31 |
Dim rsQry, rsTemp
|
| 32 |
Dim checked
|
32 |
Dim checked
|
| 33 |
Dim FRdeployableYES, FRdeployableNO
|
33 |
Dim FRdeployableYES, FRdeployableNO
|
| - |
|
34 |
Dim FRs3SyncYES, FRs3SyncNO
|
| 34 |
Dim pageIsEditable, criticalSectionIsEditable
|
35 |
Dim pageIsEditable, criticalSectionIsEditable
|
| 35 |
Dim disableCriticalSectionEdit
|
36 |
Dim disableCriticalSectionEdit
|
| 36 |
Dim Query_String
|
37 |
Dim Query_String
|
| 37 |
Dim parVCSTag
|
38 |
Dim parVCSTag
|
| 38 |
Dim parBSName
|
39 |
Dim parBSName
|
| Line 130... |
Line 131... |
| 130 |
Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")
|
131 |
Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")
|
| 131 |
End If
|
132 |
End If
|
| 132 |
rsTemp.Close
|
133 |
rsTemp.Close
|
| 133 |
Set rsTemp = nothing
|
134 |
Set rsTemp = nothing
|
| 134 |
End Function
|
135 |
End Function
|
| - |
|
136 |
|
| - |
|
137 |
'----------------------------------------------------------------------------------------------------------------------
|
| - |
|
138 |
' Determine s3Sync State
|
| - |
|
139 |
' This is a property of the release, more than of a package
|
| - |
|
140 |
' Y, N, "<empty>"
|
| - |
|
141 |
Function getS3SyncState(nnRtagId, nnPvId)
|
| - |
|
142 |
Dim rsTemp, Query_String
|
| - |
|
143 |
getS3SyncState = ""
|
| - |
|
144 |
|
| - |
|
145 |
If nnRtagId <> "" Then
|
| - |
|
146 |
Query_String = "Select NVL(S3SYNC, 'N') as S3SYNC from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
| - |
|
147 |
|
| - |
|
148 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| - |
|
149 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| - |
|
150 |
getS3SyncState = rsTemp("S3SYNC")
|
| - |
|
151 |
If getS3SyncState <> "Y" Then getS3SyncState = "N"
|
| - |
|
152 |
End If
|
| - |
|
153 |
|
| - |
|
154 |
rsTemp.Close
|
| - |
|
155 |
Set rsTemp = nothing
|
| - |
|
156 |
End If
|
| - |
|
157 |
End Function
|
| - |
|
158 |
|
| - |
|
159 |
' Update the S3Sycn State, but only if th evalue has changed
|
| - |
|
160 |
Sub updateS3SyncState( nnRtagId, nnPvId, cState)
|
| - |
|
161 |
Dim rsTemp, Query_String
|
| - |
|
162 |
|
| - |
|
163 |
If nnRtagId <> "" Then
|
| - |
|
164 |
Query_String = "Select S3SYNC from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
| - |
|
165 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
| - |
|
166 |
|
| - |
|
167 |
Dim Data: Data = rsTemp("S3SYNC")
|
| - |
|
168 |
If IsNull(Data) Then Data = "N"
|
| - |
|
169 |
cState = Iif( cState = 1 ,"Y", "N")
|
| - |
|
170 |
If ( UCase(cState) <> UCase( Data ) ) Then
|
| - |
|
171 |
rsTemp.Edit
|
| - |
|
172 |
rsTemp.Fields("S3SYNC").Value = UCase(cState)
|
| - |
|
173 |
rsTemp.Update
|
| - |
|
174 |
End If
|
| - |
|
175 |
|
| - |
|
176 |
rsTemp.Close
|
| - |
|
177 |
Set rsTemp = nothing
|
| - |
|
178 |
|
| - |
|
179 |
End If
|
| - |
|
180 |
End Sub
|
| - |
|
181 |
|
| 135 |
'----------------------------------------------------------------------------------------------------------------------
|
182 |
'----------------------------------------------------------------------------------------------------------------------
|
| 136 |
Sub Get_Form_Details( nPv_id, ByRef objDetails )
|
183 |
Sub Get_Form_Details( nPv_id, ByRef objDetails )
|
| 137 |
Dim rsTemp, Query_String
|
184 |
Dim rsTemp, Query_String
|
| 138 |
|
185 |
|
| 139 |
' Dim CC_vcs_type_id
|
186 |
' Dim CC_vcs_type_id
|
| Line 205... |
Line 252... |
| 205 |
|
252 |
|
| 206 |
End If
|
253 |
End If
|
| 207 |
|
254 |
|
| 208 |
rsTemp.Close
|
255 |
rsTemp.Close
|
| 209 |
Set rsTemp = Nothing
|
256 |
Set rsTemp = Nothing
|
| - |
|
257 |
|
| - |
|
258 |
'
|
| - |
|
259 |
' Get other items needed for the form
|
| - |
|
260 |
objDetails.Item("s3Sync") = getS3SyncState(parRtag_id, nPv_id)
|
| - |
|
261 |
|
| 210 |
End Sub
|
262 |
End Sub
|
| 211 |
'----------------------------------------------------------------------------------------------------------------------
|
263 |
'----------------------------------------------------------------------------------------------------------------------
|
| 212 |
' Updates the database, specifically the is_build_env_required flag setting in the package_versions table
|
264 |
' Updates the database, specifically the is_build_env_required flag setting in the package_versions table
|
| 213 |
' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.
|
265 |
' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.
|
| 214 |
Sub UpdateIsBuildEnvRequired( nPv_id, nBs_name )
|
266 |
Sub UpdateIsBuildEnvRequired( nPv_id, nBs_name )
|
| Line 365... |
Line 417... |
| 365 |
End Sub
|
417 |
End Sub
|
| 366 |
'----------------------------------------------------------------------------------------------------------------------
|
418 |
'----------------------------------------------------------------------------------------------------------------------
|
| 367 |
' This is the overall database update function called when the user hits the submit button on the form.
|
419 |
' This is the overall database update function called when the user hits the submit button on the form.
|
| 368 |
' It does some minor updates itself, but most of the work is done in subroutines.
|
420 |
' It does some minor updates itself, but most of the work is done in subroutines.
|
| 369 |
' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.
|
421 |
' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.
|
| 370 |
Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview )
|
422 |
Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview, NNs3Sync )
|
| 371 |
Dim rsTemp, Query_String
|
423 |
Dim rsTemp, Query_String
|
| 372 |
|
424 |
|
| 373 |
On Error Resume Next
|
425 |
On Error Resume Next
|
| 374 |
|
426 |
|
| 375 |
Query_String = _
|
427 |
Query_String = _
|
| Line 415... |
Line 467... |
| 415 |
' Update the 'is build_env_required' flag for this PV_ID
|
467 |
' Update the 'is build_env_required' flag for this PV_ID
|
| 416 |
Call UpdateIsBuildEnvRequired( NNpv_id, objFormCollector.Item("bs_name") )
|
468 |
Call UpdateIsBuildEnvRequired( NNpv_id, objFormCollector.Item("bs_name") )
|
| 417 |
|
469 |
|
| 418 |
' Update the package_build_info table for this PV_ID
|
470 |
' Update the package_build_info table for this PV_ID
|
| 419 |
Call UpdatePackageBuildInfo( NNpv_id )
|
471 |
Call UpdatePackageBuildInfo( NNpv_id )
|
| - |
|
472 |
|
| - |
|
473 |
' Update the S3 Sync State
|
| - |
|
474 |
Call updateS3SyncState( parRtag_id, NNpv_id, NNs3Sync)
|
| - |
|
475 |
|
| 420 |
End If
|
476 |
End If
|
| 421 |
End Sub
|
477 |
End Sub
|
| 422 |
'----------------------------------------------------------------------------------------------------------------------
|
478 |
'----------------------------------------------------------------------------------------------------------------------
|
| 423 |
Function ShowHideBuildType( sBuildEnvChecked )
|
479 |
Function ShowHideBuildType( sBuildEnvChecked )
|
| 424 |
|
480 |
|
| Line 564... |
Line 620... |
| 564 |
|
620 |
|
| 565 |
'--- Process Submission ---------------
|
621 |
'--- Process Submission ---------------
|
| 566 |
If objForm.IsPostBack Then
|
622 |
If objForm.IsPostBack Then
|
| 567 |
' has the user pressed the submit button?
|
623 |
' has the user pressed the submit button?
|
| 568 |
If Request("btn") = "Submit" Then
|
624 |
If Request("btn") = "Submit" Then
|
| 569 |
Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview") )
|
625 |
Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview"), QStrPar("FRs3Sync") )
|
| 570 |
Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
|
626 |
Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
|
| 571 |
Call CloseWindow
|
627 |
Call CloseWindow
|
| 572 |
Call Destroy_All_Objects
|
628 |
Call Destroy_All_Objects
|
| 573 |
Response.End
|
629 |
Response.End
|
| 574 |
End If
|
630 |
End If
|
| Line 920... |
Line 976... |
| 920 |
}
|
976 |
}
|
| 921 |
|
977 |
|
| 922 |
//
|
978 |
//
|
| 923 |
// Local form tips
|
979 |
// Local form tips
|
| 924 |
formTips.tips.deployable = newTip(-150, 20, 150, 10, 'DEPLOYABLE','Select YES if this package or certain files of this package have to be deployed to the field.');
|
980 |
formTips.tips.deployable = newTip(-150, 20, 150, 10, 'DEPLOYABLE','Select YES if this package or certain files of this package have to be deployed to the field.');
|
| - |
|
981 |
formTips.tips.s3Sync = newTip(-150, 20, 150, 10, 'SYNC to S3','Select YES if this package contains an S3TRANSFER section.<p>'+
|
| - |
|
982 |
'The files in this section will be synced to an S3 bucket, if the S3Sync is enabled on the Release.<p>'+
|
| - |
|
983 |
'The target bucket name is based on the rtagId'+'<p>Cannot be altered until the package has been released');
|
| 925 |
formTips.tips.pkg_info_short_desc = newTip(-150, 20, 150, 10, 'SHORT DESCRIPTION','Describe the meaning of the package name.');
|
984 |
formTips.tips.pkg_info_short_desc = newTip(-150, 20, 150, 10, 'SHORT DESCRIPTION','Describe the meaning of the package name.');
|
| 926 |
formTips.tips.pkg_info_overview = newTip(-150, 20, 150, 10, 'PACKAGE OVERVIEW','Describe in a paragraph what does the package do.<br>NOTE: You have to do this only once!');
|
985 |
formTips.tips.pkg_info_overview = newTip(-150, 20, 150, 10, 'PACKAGE OVERVIEW','Describe in a paragraph what does the package do.<br>NOTE: You have to do this only once!');
|
| 927 |
formTips.tips.build_environment = newTip(-150, 20, 150, 10, 'BUILD ENVIRONMENT','Select which build environments are used to build this package.');
|
986 |
formTips.tips.build_environment = newTip(-150, 20, 150, 10, 'BUILD ENVIRONMENT','Select which build environments are used to build this package.');
|
| 928 |
|
987 |
|
| 929 |
|
988 |
|
| Line 979... |
Line 1038... |
| 979 |
End If
|
1038 |
End If
|
| 980 |
%>
|
1039 |
%>
|
| 981 |
<td nowrap>Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
|
1040 |
<td nowrap>Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
|
| 982 |
No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
|
1041 |
No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
|
| 983 |
</tr>
|
1042 |
</tr>
|
| - |
|
1043 |
<%If parRtag_id <> "" Then%>
|
| - |
|
1044 |
<tr>
|
| - |
|
1045 |
<td nowrap>Sync to S3?<%=Quick_Help ( "s3Sync" )%></td>
|
| - |
|
1046 |
<%
|
| - |
|
1047 |
Dim FRs3SyncDisabled
|
| - |
|
1048 |
FRs3SyncYES = ""
|
| - |
|
1049 |
FRs3SyncNO = ""
|
| - |
|
1050 |
|
| - |
|
1051 |
If objForm.IsPostBack Then
|
| - |
|
1052 |
If Request("FRs3Sync") = "1" Then
|
| - |
|
1053 |
FRs3SyncYES = "checked"
|
| - |
|
1054 |
Else
|
| - |
|
1055 |
FRs3SyncNO = "checked"
|
| - |
|
1056 |
End If
|
| - |
|
1057 |
|
| - |
|
1058 |
Else
|
| - |
|
1059 |
If objFormCollector.Item("s3Sync") = "" Then
|
| - |
|
1060 |
FRs3SyncDisabled = "disabled"
|
| - |
|
1061 |
Else
|
| - |
|
1062 |
If objFormCollector.Item("s3Sync") = enumDB_YES Then
|
| - |
|
1063 |
FRs3SyncYES = "checked"
|
| - |
|
1064 |
Else
|
| - |
|
1065 |
FRs3SyncNO = "checked"
|
| - |
|
1066 |
End If
|
| - |
|
1067 |
End If
|
| - |
|
1068 |
|
| - |
|
1069 |
End If
|
| - |
|
1070 |
%>
|
| - |
|
1071 |
<td nowrap>Yes<input name="FRs3Sync" type="radio" value="1" <%=FRs3SyncDisabled%> <%=FRs3SyncYES%>>
|
| - |
|
1072 |
No<input name="FRs3Sync" type="radio" value="0" <%=FRs3SyncDisabled%> <%=FRs3SyncNO%>></td>
|
| - |
|
1073 |
</tr>
|
| - |
|
1074 |
<%End If%>
|
| 984 |
<tr>
|
1075 |
<tr>
|
| 985 |
<td nowrap>Version Control System</td>
|
1076 |
<td nowrap>Version Control System</td>
|
| 986 |
<td nowrap>
|
1077 |
<td nowrap>
|
| 987 |
<% Call RenderVCSCombo(objFormCollector.Item("vcs_tag"))%>
|
1078 |
<% Call RenderVCSCombo(objFormCollector.Item("vcs_tag"))%>
|
| 988 |
<%If (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) OR (objFormCollector.Item("vcs_tag") = enum_VCS_GIT_TAG) Then%>
|
1079 |
<%If (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) OR (objFormCollector.Item("vcs_tag") = enum_VCS_GIT_TAG) Then%>
|