Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
129 ghuddy 3 
'                COMMON DB EDIT
119 ghuddy 4 
'=====================================================
5 
%>
6 
<%
7 
Sub Update_Pkg_Category ( SSrtag_id, SSpv_id, SSbase_view_id )
129 ghuddy 8 
 
9 
   OraDatabase.Parameters.Add "PV_ID",   SSpv_id,        ORAPARM_INPUT, ORATYPE_NUMBER
10 
   OraDatabase.Parameters.Add "RTAG_ID", SSrtag_id,      ORAPARM_INPUT, ORATYPE_NUMBER
11 
   OraDatabase.Parameters.Add "VIEW_ID", SSbase_view_id, ORAPARM_INPUT, ORATYPE_NUMBER
12 
 
13 
   objEH.TryORA ( OraSession )
14 
   On Error Resume Next
15 
   OraDatabase.ExecuteSQL _
16 
   "BEGIN PK_ENVIRONMENT.CHANGE_PACKAGE_VIEW ( :PV_ID, :RTAG_ID, :VIEW_ID );  END;"
17 
   objEH.CatchORA ( OraSession )
18 
 
19 
   OraDatabase.Parameters.Remove "PV_ID"
20 
   OraDatabase.Parameters.Remove "RTAG_ID"
21 
   OraDatabase.Parameters.Remove "VIEW_ID"
22 
 
119 ghuddy 23 
End Sub
24 
'-----------------------------------------------------------------------------------------------------------------------------
25 
Sub Seed_Package_Names_Versions ( ARRdep, NNretPV_ID )
129 ghuddy 26 
   Dim i
27 
   OraDatabase.Parameters.Add "retPV_ID", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
28 
   objEH.TryORA ( OraSession )
29 
   On Error Resume Next
30 
 
31 
   For i = 0 To UBound( ARRdep, 2 )
32 
      OraDatabase.ExecuteSQL "BEGIN Seed_Package_Names_Versions ('"& ARRdep(0,i) &"','"& ARRdep(1,i) &"', "& objAccessControl.UserId &", :retPV_ID); END;"
33 
   Next
34 
   objEH.CatchORA ( OraSession )
35 
   OraDatabase.Parameters.Remove "retPV_ID"
119 ghuddy 36 
End Sub
37 
'-----------------------------------------------------------------------------------------------------------------------------
38 
Function IsExtention ( SSstr )
129 ghuddy 39 
   Dim objRegEx, Match, Matches, StrReturnStr
40 
   Set objRegEx = New RegExp
41 
 
42 
   objRegEx.IgnoreCase = True
43 
   objRegEx.Pattern = "[A-Za-z]+"
44 
 
45 
   Set Matches = objRegEx.Execute( SSstr )
46 
   For Each Match in Matches
47 
      IsExtention = true
48 
   Next
119 ghuddy 49 
End Function
50 
'-----------------------------------------------------------------------------------------------------------------------------
51 
Function Get_Pkg_Base_View_ID ( NNpv_id, NNrtag_id )
129 ghuddy 52 
   Dim rsTemp, Query_String
53 
 
54 
   If Request("rtag_id") = "" Then
55 
      Get_Pkg_Base_View_ID = -1
56 
      Exit Function
57 
   End If
58 
 
59 
   Query_String = _
60 
   " SELECT rc.base_view_id"&_
61 
   "  FROM release_content rc"&_
62 
   " WHERE rc.rtag_id = "& NNrtag_id &_
63 
   "   AND rc.pv_id = "& NNpv_id
64 
 
65 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
66 
 
67 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
68 
      Get_Pkg_Base_View_ID = CInt( rsTemp("base_view_id") )
69 
   Else
70 
      Get_Pkg_Base_View_ID = NULL
71 
   End If
72 
 
73 
   rsTemp.Close
74 
   Set rsTemp = nothing
119 ghuddy 75 
End Function
76 
'-----------------------------------------------------------------------------------------------------------------------------
77 
Function Get_V_EXT ( SSversion )
129 ghuddy 78 
   Dim v_ext
79 
   v_ext = Right(SSversion, Len(SSversion) - InStrRev( SSversion, "." ))
80 
 
