Subversion Repositories DevTools

Rev

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

Rev 5983 Rev 5984
Line 340... Line 340...
340 
      " FROM release_tags rel, projects proj"&_
 340 
      " FROM release_tags rel, projects proj"&_
341 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
 341 
      " WHERE rel.proj_id = proj.proj_id AND rel.rtag_id = :RTAG_ID"
342 
 
 342 
 
343 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 343 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
344 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 344 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
345 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 345 
         ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
346 
         RtagSTR = " &gt; <a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
 346 
         RtagSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='dependencies.asp?rtag_id="& rsTemp.Fields("rtag_id") &"'>"& rsTemp.Fields("rtag_name") &"</a>"
347 
      End If
 347 
      End If
348 
 
 348 
 
349 
      OraDatabase.Parameters.Remove "RTAG_ID"
 349 
      OraDatabase.Parameters.Remove "RTAG_ID"
350 
 
 350 
 
351 
   ElseIf myProj <> "" Then
 351 
   ElseIf myProj <> "" Then
Line 357... Line 357...
357 
      " FROM projects proj"&_
 357 
      " FROM projects proj"&_
358 
      " WHERE proj.proj_id = :PROJ_ID"
 358 
      " WHERE proj.proj_id = :PROJ_ID"
359 
 
 359 
 
360 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 360 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
361 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 361 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
362 
         ProjSTR = " &gt; <a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
 362 
         ProjSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='rtree.asp?proj_id="& rsTemp.Fields("proj_id") &"'>"& UCase(rsTemp.Fields("proj_name")) &"</a>"
363 
         RtagSTR = ""
 363 
         RtagSTR = ""
364 
      End If
 364 
      End If
365 
 
 365 
 
366 
      OraDatabase.Parameters.Remove "PROJ_ID"
 366 
      OraDatabase.Parameters.Remove "PROJ_ID"
367 
 
 367 
 
Line 394... Line 394...
394 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
 394 
   ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
395 
       ModeSTR = "<img src='images/i_archived.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Archived Mode]"
 395 
       ModeSTR = "<img src='images/i_archived.gif' width='7' height='10' border='0' hspace='2' >&nbsp;[Archived Mode]"
396
396
397 
   End If
 397 
   End If
398 
 
 398 
 
- 
 
 399 
    Dim PkgNameSTR, PkgVersionSTR
- 
 
 400 
    PkgNameSTR = ""
- 
 
 401 
    PkgVersionSTR = ""
- 
 
 402 
    If IsObject(pkgInfoHash) Then
- 
 
 403 
        PkgNameSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
- 
 
 404 
        PkgVersionSTR = "&nbsp;&gt;&nbsp;<a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
- 
 
 405 
    End IF
- 
 
 406 
 
399 
   '-- Render Menu --
 407 
   '-- Render Menu --
400 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 408 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
401 
   Response.write "  <tr>"
 409 
   Response.write "  <tr>"
402 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 410 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
403 
   Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & "</td>"
 411 
   Response.write "    <td nowrap width='100%' class=mmItem>"& HomeSTR & ProjSTR & ActionSTR &  RtagSTR & ModeSTR & PkgNameSTR & PkgVersionSTR & "</td>"
404 
   Response.write "  </tr>"
 412 
   Response.write "  </tr>"
405 
   Response.write "</table>"
 413 
   Response.write "</table>"
406 
 
 414 
 
407 
   rsTemp.Close()
 415 
   rsTemp.Close()
408 
   Set rsTemp = nothing
 416 
   Set rsTemp = nothing
409 
End Sub
 417 
End Sub
410 
 
 418 
 
- 
 
 419 
'-----------------------------------------------------------
- 
 
 420 
' Display package breadcrumbs, when displaying package details
411 
REM Used when displaying package details outside the context of a Release
 421 
' outside the context of a Release
- 
 
 422 
'
412 
Sub Print_Package_TopLeft_Menu
 423 
Sub Print_Package_TopLeft_Menu
413 
   Dim PkgNameSTR, PkgVersionSTR, PkgLock
 424 
    Dim PkgNameSTR, PkgVersionSTR, PkgLock
414 
If IsObject(pkgInfoHash) Then
 425 
    If IsObject(pkgInfoHash) Then
415 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
 426 
        PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
416 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
 427 
        PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
417 
   PkgLock = pkgInfoHash.Item("dlocked")
 428 
        PkgLock = pkgInfoHash.Item("dlocked")
418 
else
 429 
    else
419 
    Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked
 430 
        Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked
420 
    Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
 431 
        Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
421 
 
 432 
 
422 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"
 433 
        PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"
423 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& SSpkgVersion &"</a>"
 434 
        PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& SSpkgVersion &"</a>"
424 
   PkgLock = BBdlocked
 435 
        PkgLock = BBdlocked
425 
End If
 436 
    End If
426 
 
 437 
 
427 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 438 
    Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
428 
   Response.write "  <tr>"
 439 
    Response.write "  <tr>"
429 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 440 
    Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
- 
 
 441 
    Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR
430 
   If (PkgLock= "Y") OR (PkgLock = "A") Then
 442 
    If (PkgLock= "Y") OR (PkgLock = "A") Then
431 
       Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2' ></td>"
 443 
        Response.write "<img src='images/i_locked.gif' width='7' height='10' border='0' hspace='2'>"
432 
   Else
 444 
    End If
433 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
 445 
    Response.write "    </td>"
434 
   End If
 - 
 
435 
   Response.write "  </tr>"
 446 
    Response.write "  </tr>"
436 
   Response.write "</table>"
 447 
    Response.write "</table>"
437 
End Sub
 448 
End Sub
438 
 
 449 
 
439 
 
 - 
 
- 
 
 450 
'-----------------------------------------------------------
- 
 
 451 
'   Generate the list of projects in a menu item
440 
Function Projects_Menu ( NNarrIndex )
 452 
Function Projects_Menu ( NNarrIndex )
441 
   Dim rsTemp, Query_String, tempSTR
 453 
   Dim rsTemp, Query_String, tempSTR
442 
   tempSTR = ""
 454 
   tempSTR = ""
443 
   Query_String = _
 455 
   Query_String = _
444 
   " SELECT * FROM projects ORDER BY proj_name ASC"
 456 
   " SELECT * FROM projects ORDER BY proj_name ASC"
Line 450... Line 462...
450 
   Projects_Menu = tempSTR
 462 
   Projects_Menu = tempSTR
451 
   rsTemp.Close
 463 
   rsTemp.Close
452 
   Set rsTemp = nothing
 464 
   Set rsTemp = nothing
453 
End Function
 465 
End Function
454 
 
 466 
 
455 
 
 - 
 
456 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
 467 
'Function Get_Proj ( NNrtag_id, NNvtree_id )
457 
'   Dim rsTemp, Query_String, tempRtag_id
 468 
'   Dim rsTemp, Query_String, tempRtag_id
458 
'   If NNvtree_id = "" Then
 469 
'   If NNvtree_id = "" Then
459 
'      If NNrtag_id = "" Then
 470 
'      If NNrtag_id = "" Then
460 
'         tempRtag_id = -1
 471 
'         tempRtag_id = -1