Subversion Repositories DevTools

Rev

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

Rev 6576 Rev 6577
Line 11... Line 11...
11 
'------------ Variable Definition -------------
 11 
'------------ Variable Definition -------------
12 
Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D
 12 
Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D
13 
Dim ppClick
 13 
Dim ppClick
14 
Dim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon
 14 
Dim imgDependenciesIcon, imgReleaseNotesIcon, imgPatchesIcon
15 
Dim ReleaseMode
 15 
Dim ReleaseMode
- 
 
 16 
 
16 
'-- GLOBAL VARIABLES --------------------------
 17 
'-- GLOBAL VARIABLES --------------------------
17 
imgDependenciesIcon = "<img src='images/i_dependency.gif' border='0' align='absmiddle' hspace='3'>"
 18 
imgDependenciesIcon = "<img src='images/i_dependency.gif' border='0' align='absmiddle' hspace='3'>"
18 
imgReleaseNotesIcon = "<img src='images/i_release_note.gif' border='0' align='absmiddle' hspace='3'>"
 19 
imgReleaseNotesIcon = "<img src='images/i_release_note.gif' border='0' align='absmiddle' hspace='3'>"
19 
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
 20 
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
20 
 
 21 
 
Line 348... Line 349...
348 
   Response.write "</table>"
 349 
   Response.write "</table>"
349 
End Sub
 350 
End Sub
350 
 
 351 
 
351 
 
 352 
 
352 
Sub Print_TopLeft_Menu
 353 
Sub Print_TopLeft_Menu
353 
   Dim rsTemp, Query_String
 - 
 
354 
   Dim myProj, myRtag
 - 
 
355 
   Dim HomeSTR, ProjSTR, RtagSTR,ModeSTR
 354 
   Dim HomeSTR, ProjSTR, RtagSTR,ModeSTR
356 
   Dim ActionSTR
 355 
   Dim ActionSTR
357 
   myProj = QStrPar("proj_id")
 - 
 
358 
   myRtag = QStrPar("rtag_id")
 - 
 
359 
 
 356 
 
360 
   HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
 357 
   HomeSTR = "<a class=mmItem href='index.asp'>HOME</a>"
- 
 
 358 
   RtagSTR = ""
- 
 
 359 
   ProjSTR = ""
361 
 
 360 
 
362 
   If myRtag <> "" Then
 - 
 
363 
      OraDatabase.Parameters.Add "RTAG_ID", myRtag, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
364 
 
 - 
 
365 
      Query_String = _
 - 
 
366 
      " SELECT rel.rtag_id, rel.rtag_name, proj.proj_id, proj.proj_name"&_
 - 
 
367 
      " FROM release_tags rel, projects proj"&_
 - 
 
368 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
 - 
 
369 
 
 - 
 
370 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 - 
 
371 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 - 
 
372 
         ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 - 
 
373 
         RtagSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
 361 
   If DB_RTAG_ID > 0 Then RtagSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='dependencies.asp?rtag_id="& DB_RTAG_ID &"'>"& DB_RTAG_NAME &"</a>"
374 
      End If
 - 
 
375 
 
 - 
 
376 
      OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
377 
 
 - 
 
378 
   ElseIf myProj <> "" Then
 - 
 
379 
 
 - 
 
380 
      OraDatabase.Parameters.Add "PROJ_ID", myProj, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
381 
 
 - 
 
382 
      Query_String = _
 - 
 
383 
      " SELECT proj.proj_name, proj.proj_id"&_
 - 
 
384 
      " FROM projects proj"&_
 - 
 
385 
      " WHERE proj.proj_id = :PROJ_ID"
 - 
 
386 
 
 - 
 
387 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 - 
 
388 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 - 
 
389 
         ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 362 
   If DB_PROJ_ID > 0 Then ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& DB_PROJ_ID &"'>"& DB_PROJ_NAME &"</a>"
390 
         RtagSTR = ""
 - 
 
391 
      End If
 - 
 
392 
 
 - 
 
393 
      OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
394 
 
 - 
 
395 
   End If
 - 
 
396 
 
 363 
 
397 
   '-- Calculate authorisation state
 364 
   '-- Calculate authorisation state
398 
   ActionSTR = ""
 365 
   ActionSTR = ""
399 
   If NOT canActionInProject Then
 366 
   If NOT canActionInProject Then
400 
    ActionSTR = "&nbsp;[Not Authorised]"
 367 
    ActionSTR = "&nbsp;[Not Authorised]"
Line 438... Line 405...
438 
   Response.write "  <tr>"
 405 
   Response.write "  <tr>"
439 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 406 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
440 
   Response.write "    <td nowrap width='100%' class='mmItem'>"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTR & "</td>"
 407 
   Response.write "    <td nowrap width='100%' class='mmItem'>"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTR & "</td>"
441 
   Response.write "  </tr>"
 408 
   Response.write "  </tr>"
442 
   Response.write "</table>"
 409 
   Response.write "</table>"
443 
 
 - 
 
444 
   rsTemp.Close()
 - 
 
445 
   Set rsTemp = nothing
 - 
 
446 
End Sub
 410 
End Sub
447 
 
 411 
 
448 
'-----------------------------------------------------------
 412 
'-----------------------------------------------------------
449 
' Display package breadcrumbs, when displaying package details
413 
' Display package breadcrumbs, when displaying package details
450 
' outside the context of a Release
 414 
' outside the context of a Release