81 
   If IsExtention ( v_ext ) Then
82 
      Get_V_EXT = v_ext
83 
   Else
84 
      Get_V_EXT = NULL
85 
   End If
86 
 
119 ghuddy 87 
End Function
88 
'-----------------------------------------------------------------------------------------------------------------------------
89 
Sub Touch_Package ( NNpv_id )
129 ghuddy 90 
   If NNpv_id = "" Then Exit Sub
91 
 
92 
   objEH.TryORA ( OraSession )
93 
   On Error Resume Next
94 
   OraDatabase.ExecuteSQL " UPDATE package_versions "&_
95 
                          " SET modified_stamp = "& ORA_SYSDATETIME  &", modifier_id = "& objAccessControl.UserId &_
96 
                          " WHERE pv_id = "& NNpv_id
97 
   objEH.CatchORA ( OraSession )
119 ghuddy 98 
End Sub
99 
'-----------------------------------------------------------------------------------------------------------------------------
129 ghuddy 100 
Function Rebuild_Environment_Necessary(NNrtag_id)
101 
   Dim Query_String, rsTemp
102 
 
103 
   Rebuild_Environment_Necessary = FALSE
104 
 
105 
   If IsNull(NNrtag_id) OR NNrtag_id = "" Then Exit Function     ' Exit if rtag_id is not supplied
106 
 
107 
   ' Find if rebuild is required
108 
   Query_String = "SELECT rebuild_env FROM release_tags WHERE rtag_id = "& NNrtag_id
109 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
110 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
111 
      If rsTemp("rebuild_env") = "Y" Then
112 
         Rebuild_Environment_Necessary = TRUE
113 
      End If
114 
   End If
115 
   rsTemp.Close
116 
   Set rsTemp = nothing
117 
End Function
118 
 
119 
'-----------------------------------------------------------------------------------------------------------------------------
119 ghuddy 120 
Sub Rebuild_Environment ( NNrtag_id )
129 ghuddy 121 
 
122 
   If Rebuild_Environment_Necessary(NNrtag_id) Then
123 
 
124 
      On Error Resume Next
125 
 
126 
      ' It is important to set the flag rebuild_env = 'N' first, to stop multiple processes doing the same thing
127 
      objEH.TryORA ( OraSession )
128 
      OraDatabase.ExecuteSQL " UPDATE release_tags "&_
129 
                             " SET rebuild_env = 'N'"&_
130 
                             " WHERE rtag_id = "& NNrtag_id
131 
      objEH.CatchORA ( OraSession )
132 
 
133 
      ' Only proceed if the last update succeeded
134 
      If objEH.LastOraFailed = FALSE Then
135 
      ' Now rebuild environment
136 
         objEH.TryORA ( OraSession )
137 
         OraDatabase.ExecuteSQL " BEGIN Rebuild_Environment( "& NNrtag_id &" ); END;"
138 
         objEH.CatchORA ( OraSession )
139 
      End If
140 
   End If
141 
End Sub
119 ghuddy 142 
'-----------------------------------------------------------------------------------------------------------------------------
143 
Sub CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, sQuery )
129 ghuddy 144 
   Dim rsErr, Query_String
145 
   Query_String = sQuery
146 
 
147 
 
148 
   ' --------- SQL PARAMETERS ------------
149 
   OraDatabase.Parameters.Add "RTAG_ID",                nRtag_id,               ORAPARM_INPUT, ORATYPE_NUMBER
150 
   OraDatabase.Parameters.Add "PV_ID",                  nPv_id,                 ORAPARM_INPUT, ORATYPE_NUMBER
151 
   OraDatabase.Parameters.Add "enumPKG_STATE_OK",       enumPKG_STATE_OK,       ORAPARM_INPUT, ORATYPE_NUMBER
152 
   OraDatabase.Parameters.Add "enumISSUES_STATE_FIXED", enumISSUES_STATE_FIXED, ORAPARM_INPUT, ORATYPE_NUMBER
153 
   ' -------------------------------------
154 
   Set rsErr = OraDatabase.DbCreateDynaset( Query_String, cint(0))
155 
 
156 
   returnERRmsg = NULL
157 
   returnALRTmsg = NULL
