Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6750
Line 34... Line 34...
34 
parFRrtag_id = QStrPar("FRrtag_id")
 34 
parFRrtag_id = QStrPar("FRrtag_id")
35 
parFRproj_id = QStrPar("FRproj_id")
 35 
parFRproj_id = QStrPar("FRproj_id")
36 
sMessage = NULL
 36 
sMessage = NULL
37 
sMessageType = 3
 37 
sMessageType = 3
38 
bCanImport = TRUE
 38 
bCanImport = TRUE
- 
 
 39 
 
39 
If parFRproj_id = "" Then parFRproj_id = -1
 40 
If parFRproj_id = "" Then parFRproj_id = -1
40 
If parFRrtag_id = "" Then parFRrtag_id = -1
 41 
If parFRrtag_id = "" Then parFRrtag_id = -1
41 
'----------------------------------------------
 42 
'----------------------------------------------
42 
%>
 43 
%>
43 
<%
 44 
<%
Line 148... Line 149...
148 
    If (NSrcRtag_id <> "") AND (NDstRtag_id <> "") Then
 149 
    If (NSrcRtag_id <> "") AND (NDstRtag_id <> "") Then
149 
        ' All mandatory parameters FOUND
 150 
        ' All mandatory parameters FOUND
150 
        ' COMPLETE THE REQUEST...
 151 
        ' COMPLETE THE REQUEST...
151 
 
 152 
 
152 
        On Error Resume Next
 153 
        On Error Resume Next
153 
        objEH.ErrorRedirect = TRUE
 154 
        objEH.ErrorRedirect = FALSE
154
155
155 
        OraDatabase.Parameters.Add "FROMRTAG_ID", NSrcRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
156 
        OraDatabase.Parameters.Add "FROMRTAG_ID", NSrcRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
156 
        OraDatabase.Parameters.Add "TORTAG_ID",   NDstRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
157 
        OraDatabase.Parameters.Add "TORTAG_ID",   NDstRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
157 
        OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
158 
        OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
158
159
159
- 
 
160 
        objEH.TryORA ( OraSession )
 160 
        objEH.TryORA ( OraSession )
161
161
162 
        ' Remove old Work in Progress Contents
 162 
        ' Remove old Work in Progress Contents
163 
        OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.IMPORT_DAEMONS (:FROMRTAG_ID, :TORTAG_ID, :USER_ID); END;"
 163 
        OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.IMPORT_DAEMONS (:FROMRTAG_ID, :TORTAG_ID, :USER_ID); END;"
164
164
Line 166... Line 166...
166
166
167 
        OraDatabase.Parameters.Remove "FROMRTAG_ID"
 167 
        OraDatabase.Parameters.Remove "FROMRTAG_ID"
168 
        OraDatabase.Parameters.Remove "TORTAG_ID"
 168 
        OraDatabase.Parameters.Remove "TORTAG_ID"
169 
        OraDatabase.Parameters.Remove "USER_ID"
 169 
        OraDatabase.Parameters.Remove "USER_ID"
170
170
171
- 
 
172 
        If objEH.Finally Then
 171 
        If objEH.Finally Then
173 
            OpenInParentWindow("build_status.asp?rtag_id="& NDstRtag_id )
 172 
            OpenInParentWindow("build_status.asp?rtag_id="& NDstRtag_id )
174 
            Call Destroy_All_Objects
 173 
            Call Destroy_All_Objects
175 
            Response.End
 174 
            Response.End
176 
        End If
 175 
        End If
177
176
- 
 
 177 
        sMessage = "Failure"
178 
    Else
 178 
    Else
179 
        Call sMessageAdd( 1, "Internal: Some mandatory parameters are missing!<br>" & QSTR_FullQuery )
 179 
        Call sMessageAdd( 1, "Internal: Some mandatory parameters are missing!<br>" & QSTR_FullQuery )
180 
        parFRproj_id = -1
 180 
        parFRproj_id = -1
181 
        parFRrtag_id = -1
 181 
        parFRrtag_id = -1
182 
    End If
 182 
    End If
Line 185... Line 185...
185 
%>
 185 
%>
186 
<%
 186 
<%
187 
'Process submition
 187 
'Process submition
188 
If CBool(QStrPar("action")) Then
 188 
If CBool(QStrPar("action")) Then
189 
    Call importDaemons(Request.Form("FromRtag_id"),Request("rtag_id"))
 189 
    Call importDaemons(Request.Form("FromRtag_id"),Request("rtag_id"))
190 
End If
 - 
 
191 
 
 - 
 
192 
' Run before render
 - 
 
193 
hasDaemons = check_for_daemons(Request("rtag_id"), False)
 - 
 
194 
importHasDaemons = check_for_daemons(parFRrtag_id, True)
 - 
 
195 
 
 - 
 
196 
If hasDaemons Then
 - 
 
197 
    Call sMessageAdd( 2, "The current release already has build daemons configured. It is not possible to import a daemon configuration into this release.")
 - 
 
198 
    bCanImport = FALSE
 - 
 
199 
ElseIf NOT importHasDaemons AND (parFRrtag_id > 0) Then
 - 
 
200 
    Call sMessageAdd(2, "No Daemons in this Release to be imported")
 - 
 
201 
    bCanImport = FALSE
 190 
    bCanImport = FALSE
- 
 
 191 
    parFRproj_id = -1
- 
 
 192 
    parFRrtag_id = -1
- 
 
 193 
 
- 
 
 194 
Else
- 
 
 195 
    ' Run before render
- 
 
 196 
    hasDaemons = check_for_daemons(Request("rtag_id"), False)
- 
 
 197 
    importHasDaemons = check_for_daemons(parFRrtag_id, True)
- 
 
 198 
 
- 
 
 199 
    If hasDaemons Then
- 
 
 200 
        Call sMessageAdd( 2, "The current release already has build daemons configured. It is not possible to import a daemon configuration into this release.")
- 
 
 201 
        bCanImport = FALSE
- 
 
 202 
    ElseIf NOT importHasDaemons AND (parFRrtag_id > 0) Then
- 
 
 203 
        Call sMessageAdd(2, "No Daemons in this Release to be imported")
- 
 
 204 
        bCanImport = FALSE
- 
 
 205 
    End If
202 
End If
 206 
End If
203 
%>
 207 
%>
204 
<html>
 208 
<html>
205 
<head>
 209 
<head>
206 
<title>Release Manager</title>
 210 
<title>Release Manager</title>