<% '===================================================== ' File description '===================================================== ' _drawExtensionSelectBox.asp ' ' Last edited by Haydon Knight June 2008 ' ' This file contains a utility subroutine 'drawExtensionSelectBox()' that is ' called by _form_new_version_page.asp to help draw a select box of possible extensions. ' '===================================================== ' Subroutines and functions '===================================================== ' '----------------------------------------------------------------------------------------------------------------------------- ' Subroutine: drawExtensionSelectBox() ' ' Purpose: Writes out html options for a select box of possible package extensioms ' ' Arguments: defaultExtension - default extension to have selected (usually objPkgInfo.Item("v_ext")) ' isNewVersion - true if a new version is being created, else false ' ' Returns: none ' ' Notes: This only writes out the bits of the select box - the rest of the html has to be done elsewhere Sub drawExtensionSelectBox (defaultExtension, isNewVersion) Dim optionText optionText = getExtensionSelectText( defaultExtension, isNewVersion ) Response.write( optionText ) End Sub '----------------------------------------------------------------------------------------------------------------------------- ' Function: getExtensionSelectText() ' ' Purpose: Returns text for a select box of possible package extensioms ' ' Arguments: defaultExtension - default extension to have selected (usually objPkgInfo.Item("v_ext")) ' isNewVersion - true if a new version is being created, else false ' Returns: text ' ' Notes: This only returns as a string the bits of the select box - the rest of the html has to be done elsewhere Function getExtensionSelectText (defaultExtension, isNewVersion) Dim selectedString Dim selectedFound Dim cmt Dim dot_ext Dim rsQry Dim attrCots Dim isCots getExtensionSelectText = "" selectedFound = false If defaultExtension = "" Then defaultExtension = ".cr" End If Set rsQry = OraDatabase.DbCreateDynaset( "SELECT EXT_NAME,UCOMMENT,IS_COTS FROM PROJECT_EXTENTIONS pe WHERE pe.IS_VISIBLE='Y' ORDER BY pe.EXT_NAME", ORADYN_DEFAULT ) While (NOT rsQry.BOF) AND (NOT rsQry.EOF) ' Form the bits of the select box, drawing upon the PROJECT_EXTENTIONS contents one element at a time dot_ext = rsQry("EXT_NAME") ' Append comment with a nice separator cmt = rsQry("UCOMMENT") if cmt <> "" Then cmt = " - " & cmt end if selectedString = "" If dot_ext = defaultExtension Then selectedString = "selected" selectedFound = true End If ' Store IsCots information in a custom attribute attrCots = "" isCots = rsQry("IS_COTS") if isCots = "Y" Then attrCots = " isCOTS=""Y""" end if getExtensionSelectText = getExtensionSelectText & "" & dot_ext & cmt & "" rsQry.MoveNext() Wend rsQry.Close() Set rsQry = nothing ' If we are reversioning a package version (isNewVersion = false), and we did not find an extension in the standard list ' that matched the existing version's extension, add the existing package version extension to the list (if it is not ' null or empty) and select it. If isNewVersion = false AND selectedFound = false AND NOT IsNull(defaultExtension) AND defaultExtension <> "" Then getExtensionSelectText = getExtensionSelectText & "" & defaultExtension & "" End If End Function %>