158 
 
159 
   If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
160 
      ' Check Requirement for products
161 
   Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
162 
      If Not IsNull(rsErr("err_message")) Then
163 
         returnERRmsg = rsErr("err_message")
164 
         returnALRTmsg = rsErr("products_msg")
165 
         returnParameters = "_make_released.asp" &"|"
166 
         If returnALRTmsg = "ERROR" Then
167 
            returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
168 
            Exit Do
169 
         End If
170 
      End If
171 
 
172 
      rsErr.MoveNext
173 
      Loop
174 
 
175 
   Else
176 
      ' Check Requirements for other packages
177 
      Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
178 
         If Not IsNull(rsErr("err_message")) Then
179 
            returnERRmsg = rsErr("err_message")
180 
            returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
181 
            Exit Do
182 
         End If
183 
 
184 
         rsErr.MoveNext
185 
      Loop
186 
 
187 
   End If
188 
 
189 
   rsErr.Close
190 
   Set rsErr = nothing
191 
   OraDatabase.Parameters.Remove "RTAG_ID"
192 
   OraDatabase.Parameters.Remove "PV_ID"
193 
   OraDatabase.Parameters.Remove "enumPKG_STATE_OK"
194 
   OraDatabase.Parameters.Remove "enumISSUES_STATE_FIXED"
119 ghuddy 195 
End Sub
196 
'-----------------------------------------------------------------------------------------------------------------------------
197 
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
129 ghuddy 198 
   Dim QueryString, rsQry
199 
   QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
200 
   Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
201 
 
202 
   Dim vcstag
203 
 
204 
   vcstag = get_vcs_tag( nPv_id )
205 
 
206 
   If IsNull(rsQry("is_patch")) Then
207 
      ' For Package
208 
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
209 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_UC.sql" ) )
210 
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
211 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_CC.sql" ) )
212 
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
213 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_SVN.sql" ) )
214 
      End If
215 
   Else
216 
      ' For Patch
217 
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
218 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_UC.sql" ) )
219 
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
220 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_CC.sql" ) )
221 
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
222 
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_SVN.sql" ) )
223 
      End If
224 
   End If
225 
 
226 
   rsQry.Close()
227 
   Set rsQry = nothing
228 
 
119 ghuddy 229 
End Sub
230 
'-----------------------------------------------------------------------------------------------------------------------------
231 
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
129 ghuddy 232 
   Dim vcstag
233 
 
234 
   vcstag = get_vcs_tag( nPv_id )
235 
   If vcstag = enum_VCS_UNCONTROLLED_TAG Then
236 
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_UC.sql" ) )
237 
   ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
238 
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_CC.sql" ) )
239 
   ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
240 
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_SVN.sql" ) )
241 
   End If
119 ghuddy 242 
End Sub
243 
'-----------------------------------------------------------------------------------------------------------------------------
244 
Sub CheckRequirementsForMakeApproved ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
129 ghuddy 245 
   Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_approved.sql" ) )
119 ghuddy 246 
End Sub
247 
'-----------------------------------------------------------------------------------------------------------------------------
129 ghuddy 248 
Sub CheckRequirementsForMakeDeployable ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
249 
   Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_deployable.sql" ) )
119 ghuddy 250 
End Sub
251 
'-----------------------------------------------------------------------------------------------------------------------------
252 
Sub Notify ( NNrtag_id )
129 ghuddy 253 
   Dim Query_String, Location_SQL, rsNotify, emailBody, readyPv_id_list, SentTODict, releaseSTR
254 
   Dim httpRef, URL_root, headerSTR, footerSTR, oAttachmentsDict
255 
 
256 
   Set SentTODict = CreateObject("Scripting.Dictionary")
257 
   Set oAttachmentsDict = CreateObject("Scripting.Dictionary")
258 
 
259 
   On Error Resume Next
260 
   objEH.TryORA ( OraSession )
261 
 
262 
   Query_String = ReadFile( rootPath & "queries\to_notify.sql" )
263 
   Query_String = Replace( Query_String, "/*PKG_STATE_MAJOR_READY*/", enumPKG_STATE_MAJOR_READY)
