Subversion Repositories DevTools

Rev

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

Rev 5190 Rev 5266
Line 40... Line 40...
40 
Set notesIssDict = CreateObject("Scripting.Dictionary")
 40 
Set notesIssDict = CreateObject("Scripting.Dictionary")
41 
Set depIssDict = CreateObject("Scripting.Dictionary")
 41 
Set depIssDict = CreateObject("Scripting.Dictionary")
42 
Set vcsInfoCollector = CreateObject("Scripting.Dictionary")
 42 
Set vcsInfoCollector = CreateObject("Scripting.Dictionary")
43 
'----------------------------------------------
 43 
'----------------------------------------------
44 
%>
 44 
%>
- 
 
 45 
<!-- Local Java Script -->
- 
 
 46 
<script language="JavaScript">
- 
 
 47 
//  Local Tips
- 
 
 48 
formTips.tips.following       = stdTip(200, 'Following', 'The user may \'follow\' a package in one or more Projects.<p>When the package is released the user will be notified by email.' );
- 
 
 49 
</script>
45 
<%
 50 
<%
46 
'----------------------------------------------------------------------------------------------------------------------------------------
 51 
'----------------------------------------------------------------------------------------------------------------------------------------
47 
Function asDepIss ( SSiss_db_id, SScolumn )
 52 
Function asDepIss ( SSiss_db_id, SScolumn )
48 
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
 53 
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
49 
 
 54 
 
Line 451... Line 456...
451 
        Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
 456 
        Get_Pkg_Vcs_Tag = OraDatabase.Parameters("RETURN_CODE").Value
452 
   On Error Goto 0
 457 
   On Error Goto 0
453 
   OraDatabase.Parameters.Remove "PV_ID"
 458 
   OraDatabase.Parameters.Remove "PV_ID"
454 
   OraDatabase.Parameters.Remove "RETURN_CODE"
 459 
   OraDatabase.Parameters.Remove "RETURN_CODE"
455 
End Function
 460 
End Function
- 
 
 461 
'-------------------------------------------------
- 
 
 462 
' Description:  Return a string displaying if the user is following this package in theis Release
456 
'----------------------------------------------------------------------------------------------------------------------------------------
 463 
'----------------------------------------------------------------------------------------------------------------------------------------
- 
 
 464 
Function GetFollowing ()
- 
 
 465 
   Dim rsQry
- 
 
 466 
   Dim thisProject, otherProjects
- 
 
 467 
 
- 
 
 468 
   GetFollowing = "Not logged in"
- 
 
 469 
 
- 
 
 470 
   If objAccessControl.UserLogedIn() Then
- 
 
 471 
       OraDatabase.Parameters.Add "PKG_ID",  pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 472 
       OraDatabase.Parameters.Add "PROJ_ID", pkgInfoHash.Item ("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 473 
       OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId(), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 474 
 
- 
 
 475 
       Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_INTEREST WHERE PKG_ID = :PKG_ID AND PROJ_ID = :PROJ_ID AND USER_ID = :USER_ID", cint(0))
- 
 
 476 
       thisProject = rsQry.RecordCount > 0
- 
 
 477 
 
- 
 
 478 
       Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_INTEREST WHERE PKG_ID = :PKG_ID AND PROJ_ID != :PROJ_ID AND USER_ID = :USER_ID", cint(0))
- 
 
 479 
       otherProjects = rsQry.RecordCount > 0
- 
 
 480 
 
- 
 
 481 
       If thisProject Then
- 
 
 482 
           If otherProjects Then
- 
 
 483 
                GetFollowing = "Yes. In this and other projects"
- 
 
 484 
               Else
- 
 
 485 
                GetFollowing = "Yes. Only this project"
- 
 
 486 
           End If
- 
 
 487 
       Else
- 
 
 488 
           If otherProjects Then
- 
 
 489 
                GetFollowing = "Yes, but not in this project"
- 
 
 490 
               Else
- 
 
 491 
                GetFollowing = "No"
- 
 
 492 
           End If
- 
 
 493 
       End If
- 
 
 494 
 
- 
 
 495 
       OraDatabase.Parameters.Remove "USER_ID"
- 
 
 496 
       OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 497 
       OraDatabase.Parameters.Remove "PKG_ID"
- 
 
 498 
       rsQry.Close()
- 
 
 499 
       Set rsQry = nothing
- 
 
 500 
 
- 
 
 501 
       GetFollowing = GetFollowing +  "<img class='image12 vixIframeDialog' href='_iframe_pkgs_followed.asp?proj_id=" + pkgInfoHash.Item ("proj_id") + "&pkg_id=" & pkgInfoHash.Item ("pkg_id") & "' title='Follow: " & pkgInfoHash.Item ("pkg_name") &"' src='images/i_follow.gif'>"
- 
 
 502 
 
- 
 
 503 
    End If
- 
 
 504 
End Function
457 
%>
 505 
%>
458 
<%
 506 
<%
459 
'------------------ MAIN LINE --------------------
 507 
'------------------ MAIN LINE --------------------
460 
'-------------------------------------------------
 508 
'-------------------------------------------------
461 
%>
 509 
%>
Line 541... Line 589...
541 
         <td bgcolor=#f5f5f5 class="sublbox_txt"><%=sstate%></td>
 589 
         <td bgcolor=#f5f5f5 class="sublbox_txt"><%=sstate%></td>
542 
      </tr>
 590 
      </tr>
543 
 
 591 
 
544 
      <tr>
 592 
      <tr>
545 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Deployable:</b></td>
 593 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Deployable:</b></td>
546 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
 - 
 
547 
            <%If IsNull( rsQry("is_deployable") ) Then%>No<%Else%>Yes<%End If%>
 594 
         <td bgcolor=#f5f5f5 class="sublbox_txt"><%=iif(IsNull( rsQry("is_deployable") ), "Yes","No")%></td>
548 
         </td>
 - 
 
549 
      </tr>
 595 
      </tr>
550 
 
 596 
 
551 
      <tr>
 597 
      <tr>
552 
         <td width="1%" nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Short Description:</b></td>
 598 
         <td width="1%" nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Short Description:</b></td>
553 
         <td witdh="100%" bgcolor=#f5f5f5 class="sublbox_txt">
 599 
         <td witdh="100%" bgcolor=#f5f5f5 class="sublbox_txt">
Line 722... Line 768...
722 
            <%=Get_Pkg_Base_View ( parPv_id, parRtag_id )%>
 768 
            <%=Get_Pkg_Base_View ( parPv_id, parRtag_id )%>
723 
         </td>
 769 
         </td>
724 
      </tr>
 770 
      </tr>
725 
 
 771 
 
726 
      <tr>
 772 
      <tr>
- 
 
 773 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Following:</b><%=Quick_Help("following")%></td>
- 
 
 774 
         <td bgcolor=#f5f5f5 class="sublbox_txt"><%=GetFollowing()%></td>
- 
 
 775 
      </tr>
- 
 
 776 
 
- 
 
 777 
      <tr>
727 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
 778 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
728 
            <b>Build Standard:</b>
 779 
            <b>Build Standard:</b>
729 
         </td>
 780 
         </td>
730 
         <%
 781 
         <%
731 
         If pkgInfoHash.Item ("bs_id") <> "" Then
 782 
         If pkgInfoHash.Item ("bs_id") <> "" Then