Subversion Repositories DevTools

Rev

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

Rev 7536 Rev 7537
Line 569... Line 569...
569 
       End If
 569 
       End If
570 
 
 570 
 
571 
    End If
 571 
    End If
572 
End Function
 572 
End Function
573 
'---------------------------------------------------------------
 573 
'---------------------------------------------------------------
574 
' Get the external Reference field
 - 
 
575 
'---------------------------------------------------------------
 - 
 
576 
Dim bisaCots
 - 
 
577 
Dim externalRefText
 - 
 
578 
 
 - 
 
579 
Sub getExernalRef
 - 
 
580 
    Dim rsQry
 - 
 
581 
    bisaCots = FALSE
 - 
 
582 
    externalRefText = ""
 - 
 
583 
 
 - 
 
584 
    OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
585 
    OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
586 
 
 - 
 
587 
    Set rsQry = OraDatabase.DbCreateDynaset("SELECT IS_COTS from PROJECT_EXTENTIONS WHERE Upper(ext_name) = Upper(:V_EXT)", cint(0))
 - 
 
588 
    If rsQry.RecordCount > 0 Then
 - 
 
589 
        bisaCots = (rsQry("IS_COTS") = "Y")
 - 
 
590 
   End If
 - 
 
591 
 
 - 
 
592 
    Set rsQry = OraDatabase.DbCreateDynaset("SELECT EREF from PACKAGE_EREF WHERE PV_ID = :PV_ID", cint(0))
 - 
 
593 
    If rsQry.RecordCount > 0 Then
 - 
 
594 
        externalRefText = rsQry("EREF")
 - 
 
595 
   End If
 - 
 
596 
 
 - 
 
597 
    OraDatabase.Parameters.Remove "PV_ID"
 - 
 
598 
    OraDatabase.Parameters.Remove "V_EXT"
 - 
 
599 
    rsQry.Close()
 - 
 
600 
    Set rsQry = nothing
 - 
 
601 
End Sub
 - 
 
602 
'---------------------------------------------------------------
 - 
 
603 
' Description:  Return a string displaying licence information
 574 
' Description:  Return a string displaying licence information
604 
'---------------------------------------------------------------
 575 
'---------------------------------------------------------------
605 
Function getLicence
 576 
Function getLicence
606 
   Dim rsQry, rsSql, lName
 577 
   Dim rsQry, rsSql, lName
607 
   Dim licenceList
 578 
   Dim licenceList
Line 940... Line 911...
940 
      </tr>
 911 
      </tr>
941 
       <!-- Package 3rd Party External Reference -->
 912 
       <!-- Package 3rd Party External Reference -->
942 
      <tr>
 913 
      <tr>
943 
      <%
 914 
      <%
944 
      ' Display only if the package is a COTS ( or TOOL ) package
 915 
      ' Display only if the package is a COTS ( or TOOL ) package
945 
      ' Display if this package has associated licencing
916 
      ' Display if this package has associated licencing
946 
      Call getExernalRef
 917 
      ' Display if this is the first version of the package
947 
      If bisaCots OR bHasaLicense OR externalRefText <> ""  Then
 918 
      If pkgInfoHash.Item("is_cots") = "Y" OR (CINT(pkgInfoHash.Item("pkgVerCount")) = 1 AND pkgInfoHash.Item("dlocked") = "N" ) OR bHasaLicense OR pkgInfoHash.Item("pkg_eref") <> ""  Then
948 
       %>
 919 
       %>
949 
         <td>
 920 
         <td>
950 
            <%BuildEditButtonRaw canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer"), _
 921 
            <%BuildEditButtonRaw canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer"), _
951 
                "External Reference:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
 922 
                "External Reference:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
952 
                "MM_openVixIFrame('_wform_change_eref.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change External Reference')" %>
 923 
                "MM_openVixIFrame('_wform_change_eref.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change External Reference')" %>
953 
                <%=Quick_Help("ExternalRef")%>
 924 
                <%=Quick_Help("ExternalRef")%>
954 
         </td>
 925 
         </td>
955 
         <td>
 926 
         <td>
956 
            <%=externalRefText%>
 927 
            <%=pkgInfoHash.Item("pkg_eref")%>
957 
         </td>
 928 
         </td>
958 
      </tr>
 929 
      </tr>
959 
       <%End If%>
 930 
       <%End If%>
960 
	  <!-- Build Owner -->
 931 
	  <!-- Build Owner -->
961 
      <tr>
 932 
      <tr>