264 
   Query_String = Replace( Query_String, "/*PKG_STATE_MINOR_READY*/", enumPKG_STATE_MINOR_READY)
265 
   Query_String = Replace( Query_String, "/*PKG_STATE_OK*/", enumPKG_STATE_OK)
266 
   Query_String = Replace( Query_String, "/*ORA_SYSDATETIME*/", ORA_SYSDATETIME)
267 
 
268 
   ' --------- SQL PARAMETERS ------------
269 
   OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT
270 
   OraDatabase.Parameters("RTAG_ID").ServerType = ORATYPE_NUMBER
271 
 
272 
   OraDatabase.Parameters.Add "CURRENT_USER", objAccessControl.UserId, ORAPARM_INPUT
273 
   OraDatabase.Parameters("CURRENT_USER").ServerType = ORATYPE_NUMBER
274 
   ' -------------------------------------
275 
   'Response.write Query_String
276 
   Set rsNotify = OraDatabase.DbCreateDynaset( Query_String, cint(0))
277 
 
278 
   readyPv_id_list = "-1"
279 
   emailBody = ""
280 
 
281 
   '---- Get notification list ----
282 
   If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
283 
      httpRef = Request.ServerVariables("HTTP_REFERER")
284 
      URL_root = Left( httpRef, InStrRev(httpRef, "/") )
285 
 
286 
      emailBody = emailBody & "<tr>"
287 
      emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Owner</b></font></td>"
288 
      emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Package Name</b></font></td>"
289 
      emailBody = emailBody & "<td nowrap bgcolor='#CAC5B8'><font size='1' face='tahoma,sans-serif'><b>Version</b></font></td>"
290 
      emailBody = emailBody & "</tr>"
291 
 
292 
      While ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF))
293 
          emailBody = emailBody & "<tr>"
294 
         emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("full_name") &"</font></td>"
295 
         emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'><a href='"& URL_root &"dependencies.asp?pv_id="& rsNotify("pv_id") &"&rtag_id="& NNrtag_id &"'>"& rsNotify("pkg_name") &"</a></font></td>"
296 
         emailBody = emailBody & "<td nowrap><font size='1' face='tahoma,sans-serif'>"& rsNotify("pkg_version") &"</font></td>"
297 
         emailBody = emailBody & "</tr>"
298 
 
299 
         readyPv_id_list = readyPv_id_list &","& rsNotify("pv_id")
300 
 
301 
         If NOT SentTODict.Exists (Cstr(rsNotify("user_email"))) Then SentTODict.Add Cstr(rsNotify("user_email")), Cstr(rsNotify("full_name"))
302 
 
303 
         rsNotify.MoveNext
304 
      WEnd
305 
 
306 
      emailBody = "<table width='50%' border='1' cellspacing='0' cellpadding='1'>" & emailBody & "</table>"
307 
 
308 
   End If
309 
 
310 
   rsNotify.Close
311 
   Set rsNotify = nothing
312 
 
313 
 
314 
   If readyPv_id_list <> "-1" Then
315 
      '---- Header ----
316 
      headerSTR = _
317 
      "<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
318 
      "   <tr>"&_
319 
      "     <td valign='bottom'><img src='cid:RM-Envelop' width='60' height='30'></td>"&_
320 
      "     <td valign='bottom' align='right'><font size='3' face='tahoma,sans-serif'><b>release</b>manager Notifications</font></td>"&_
321 
      "   </tr>"&_
322 
      "   <tr> "&_
323 
      "     <td bgcolor='#003399'></td>"&_
324 
      "     <td bgcolor='#003399'></td>"&_
325 
      "   </tr>"&_
326 
      "</table><br><br>"
327 
 
328 
      '---- Footer ----
329 
      footerSTR = _
330 
      "<br><br>"&_
331 
      "<table width='50%' border='0' cellspacing='0' cellpadding='0'>"&_
332 
      "  <tr>"&_
333 
      "    <td colspan='2'><hr size='1' noshade color='#003399'></td>"&_
334 
      "  </tr>"&_
335 
      "  <tr>"&_
336 
      "    <td><img src='cid:RM-MASSlogo' width='22' height='17' hspace='5' align='absmiddle'><font size='1' face='tahoma,sans-serif'>&nbsp;<a href='http://mass.erggroup.com'>mass</a></font></td>"&_
