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>