| 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 FRinManifestYES, FRinManifestNO
|
| 35 |
Dim pageIsEditable, criticalSectionIsEditable
|
35 |
Dim pageIsEditable, criticalSectionIsEditable
|
| 36 |
Dim disableCriticalSectionEdit
|
36 |
Dim disableCriticalSectionEdit
|
| 37 |
Dim Query_String
|
37 |
Dim Query_String
|
| 38 |
Dim parVCSTag
|
38 |
Dim parVCSTag
|
| 39 |
Dim parBSName
|
39 |
Dim parBSName
|
| Line 133... |
Line 133... |
| 133 |
rsTemp.Close
|
133 |
rsTemp.Close
|
| 134 |
Set rsTemp = nothing
|
134 |
Set rsTemp = nothing
|
| 135 |
End Function
|
135 |
End Function
|
| 136 |
|
136 |
|
| 137 |
'----------------------------------------------------------------------------------------------------------------------
|
137 |
'----------------------------------------------------------------------------------------------------------------------
|
| 138 |
' Determine s3Sync State
|
138 |
' Determine InManifest State
|
| 139 |
' This is a property of the release, more than of a package
|
139 |
' This is a property of the release, more than of a package
|
| 140 |
' Y, N, "<empty>"
|
140 |
' Y, N, "<empty>"
|
| 141 |
Function getS3SyncState(nnRtagId, nnPvId)
|
141 |
Function getInManifestState(nnRtagId, nnPvId)
|
| 142 |
Dim rsTemp, Query_String
|
142 |
Dim rsTemp, Query_String
|
| 143 |
getS3SyncState = ""
|
143 |
getInManifestState = ""
|
| 144 |
|
144 |
|
| 145 |
If nnRtagId <> "" Then
|
145 |
If nnRtagId <> "" Then
|
| 146 |
Query_String = "Select NVL(S3SYNC, 'N') as S3SYNC from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
146 |
Query_String = "Select NVL(IN_MANIFEST, 'N') as inManifest from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
| 147 |
|
147 |
|
| 148 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
148 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 149 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
149 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| 150 |
getS3SyncState = rsTemp("S3SYNC")
|
150 |
getInManifestState = rsTemp("inManifest")
|
| 151 |
If getS3SyncState <> "Y" Then getS3SyncState = "N"
|
151 |
If getInManifestState <> "Y" Then getInManifestState = "N"
|
| 152 |
End If
|
152 |
End If
|
| 153 |
|
153 |
|
| 154 |
rsTemp.Close
|
154 |
rsTemp.Close
|
| 155 |
Set rsTemp = nothing
|
155 |
Set rsTemp = nothing
|
| 156 |
End If
|
156 |
End If
|
| 157 |
End Function
|
157 |
End Function
|
| 158 |
|
158 |
|
| 159 |
' Update the S3Sycn State, but only if th evalue has changed
|
159 |
' Update the S3Sycn State, but only if th evalue has changed
|
| 160 |
Sub updateS3SyncState( nnRtagId, nnPvId, cState)
|
160 |
Sub updateInManifestState( nnRtagId, nnPvId, cState)
|
| 161 |
Dim rsTemp, Query_String
|
161 |
Dim rsTemp, Query_String
|
| 162 |
|
162 |
|
| 163 |
If nnRtagId <> "" Then
|
163 |
If nnRtagId <> "" Then
|
| 164 |
Query_String = "Select S3SYNC from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
164 |
Query_String = "Select IN_MANIFEST from Release_Content where rtag_id = " & nnRtagId & " AND pv_id = " & nnPvId
|
| 165 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
165 |
Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
|
| 166 |
|
166 |
|
| 167 |
Dim Data: Data = rsTemp("S3SYNC")
|
167 |
Dim Data: Data = rsTemp("IN_MANIFEST")
|
| 168 |
If IsNull(Data) Then Data = "N"
|
168 |
If IsNull(Data) Then Data = "N"
|
| 169 |
cState = Iif( cState = 1 ,"Y", "N")
|
169 |
cState = Iif( cState = 1 ,"Y", "N")
|
| 170 |
If ( UCase(cState) <> UCase( Data ) ) Then
|
170 |
If ( UCase(cState) <> UCase( Data ) ) Then
|
| 171 |
rsTemp.Edit
|
171 |
rsTemp.Edit
|
| 172 |
rsTemp.Fields("S3SYNC").Value = UCase(cState)
|
172 |
rsTemp.Fields("IN_MANIFEST").Value = UCase(cState)
|
| 173 |
rsTemp.Update
|
173 |
rsTemp.Update
|
| 174 |
|
174 |
|
| 175 |
' Indicate change to the build system
|
175 |
' Indicate change to the build system
|
| 176 |
' May be overkill - perhaps a seperate field
|
176 |
' May be overkill - perhaps a seperate field
|
| 177 |
OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED("& nnRtagId & "); END; ")
|
177 |
OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED("& nnRtagId & "); END; ")
|
| Line 260... |
Line 260... |
| 260 |
rsTemp.Close
|
260 |
rsTemp.Close
|
| 261 |
Set rsTemp = Nothing
|
261 |
Set rsTemp = Nothing
|
| 262 |
|
262 |
|
| 263 |
'
|
263 |
'
|
| 264 |
' Get other items needed for the form
|
264 |
' Get other items needed for the form
|
| 265 |
objDetails.Item("s3Sync") = getS3SyncState(parRtag_id, nPv_id)
|
265 |
objDetails.Item("InManifest") = getInManifestState(parRtag_id, nPv_id)
|
| 266 |
|
266 |
|
| 267 |
End Sub
|
267 |
End Sub
|
| 268 |
'----------------------------------------------------------------------------------------------------------------------
|
268 |
'----------------------------------------------------------------------------------------------------------------------
|
| 269 |
' Updates the database, specifically the is_build_env_required flag setting in the package_versions table
|
269 |
' Updates the database, specifically the is_build_env_required flag setting in the package_versions table
|
| 270 |
' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.
|
270 |
' The update is only performed if it is needed, ie. if the value is already correct, no update is needed.
|
| Line 422... |
Line 422... |
| 422 |
End Sub
|
422 |
End Sub
|
| 423 |
'----------------------------------------------------------------------------------------------------------------------
|
423 |
'----------------------------------------------------------------------------------------------------------------------
|
| 424 |
' This is the overall database update function called when the user hits the submit button on the form.
|
424 |
' This is the overall database update function called when the user hits the submit button on the form.
|
| 425 |
' It does some minor updates itself, but most of the work is done in subroutines.
|
425 |
' It does some minor updates itself, but most of the work is done in subroutines.
|
| 426 |
' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.
|
426 |
' No attempt is made to keep the entire set of updates atomic. There really is no need to do that.
|
| 427 |
Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview, NNs3Sync )
|
427 |
Sub Update_Pkg_Info ( NNpv_id, NNdeployable, SSLabel, SSPath, SSdesc, SSoverview, NNInManifest )
|
| 428 |
Dim rsTemp, Query_String
|
428 |
Dim rsTemp, Query_String
|
| 429 |
|
429 |
|
| 430 |
On Error Resume Next
|
430 |
On Error Resume Next
|
| 431 |
|
431 |
|
| 432 |
Query_String = _
|
432 |
Query_String = _
|
| Line 474... |
Line 474... |
| 474 |
|
474 |
|
| 475 |
' Update the package_build_info table for this PV_ID
|
475 |
' Update the package_build_info table for this PV_ID
|
| 476 |
Call UpdatePackageBuildInfo( NNpv_id )
|
476 |
Call UpdatePackageBuildInfo( NNpv_id )
|
| 477 |
|
477 |
|
| 478 |
' Update the S3 Sync State
|
478 |
' Update the S3 Sync State
|
| 479 |
Call updateS3SyncState( parRtag_id, NNpv_id, NNs3Sync)
|
479 |
Call updateInManifestState( parRtag_id, NNpv_id, NNInManifest)
|
| 480 |
|
480 |
|
| 481 |
End If
|
481 |
End If
|
| 482 |
End Sub
|
482 |
End Sub
|
| 483 |
'----------------------------------------------------------------------------------------------------------------------
|
483 |
'----------------------------------------------------------------------------------------------------------------------
|
| 484 |
Function ShowHideBuildType( sBuildEnvChecked )
|
484 |
Function ShowHideBuildType( sBuildEnvChecked )
|
| Line 625... |
Line 625... |
| 625 |
|
625 |
|
| 626 |
'--- Process Submission ---------------
|
626 |
'--- Process Submission ---------------
|
| 627 |
If objForm.IsPostBack Then
|
627 |
If objForm.IsPostBack Then
|
| 628 |
' has the user pressed the submit button?
|
628 |
' has the user pressed the submit button?
|
| 629 |
If Request("btn") = "Submit" Then
|
629 |
If Request("btn") = "Submit" Then
|
| 630 |
Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview"), QStrPar("FRs3Sync") )
|
630 |
Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview"), QStrPar("FRinManifest") )
|
| 631 |
Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
|
631 |
Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
|
| 632 |
Call CloseWindow
|
632 |
Call CloseWindow
|
| 633 |
Call Destroy_All_Objects
|
633 |
Call Destroy_All_Objects
|
| 634 |
Response.End
|
634 |
Response.End
|
| 635 |
End If
|
635 |
End If
|
| Line 981... |
Line 981... |
| 981 |
}
|
981 |
}
|
| 982 |
|
982 |
|
| 983 |
//
|
983 |
//
|
| 984 |
// Local form tips
|
984 |
// Local form tips
|
| 985 |
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.');
|
985 |
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.');
|
| 986 |
formTips.tips.s3Sync = newTip(-150, 20, 300, 10, 'SYNC to S3','Select YES if this package contains an s3Transfer.json file.<p>'+
|
986 |
formTips.tips.InManifest = newTip(-150, 20, 300, 10, 'Include in Manifest','When enabled and the Release is also configured to support S3 Manifests then this package-version will be available in the manifest');
|
| 987 |
'The files in this section will be synced to an S3 bucket, if the S3Sync is enabled on the Release.<p>'+
|
- |
|
| 988 |
'The target bucket name is based on the rtagId'+'<p>Cannot be altered until the package has been released');
|
- |
|
| - |
|
987 |
|
| 989 |
formTips.tips.pkg_info_short_desc = newTip(-150, 20, 150, 10, 'SHORT DESCRIPTION','Describe the meaning of the package name.');
|
988 |
formTips.tips.pkg_info_short_desc = newTip(-150, 20, 150, 10, 'SHORT DESCRIPTION','Describe the meaning of the package name.');
|
| 990 |
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!');
|
989 |
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!');
|
| 991 |
formTips.tips.build_environment = newTip(-150, 10, 150, 10, 'BUILD ENVIRONMENT','Select which build environments are used to build this package.');
|
990 |
formTips.tips.build_environment = newTip(-150, 10, 150, 10, 'BUILD ENVIRONMENT','Select which build environments are used to build this package.');
|
| 992 |
|
991 |
|
| 993 |
|
992 |
|
| Line 1045... |
Line 1044... |
| 1045 |
<td nowrap>Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
|
1044 |
<td nowrap>Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
|
| 1046 |
No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
|
1045 |
No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
|
| 1047 |
</tr>
|
1046 |
</tr>
|
| 1048 |
<%If parRtag_id <> "" Then%>
|
1047 |
<%If parRtag_id <> "" Then%>
|
| 1049 |
<tr>
|
1048 |
<tr>
|
| 1050 |
<td nowrap>Sync to S3?<%=Quick_Help ( "s3Sync" )%></td>
|
1049 |
<td nowrap>Include in Manifest<%=Quick_Help ( "InManifest" )%></td>
|
| 1051 |
<%
|
1050 |
<%
|
| 1052 |
Dim FRs3SyncDisabled
|
1051 |
Dim FRinManifestDisabled
|
| 1053 |
FRs3SyncYES = ""
|
1052 |
FRinManifestYES = ""
|
| 1054 |
FRs3SyncNO = ""
|
1053 |
FRinManifestNO = ""
|
| 1055 |
|
1054 |
|
| 1056 |
If objForm.IsPostBack Then
|
1055 |
If objForm.IsPostBack Then
|
| 1057 |
If Request("FRs3Sync") = "1" Then
|
1056 |
If Request("FRinManifest") = "1" Then
|
| 1058 |
FRs3SyncYES = "checked"
|
1057 |
FRinManifestYES = "checked"
|
| 1059 |
Else
|
1058 |
Else
|
| 1060 |
FRs3SyncNO = "checked"
|
1059 |
FRinManifestNO = "checked"
|
| 1061 |
End If
|
1060 |
End If
|
| 1062 |
|
1061 |
|
| 1063 |
Else
|
1062 |
Else
|
| 1064 |
If objFormCollector.Item("s3Sync") = "" Then
|
1063 |
If objFormCollector.Item("InManifest") = "" Then
|
| 1065 |
FRs3SyncDisabled = "disabled"
|
1064 |
FRinManifestDisabled = "disabled"
|
| 1066 |
Else
|
1065 |
Else
|
| 1067 |
If objFormCollector.Item("s3Sync") = enumDB_YES Then
|
1066 |
If objFormCollector.Item("InManifest") = enumDB_YES Then
|
| 1068 |
FRs3SyncYES = "checked"
|
1067 |
FRinManifestYES = "checked"
|
| 1069 |
Else
|
1068 |
Else
|
| 1070 |
FRs3SyncNO = "checked"
|
1069 |
FRinManifestNO = "checked"
|
| 1071 |
End If
|
1070 |
End If
|
| 1072 |
End If
|
1071 |
End If
|
| 1073 |
|
1072 |
|
| 1074 |
End If
|
1073 |
End If
|
| 1075 |
%>
|
1074 |
%>
|
| 1076 |
<td nowrap>Yes<input name="FRs3Sync" type="radio" value="1" <%=FRs3SyncDisabled%> <%=FRs3SyncYES%>>
|
1075 |
<td nowrap>Yes<input name="FRinManifest" type="radio" value="1" <%=FRinManifestDisabled%> <%=FRinManifestYES%>>
|
| 1077 |
No<input name="FRs3Sync" type="radio" value="0" <%=FRs3SyncDisabled%> <%=FRs3SyncNO%>></td>
|
1076 |
No<input name="FRinManifest" type="radio" value="0" <%=FRinManifestDisabled%> <%=FRinManifestNO%>></td>
|
| 1078 |
</tr>
|
1077 |
</tr>
|
| 1079 |
<%End If%>
|
1078 |
<%End If%>
|
| 1080 |
<tr>
|
1079 |
<tr>
|
| 1081 |
<td nowrap>Version Control System</td>
|
1080 |
<td nowrap>Version Control System</td>
|
| 1082 |
<td nowrap>
|
1081 |
<td nowrap>
|