337 
      "    <td nowrap align='right'><font size='1' face='tahoma,sans-serif'>ERG Confidential &copy; ERG</font></td>"&_
338 
      "  </tr>"&_
339 
      "</table>"
340 
 
341 
 
342 
      '---- Get Release loction ----
343 
      Location_SQL = _
344 
      " SELECT proj.proj_name, rt.rtag_name"&_
345 
      "  FROM release_tags rt,"&_
346 
      "       projects proj"&_
347 
      " WHERE rt.proj_id = proj.proj_id"&_
348 
      "   AND rt.rtag_id = :RTAG_ID"
349 
 
350 
      Set rsNotify = OraDatabase.DbCreateDynaset( Location_SQL, cint(0))
351 
      If ((NOT rsNotify.BOF) AND (NOT rsNotify.EOF)) Then
352 
      releaseSTR = rsNotify("proj_name")  &" > "& rsNotify("rtag_name")
353 
      emailBody = "<font size='1' face='tahoma,sans-serif'>"&_
354 
                  "Following packages are ready to build.<br><br>"&_
355 
                  rsNotify("proj_name") &" &gt; "& rsNotify("rtag_name") &"<br>"&_
356 
                  "<a href='"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id &"'>"& URL_root &"dependencies.asp?rtag_id="& NNrtag_id  &"</a>"&_
357 
                  "</font>"&_
358 
                  emailBody
359 
      End If
360 
      rsNotify.Close
361 
      Set rsNotify = nothing
362 
 
363 
      emailBody = headerSTR & emailBody & footerSTR
364 
 
365 
      '---- Remove pkg from notification history ----
366 
      OraDatabase.ExecuteSQL " DELETE FROM notification_history WHERE rtag_id = :RTAG_ID AND pv_id IN ( "& readyPv_id_list &" )"
367 
 
368 
 
369 
      '---- Insert into notification history ----
370 
      OraDatabase.ExecuteSQL "INSERT INTO notification_history (rtag_id, pv_id, user_id, date_time_stamp) "&_
371 
                             " SELECT ins.rtag_id, ins.pv_id, ins.user_id, ins.date_time_stamp"&_
372 
                             "   FROM ("&_
373 
                             Query_String &_
374 
                             "      ) ins"
375 
 
376 
   End If
377 
 
378 
   objEH.CatchORA ( OraSession )
379 
 
380 
   '================= Send Email ==========================
381 
   'Call Send_Email ( "Release Manager Notifications", adminEmail, adminEmail, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
382 
 
383 
   ' ---------- Attachments -------------
384 
   oAttachmentsDict.Add "images\i_mail.gif",       "RM-Envelop"
385 
   oAttachmentsDict.Add "images\s_masslogo_w.gif", "RM-MASSlogo"
386 
 
387 
   Call Send_Email ( "Release Manager Notifications", adminEmail, SentTODict, "Your package is ready to build at "& releaseSTR, emailBody, oAttachmentsDict )
388 
 
389 
   OraDatabase.Parameters.Remove "RTAG_ID"
390 
   OraDatabase.Parameters.Remove "CURRENT_USER"
391 
 
119 ghuddy 392 
End Sub
393 
'-----------------------------------------------------------------------------------------------------------------------------
394 
Function NeedSync ( nPv_id, nRtag_id )
129 ghuddy 395 
   Dim rsTemp, Query_String
396 
   Query_String = ReadFile( rootPath & "queries\sync_check.sql" )
397 
 
398 
   ' --------- SQL PARAMETERS ------------
399 
   OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
400 
   OraDatabase.Parameters.Add "PV_ID",   nPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
401 
   ' -------------------------------------
402 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
403 
 
404 
   If rsTemp.RecordCount > 0 Then
405 
      NeedSync = TRUE
406 
   Else
407 
      NeedSync = FALSE
408 
   End If
409 
 
410 
   rsTemp.Close
411 
   Set rsTemp = nothing
412 
   OraDatabase.Parameters.Remove "RTAG_ID"
413 
   OraDatabase.Parameters.Remove "PV_ID"
