| Line 146... |
Line 146... |
| 146 |
' Formulate the HTML for a combo box listing all the Release for a specified project, and select the one that matches
|
146 |
' Formulate the HTML for a combo box listing all the Release for a specified project, and select the one that matches
|
| 147 |
' the release-tag passed in as a parameter. If the parameter value could not be found, correct it to the first valid release-tag
|
147 |
' the release-tag passed in as a parameter. If the parameter value could not be found, correct it to the first valid release-tag
|
| 148 |
' in the list.
|
148 |
' in the list.
|
| 149 |
'------------------------------------------------------------------------------------------------------------------------------------------
|
149 |
'------------------------------------------------------------------------------------------------------------------------------------------
|
| 150 |
Function Get_Releases ( NNproj_id, NNrtag_id )
|
150 |
Function Get_Releases ( NNproj_id, NNrtag_id )
|
| 151 |
Dim rsTemp, Query_String, releaseName, tempLINK, selectedFound, s, numReleases
|
151 |
Dim rsTemp, Query_String, rName, tempLINK, selectedFound, s, numReleases
|
| 152 |
|
152 |
|
| 153 |
selectedFound = False
|
153 |
selectedFound = False
|
| 154 |
|
154 |
|
| 155 |
numReleases = 0
|
155 |
numReleases = 0
|
| 156 |
|
156 |
|
| Line 162... |
Line 162... |
| 162 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
162 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 163 |
|
163 |
|
| 164 |
s = "<select id='rtag_id_list' name='rtag_id_list' class='form_item' onChange=""MM_jumpMenu('window',this,0)"">"
|
164 |
s = "<select id='rtag_id_list' name='rtag_id_list' class='form_item' onChange=""MM_jumpMenu('window',this,0)"">"
|
| 165 |
|
165 |
|
| 166 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
166 |
While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
|
| 167 |
releaseName = rsTemp.Fields("rtag_name")
|
167 |
rName = rsTemp.Fields("rtag_name")
|
| 168 |
|
168 |
|
| 169 |
tempLINK = scriptName & "?proj_id="& NNproj_id &_
|
169 |
tempLINK = scriptName & "?proj_id="& NNproj_id &_
|
| 170 |
"&rtag_id="& parRtag_id &_
|
170 |
"&rtag_id="& parRtag_id &_
|
| 171 |
"&new_rtag_id="& rsTemp.Fields("rtag_id") &_
|
171 |
"&new_rtag_id="& rsTemp.Fields("rtag_id") &_
|
| 172 |
"&pv_id="& parPv_id &_
|
172 |
"&pv_id="& parPv_id &_
|
| 173 |
"&rfile="& parRfile
|
173 |
"&rfile="& parRfile
|
| 174 |
|
174 |
|
| 175 |
If ((CStr(NNrtag_id) = CStr(rsTemp.Fields("rtag_id"))) OR (NNrtag_id = "0")) AND (selectedFound = False) Then
|
175 |
If ((CStr(NNrtag_id) = CStr(rsTemp.Fields("rtag_id"))) OR (NNrtag_id = "0")) AND (selectedFound = False) Then
|
| 176 |
s = s + "<option value='"& tempLINK &"' selected>"& releaseName &"</option>"
|
176 |
s = s + "<option value='"& tempLINK &"' selected>"& rName &"</option>"
|
| 177 |
selectedFound = True
|
177 |
selectedFound = True
|
| 178 |
NNrtag_id = Cstr(rsTemp.Fields("rtag_id"))
|
178 |
NNrtag_id = Cstr(rsTemp.Fields("rtag_id"))
|
| 179 |
Else
|
179 |
Else
|
| 180 |
s = s + "<option value='"& tempLINK &"'>"& releaseName &"</option>"
|
180 |
s = s + "<option value='"& tempLINK &"'>"& rName &"</option>"
|
| 181 |
End If
|
181 |
End If
|
| 182 |
|
182 |
|
| 183 |
numReleases = numReleases + 1
|
183 |
numReleases = numReleases + 1
|
| 184 |
|
184 |
|
| 185 |
rsTemp.MoveNext
|
185 |
rsTemp.MoveNext
|