WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_json_Replication.asp



        OraDatabase.Parameters.Add "STATE",             parState,       ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "UPDATE BLAT_PROJECTS SET BP_ENABLED = :STATE where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"
        OraDatabase.ExecuteSQL SqlQry
 
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "PROJ_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
        OraDatabase.Parameters.Remove "STATE"
 

        OraDatabase.Parameters.Add "PROJ_ID",           parProjId,      ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "SERVER_ID",         parServerId,    ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "DELETE FROM BLAT_PROJECTS where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"
        OraDatabase.ExecuteSQL SqlQry
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "PROJ_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
 

        OraDatabase.Parameters.Add "PROJ_ID",           parProjId,      ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "SERVER_ID",         parServerId,    ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "INSERT INTO BLAT_PROJECTS (BLAT_ID,proj_id) VALUES( :SERVER_ID, :PROJ_ID)"
        OraDatabase.ExecuteSQL SqlQry
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "PROJ_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
 

        OraDatabase.Parameters.Add "SERVER_ID",         parServerId,    ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "STATE",             parState,       ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "UPDATE BLAT_RELEASES SET BR_ENABLED = :STATE where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"
        OraDatabase.ExecuteSQL SqlQry
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "RTAG_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
        OraDatabase.Parameters.Remove "STATE"

        OraDatabase.Parameters.Add "RTAG_ID",           parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "SERVER_ID",         parServerId,    ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "DELETE FROM BLAT_RELEASES where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"
        OraDatabase.ExecuteSQL SqlQry
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "RTAG_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
 

        OraDatabase.Parameters.Add "RTAG_ID",           parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
        OraDatabase.Parameters.Add "SERVER_ID",         parServerId,    ORAPARM_INPUT, ORATYPE_NUMBER
 
        SqlQry = "INSERT INTO BLAT_RELEASES (BLAT_ID,rtag_id) VALUES( :SERVER_ID, :RTAG_ID)"
        OraDatabase.ExecuteSQL SqlQry
        OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")
 
        OraDatabase.Parameters.Remove "USER_ID_LIST"
        OraDatabase.Parameters.Remove "RTAG_ID"
        OraDatabase.Parameters.Remove "SERVER_ID"
 

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_json_Replication.asp – Rev 6770 → 6773