119 ghuddy 414 
End Function
415 
'-----------------------------------------------------------------------------------------------------------------------------
416 
Function Lookup_Document ( sDocNum, outDocTitle, outDoc_id, outDoc_version, outDoc_created  )
129 ghuddy 417 
   Dim rsDocReg
418 
 
419 
   outDocTitle = NULL
420 
   outDoc_id = NULL
421 
   outDoc_version = NULL
422 
   outDoc_created = NULL
423 
 
424 
   Set rsDocReg = Server.CreateObject("ADODB.Recordset")
425 
   rsDocReg.ActiveConnection = DOCREP_conn
426 
 
427 
   rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getDocumentFiles '"& sDocNum &"';"
428 
   rsDocReg.CursorType = 0
429 
   rsDocReg.CursorLocation = 2
430 
   rsDocReg.LockType = 3
431 
 
432 
   On Error Resume Next
433 
 
434 
   rsDocReg.Open()
435 
 
436 
   If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
437 
      outDocTitle = rsDocReg("title")
438 
      outDoc_id = rsDocReg("id")
439 
      outDoc_version = rsDocReg("version")
440 
      outDoc_created = rsDocReg("created")
441 
   End If
442 
 
443 
   rsDocReg.Close
444 
 
445 
   Lookup_Document = Err.Number   ' Return Error number
446 
 
447 
   Set rsDocReg = nothing
119 ghuddy 448 
End Function
449 
'-----------------------------------------------------------------------------------------------------------------------------
450 
Function Short_Document_Details ( nDocId, outDocTitle, outDoc_version, outDoc_created  )
129 ghuddy 451 
   Dim rsDocReg
452 
 
453 
   outDocTitle = NULL
454 
   outDoc_version = NULL
455 
   outDoc_created = NULL
456 
 
457 
   Set rsDocReg = Server.CreateObject("ADODB.Recordset")
458 
   rsDocReg.ActiveConnection = DOCREP_conn
459 
 
460 
   rsDocReg.Source = "EXEC docregister.dbo.sp_RM_getFileDetails "& nDocId &";"
461 
   rsDocReg.CursorType = 0
462 
   rsDocReg.CursorLocation = 2
463 
   rsDocReg.LockType = 3
464 
 
465 
   On Error Resume Next
466 
 
467 
   rsDocReg.Open()
468 
 
469 
   If (NOT rsDocReg.BOF) AND (NOT rsDocReg.EOF)  Then
470 
      outDocTitle = rsDocReg("title")
471 
      outDoc_version = rsDocReg("version")
472 
      outDoc_created = rsDocReg("created")
473 
   End If
474 
 
475 
   rsDocReg.Close
476 
 
477 
   Short_Document_Details = Err.Number   ' Return Error number
478 
 
479 
   Set rsDocReg = nothing
119 ghuddy 480 
End Function
481 
'-----------------------------------------------------------------------------------------------------------------------------
482 
Function GetIssueNumber ( nIssDB, nIssId )
129 ghuddy 483 
   Dim rsQry
484 
 
485 
   Set rsQry = Server.CreateObject("ADODB.Recordset")
486 
   rsQry.ActiveConnection = CQ_conn
487 
 
488 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
489 
      rsQry.Source = "EXEC devi_prod.dbo.sp_RM_getIssueDetails "& nIssId &";"
490 
 
491 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
492 
      rsQry.Source = "EXEC tdse_2002.dbo.sp_RM_getIssueDetails "& nIssId &";"
493 
 
494 
   End If
495 
 
496 
   rsQry.CursorType = 0
497 
   rsQry.CursorLocation = 2
498 
   rsQry.LockType = 3
499 
 
500 
   On Error Resume Next
501 
 
502 
   rsQry.Open()
503 
 
504 
   If (NOT rsQry.BOF) AND (NOT rsQry.EOF)  Then
505 
      GetIssueNumber = rsQry("iss_num")
506 
   End If
507 
 
508 
   rsQry.Close
509 
   Set rsQry = nothing
119 ghuddy 510 
End Function
511 
'-----------------------------------------------------------------------------------------------------------------------------
512 
Sub LoadFieldRules ( sFieldList, ByRef outobjForm )
129 ghuddy 513 
   Dim rsQry, query
