Subversion Repositories DevTools

Rev

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

Rev 3865 Rev 3867
Line 44... Line 44...
44 
	Dim selectedString
 44 
	Dim selectedString
45 
	Dim selectedFound
 45 
	Dim selectedFound
46 
	Dim cmt
 46 
	Dim cmt
47 
	Dim dot_ext
 47 
	Dim dot_ext
48 
    Dim rsQry
 48 
    Dim rsQry
- 
 
 49 
    Dim attrCots
- 
 
 50 
    Dim isCots
49 
 
 51 
 
50 
	getExtensionSelectText = ""
 52 
	getExtensionSelectText = ""
51 
	selectedFound = false
 53 
	selectedFound = false
52 
    If defaultExtension = "" Then
 54 
    If defaultExtension = "" Then
53 
        defaultExtension = ".cr"
 55 
        defaultExtension = ".cr"
54 
    End If
 56 
    End If
55 
 
 57 
 
56 
 
 58 
 
57 
	Set rsQry = OraDatabase.DbCreateDynaset( "SELECT EXT_NAME,UCOMMENT FROM PROJECT_EXTENTIONS pe WHERE pe.IS_VISIBLE='Y' ORDER BY pe.EXT_NAME", ORADYN_DEFAULT )
 59 
	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 )
58 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 60 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
59 
 
 61 
 
60 
	' Form the <option> bits of the select box, drawing upon the PROJECT_EXTENTIONS contents one element at a time
 62 
	' Form the <option> bits of the select box, drawing upon the PROJECT_EXTENTIONS contents one element at a time
61 
        dot_ext =  rsQry("EXT_NAME")
 63 
        dot_ext =  rsQry("EXT_NAME")
62 
 
 64 
 
Line 70... Line 72...
70 
		If dot_ext = defaultExtension Then
 72 
		If dot_ext = defaultExtension Then
71 
			selectedString = "selected"
 73 
			selectedString = "selected"
72 
			selectedFound = true
 74 
			selectedFound = true
73 
		End If
 75 
		End If
74 
 
 76 
 
- 
 
 77 
        ' Store IsCots information in a custom attribute
- 
 
 78 
        attrCots = ""
- 
 
 79 
        isCots =  rsQry("IS_COTS")
- 
 
 80 
        if isCots = "Y" Then
- 
 
 81 
            attrCots = " isCOTS=""Y"""
- 
 
 82 
        end if
- 
 
 83 
 
75 
		getExtensionSelectText = getExtensionSelectText & "<option value=""" & dot_ext & """ " & selectedString & ">" & dot_ext & cmt & "</option>"
 84 
		getExtensionSelectText = getExtensionSelectText & "<option value=""" & dot_ext & """ " & selectedString & attrCots & ">" & dot_ext & cmt & "</option>"
76 
	    rsQry.MoveNext()
 85 
	    rsQry.MoveNext()
77 
	Wend
 86 
	Wend
78 
	rsQry.Close()
 87 
	rsQry.Close()
79 
	Set rsQry = nothing
 88 
	Set rsQry = nothing
80 
 
 89