Subversion Repositories DevTools

Rev

Rev 177 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 177 Rev 2365
Line 3... Line 3...
3 
'                MENU DEFINITION
 3 
'                MENU DEFINITION
4 
'=====================================================
 4 
'=====================================================
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'------------ CONSTANTS -----------------------
 7 
'------------ CONSTANTS -----------------------
- 
 
 8 
Const MenuHeaderDefined = 1
8 
Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
 9 
Const LMENU_TICK = "<img src=""images/i_boxtick_on.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
9 
Const LMENU_BLANK = "<img src=""images/spacer.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
 10 
Const LMENU_BLANK = "<img src=""images/spacer.gif"" width=""13"" height=""13"" border=""0"" vspace=""2"" align=""absmiddle"">"
10 
'------------ Variable Definition -------------
 11 
'------------ Variable Definition -------------
11 
Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D
 12 
Dim TABarray1, TABarray2, TABarray3, TABarray4, TABarray5, TABarray5D, TABarray6, TABarray6D
12 
Dim ppClick
 13 
Dim ppClick
Line 371... Line 372...
371 
   rsTemp.Close()
 372 
   rsTemp.Close()
372 
   Set rsTemp = nothing
 373 
   Set rsTemp = nothing
373 
End Sub
 374 
End Sub
374 
 
 375 
 
375 
Sub Print_Package_TopLeft_Menu
 376 
Sub Print_Package_TopLeft_Menu
376 
   Dim PkgNameSTR, PkgVersionSTR
 377 
   Dim PkgNameSTR, PkgVersionSTR, PkgLock
377 
 
 - 
 
- 
 
 378 
If IsObject(pkgInfoHash) Then
378 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name") &"</a>"
 379 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& pkgInfoHash.Item("pkg_id") &"&listby=1'>"& pkgInfoHash.Item("pkg_name")& "</a>"
379 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
 380 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& pkgInfoHash.Item("pkg_version") &"</a>"
- 
 
 381 
   PkgLock = pkgInfoHash.Item("dlocked")
- 
 
 382 
else
- 
 
 383 
    Dim SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked
- 
 
 384 
    Call Get_Pkg_Short_Info( Request("pv_id"), SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
- 
 
 385 
 
- 
 
 386 
   PkgNameSTR = "<a class=mmItem href='view_by_version.asp?pkg_id="& SSpkgID &"&listby=1'>"& SSpkgName& "</a>"
- 
 
 387 
   PkgVersionSTR = " &gt; <a class=mmItem href='#'>"& SSpkgVersion &"</a>"
- 
 
 388 
   PkgLock = BBdlocked
- 
 
 389 
End If
380 
 
 390 
 
381 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 391 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
382 
   Response.write "  <tr>"
 392 
   Response.write "  <tr>"
383 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
 393 
   Response.write "    <td width='1%'><img src='images/h_trsp_dot.gif' width='30' height='35'></td>"
384 
   If (pkgInfoHash.Item("dlocked") = "Y") OR (pkgInfoHash.Item("dlocked") = "A") Then
 394 
   If (PkgLock= "Y") OR (PkgLock = "A") Then
385 
       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>"
 395 
       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>"
386 
   Else
 396 
   Else
387 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
 397 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
388 
   End If
 398 
   End If
389 
   Response.write "  </tr>"
 399 
   Response.write "  </tr>"
390 
   Response.write "</table>"
 400 
   Response.write "</table>"
391 
 
 - 
 
392 
End Sub
 401 
End Sub
393 
 
 402 
 
394 
 
 403 
 
395 
Function Projects_Menu ( NNarrIndex )
 404 
Function Projects_Menu ( NNarrIndex )
396 
   Dim rsTemp, Query_String, tempSTR
 405 
   Dim rsTemp, Query_String, tempSTR