514 
 
515 
   query = _
516 
   "   SELECT FIELD_NAME, "&_
517 
   "         IS_REQUIRED, "&_
518 
   "         IS_NUMERIC, "&_
519 
   "         MIN_NUMERIC_VALUE, "&_
520 
   "         MAX_NUMERIC_VALUE, "&_
521 
   "         IS_DATE, "&_
522 
   "         START_DATE, "&_
523 
   "         END_DATE, "&_
524 
   "         MIN_STRING_LENGTH, "&_
525 
   "          MAX_STRING_LENGTH, "&_
526 
   "         REGEXP, "&_
527 
   "         REGEXP_DESCRIPTION "&_
528 
   "     FROM VALIDATION_RULES"&_
529 
   "    WHERE field_name IN ("& sFieldList &")"
530 
 
531 
 
532 
   Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
533 
   If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
534 
      outobjForm.LoadFieldRules rsQry.GetRows()
535 
 
536 
   End If
537 
 
538 
   rsQry.Close
539 
   Set rsQry = Nothing
119 ghuddy 540 
End Sub
541 
'-----------------------------------------------------------------------------------------------------------------------------
542 
Sub Log_Action ( nPvId, sActionTypeName, sComments )
129 ghuddy 543 
 
544 
   OraDatabase.Parameters.Add "PV_ID",            nPvId,                   ORAPARM_INPUT, ORATYPE_NUMBER
545 
   OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
546 
   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sActionTypeName,         ORAPARM_INPUT, ORATYPE_VARCHAR2
547 
   OraDatabase.Parameters.Add "COMMENTS",         sComments,               ORAPARM_INPUT, ORATYPE_VARCHAR2
548 
 
549 
   objEH.TryORA ( OraSession )
550 
   On Error Resume Next
551 
 
552 
   OraDatabase.ExecuteSQL _
553 
   "BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS );  END;"
554 
 
555 
   objEH.CatchORA ( OraSession )
556 
 
557 
   OraDatabase.Parameters.Remove "PV_ID"
558 
   OraDatabase.Parameters.Remove "USER_ID"
559 
   OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
560 
   OraDatabase.Parameters.Remove "COMMENTS"
119 ghuddy 561 
End Sub
562 
'-----------------------------------------------------------------------------------------------------------------------------
563 
Function GetUsername ( nUser_id )
129 ghuddy 564 
   Dim rsQry, sQuery
119 ghuddy 565 
 
129 ghuddy 566 
   OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
567 
   sQuery = "SELECT full_name FROM users WHERE user_id = :USER_ID"
568 
   Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0))
119 ghuddy 569 
 
129 ghuddy 570 
   If rsQry.RecordCount = 1 Then
571 
      GetUsername = rsQry.Fields("full_name").Value
572 
   Else
573 
      GetUsername = nothing
574 
   End If
119 ghuddy 575 
 
129 ghuddy 576 
   OraDatabase.Parameters.remove "USER_ID"
577 
   rsQry.Close
578 
   Set rsQry = nothing
119 ghuddy 579 
End Function
580 
'-----------------------------------------------------------------------------------------------------------------------------
581 
Function GetUserEmail ( nUser_id )
129 ghuddy 582 
   Dim rsQry, sQuery
119 ghuddy 583 
 
129 ghuddy 584 
   OraDatabase.Parameters.Add "USER_ID", nUser_id, ORAPARM_INPUT, ORATYPE_VARCHAR2
585 
   sQuery = "SELECT user_email FROM users WHERE user_id = :USER_ID"
586 
   Set rsQry = OraDatabase.DbCreateDynaset( sQuery, cint(0))
119 ghuddy 587 
 
129 ghuddy 588 
   If rsQry.RecordCount = 1 Then
589 
      GetUserEmail = rsQry.Fields("user_email").Value
590 
   Else
591 
      GetUserEmail = nothing
592 
   End If
119 ghuddy 593 
 
129 ghuddy 594 
   OraDatabase.Parameters.remove "USER_ID"
595 
   rsQry.Close
596 
   Set rsQry = nothing
