Subversion Repositories DevTools

Rev

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

Rev 1499 Rev 2362
Line 372... Line 372...
372 
   rsTemp.Close()
 372 
   rsTemp.Close()
373 
   Set rsTemp = nothing
 373 
   Set rsTemp = nothing
374 
End Sub
 374 
End Sub
375 
 
 375 
 
376 
Sub Print_Package_TopLeft_Menu
 376 
Sub Print_Package_TopLeft_Menu
377 
   Dim PkgNameSTR, PkgVersionSTR
 377 
   Dim PkgNameSTR, PkgVersionSTR, PkgLock
378 
 
 - 
 
- 
 
 378 
If IsObject(pkgInfoHash) Then
379 
   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>"
380 
   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
381 
 
 390 
 
382 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
 391 
   Response.write "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
383 
   Response.write "  <tr>"
 392 
   Response.write "  <tr>"
384 
   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>"
385 
   If (pkgInfoHash.Item("dlocked") = "Y") OR (pkgInfoHash.Item("dlocked") = "A") Then
 394 
   If (PkgLock= "Y") OR (PkgLock = "A") Then
386 
       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>"
387 
   Else
 396 
   Else
388 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
 397 
      Response.write "    <td nowrap width='100%' class=mmItem>"& PkgNameSTR & PkgVersionSTR &"</td>"
389 
   End If
 398 
   End If
390 
   Response.write "  </tr>"
 399 
   Response.write "  </tr>"
391 
   Response.write "</table>"
 400 
   Response.write "</table>"
392 
 
 - 
 
393 
End Sub
 401 
End Sub
394 
 
 402 
 
395 
 
 403 
 
396 
Function Projects_Menu ( NNarrIndex )
 404 
Function Projects_Menu ( NNarrIndex )
397 
   Dim rsTemp, Query_String, tempSTR
 405 
   Dim rsTemp, Query_String, tempSTR