Rev 6770		Rev 6773
Line 170...		Line 170...
170	`OraDatabase.Parameters.Add "STATE", parState, ORAPARM_INPUT, ORATYPE_NUMBER`	170	`OraDatabase.Parameters.Add "STATE", parState, ORAPARM_INPUT, ORATYPE_NUMBER`
171		171
172	`SqlQry = "UPDATE BLAT_PROJECTS SET BP_ENABLED = :STATE where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"`	172	`SqlQry = "UPDATE BLAT_PROJECTS SET BP_ENABLED = :STATE where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"`
173	`OraDatabase.ExecuteSQL SqlQry`	173	`OraDatabase.ExecuteSQL SqlQry`
174		174
-		175	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
-		176
175	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	177	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
176	`OraDatabase.Parameters.Remove "PROJ_ID"`	178	`OraDatabase.Parameters.Remove "PROJ_ID"`
177	`OraDatabase.Parameters.Remove "SERVER_ID"`	179	`OraDatabase.Parameters.Remove "SERVER_ID"`
178	`OraDatabase.Parameters.Remove "STATE"`	180	`OraDatabase.Parameters.Remove "STATE"`
179		181
Line 209...		Line 211...
209	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`	211	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`
210	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`	212	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`
211		213
212	`SqlQry = "DELETE FROM BLAT_PROJECTS where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"`	214	`SqlQry = "DELETE FROM BLAT_PROJECTS where BLAT_ID = :SERVER_ID and PROJ_ID = :PROJ_ID"`
213	`OraDatabase.ExecuteSQL SqlQry`	215	`OraDatabase.ExecuteSQL SqlQry`
-		216	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
214		217
215	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	218	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
216	`OraDatabase.Parameters.Remove "PROJ_ID"`	219	`OraDatabase.Parameters.Remove "PROJ_ID"`
217	`OraDatabase.Parameters.Remove "SERVER_ID"`	220	`OraDatabase.Parameters.Remove "SERVER_ID"`
218		221
Line 248...		Line 251...
248	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`	251	`OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER`
249	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`	252	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`
250		253
251	`SqlQry = "INSERT INTO BLAT_PROJECTS (BLAT_ID,proj_id) VALUES( :SERVER_ID, :PROJ_ID)"`	254	`SqlQry = "INSERT INTO BLAT_PROJECTS (BLAT_ID,proj_id) VALUES( :SERVER_ID, :PROJ_ID)"`
252	`OraDatabase.ExecuteSQL SqlQry`	255	`OraDatabase.ExecuteSQL SqlQry`
-		256	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
253		257
254	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	258	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
255	`OraDatabase.Parameters.Remove "PROJ_ID"`	259	`OraDatabase.Parameters.Remove "PROJ_ID"`
256	`OraDatabase.Parameters.Remove "SERVER_ID"`	260	`OraDatabase.Parameters.Remove "SERVER_ID"`
257		261
Line 296...		Line 300...
296	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`	300	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`
297	`OraDatabase.Parameters.Add "STATE", parState, ORAPARM_INPUT, ORATYPE_NUMBER`	301	`OraDatabase.Parameters.Add "STATE", parState, ORAPARM_INPUT, ORATYPE_NUMBER`
298		302
299	`SqlQry = "UPDATE BLAT_RELEASES SET BR_ENABLED = :STATE where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"`	303	`SqlQry = "UPDATE BLAT_RELEASES SET BR_ENABLED = :STATE where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"`
300	`OraDatabase.ExecuteSQL SqlQry`	304	`OraDatabase.ExecuteSQL SqlQry`
-		305	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
301		306
302	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	307	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
303	`OraDatabase.Parameters.Remove "RTAG_ID"`	308	`OraDatabase.Parameters.Remove "RTAG_ID"`
304	`OraDatabase.Parameters.Remove "SERVER_ID"`	309	`OraDatabase.Parameters.Remove "SERVER_ID"`
305	`OraDatabase.Parameters.Remove "STATE"`	310	`OraDatabase.Parameters.Remove "STATE"`
Line 335...		Line 340...
335	`OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER`	340	`OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER`
336	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`	341	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`
337		342
338	`SqlQry = "DELETE FROM BLAT_RELEASES where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"`	343	`SqlQry = "DELETE FROM BLAT_RELEASES where BLAT_ID = :SERVER_ID and RTAG_ID = :RTAG_ID"`
339	`OraDatabase.ExecuteSQL SqlQry`	344	`OraDatabase.ExecuteSQL SqlQry`
-		345	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
340		346
341	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	347	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
342	`OraDatabase.Parameters.Remove "RTAG_ID"`	348	`OraDatabase.Parameters.Remove "RTAG_ID"`
343	`OraDatabase.Parameters.Remove "SERVER_ID"`	349	`OraDatabase.Parameters.Remove "SERVER_ID"`
344		350
Line 373...		Line 379...
373	`OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER`	379	`OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER`
374	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`	380	`OraDatabase.Parameters.Add "SERVER_ID", parServerId, ORAPARM_INPUT, ORATYPE_NUMBER`
375		381
376	`SqlQry = "INSERT INTO BLAT_RELEASES (BLAT_ID,rtag_id) VALUES( :SERVER_ID, :RTAG_ID)"`	382	`SqlQry = "INSERT INTO BLAT_RELEASES (BLAT_ID,rtag_id) VALUES( :SERVER_ID, :RTAG_ID)"`
377	`OraDatabase.ExecuteSQL SqlQry`	383	`OraDatabase.ExecuteSQL SqlQry`
-		384	`OraDatabase.ExecuteSQL ("BEGIN PK_BLATAPI.set_pkg_replica_changed(:SERVER_ID); END; ")`
378		385
379	`OraDatabase.Parameters.Remove "USER_ID_LIST"`	386	`OraDatabase.Parameters.Remove "USER_ID_LIST"`
380	`OraDatabase.Parameters.Remove "RTAG_ID"`	387	`OraDatabase.Parameters.Remove "RTAG_ID"`
381	`OraDatabase.Parameters.Remove "SERVER_ID"`	388	`OraDatabase.Parameters.Remove "SERVER_ID"`
382		389