119 ghuddy 597 
End Function
129 ghuddy 598 
'---------------------------------------------------------------------------------------------------------------------
599 
Sub SetIgnoreWarnings (dpvId, pvId, rtagId)
600 
 
601 
   Dim Query_String, rsTemp
602 
 
603 
   OraDatabase.Parameters.Add "RTAG_ID",        rtagId,                  ORAPARM_INPUT, ORATYPE_NUMBER
604 
   OraDatabase.Parameters.Add "PV_ID",          pvId,                    ORAPARM_INPUT, ORATYPE_NUMBER
605 
   OraDatabase.Parameters.Add "USER_ID",        objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
606 
   OraDatabase.Parameters.Add "IGNORE_ID_LIST", dpvId,                   ORAPARM_INPUT, ORATYPE_VARCHAR2
607 
 
608 
   On Error Resume Next
609 
 
610 
   objEH.TryORA ( OraSession )
611 
   OraDatabase.ExecuteSQL _
612 
   "BEGIN "&_
613 
   " Ignore_Dependency_Warnings( :RTAG_ID, :PV_ID, :IGNORE_ID_LIST, FALSE, :USER_ID ); "&_
614 
   "END; "
615 
   objEH.CatchORA ( OraSession )
616 
 
617 
   OraDatabase.Parameters.Remove "USER_ID"
618 
   OraDatabase.Parameters.Remove "IGNORE_ID_LIST"
619 
 
620 
   If objEH.LastOraFailed = FALSE Then
621 
      ' DEVI-051154 has prompted the removal of the code to call touch_release from the
622 
      ' Ignore_Dependency_Warnings stored procedure, and re-locate it here in the website code, since
623 
      ' Ignore_Dependency_Warnings is called internally by other SQL code in the database where
624 
      ' we do not want to touch_release. This is what Ignore_Dependency_Warnings used to do:
625 
      '     IF PK_ENVIRONMENT.GET_PACKAGE_AREA ( nPvId, nRtagId ) = 2 THEN
626 
      '        Touch_Release (nRtagId);
627 
      '     END IF;
628 
      ' Doing the same in the website code is a bit  more verbose, and we shouldn't do it if it
629 
      ' is not necessary.
630 
 
631 
      ' Get the tab in which the package version resides (0=wip, 1=planned, 2=released)
632 
      OraDatabase.Parameters.Add "ENVTAB",  NULL, ORAPARM_OUT, ORATYPE_NUMBER
633 
      OraDatabase.ExecuteSQL _
634 
      "BEGIN "&_
635 
      " :ENVTAB = PK_ENVIRONMENT.GET_PACKAGE_AREA ( :PV_ID, :RTAG_ID ); "&_
636 
      "END; "
637 
 
638 
      ' only need to touch release if it is not already in touched state. The purpose of this is to prevent the
639 
      ' code inside the body of this "if-statement" from executing during the period of time when the database schema
640 
      ' has yet to be updated to remove the intenral call to touch_release. Once the database schema is updated,
641 
      ' the Rebuild_Environment_Necessary call is no longer necessary since it will always return FALSE at this
642 
      ' point. Leaving the statement in place post the database schema update will do no harm though.
643 
      If Rebuild_Environment_Necessary(rtagId) = FALSE Then
644 
         ' If the package version is 'Released' then allow the rebuild of the environment so that the states
645 
         ' of higher level packages can be re-evaluated
646 
         If OraDatabase.Parameters("ENVTAB").Value = 2 Then
647 
            objEH.TryORA ( OraSession )
648 
            OraDatabase.ExecuteSQL _
649 
            "BEGIN "&_
650 
            " Touch_Release ( :RTAG_ID ); "&_
651 
            "END; "
652 
            objEH.CatchORA ( OraSession )
653 
         End If
654 
      End If
655 
 
656 
      OraDatabase.Parameters.Remove "ENVTAB"
657 
   End If
658 
 
659 
   OraDatabase.Parameters.Remove "RTAG_ID"
660 
   OraDatabase.Parameters.Remove "PV_ID"
661 
End Sub
119 ghuddy 662 
'------------------------------------------------------------------------------------------------------------------
129 ghuddy 663 
%>