Subversion Repositories DevTools

Rev

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

Rev 19 Rev 23
Line 206... Line 206...
206 
	GetNodeProcessConfigDetails = NodeProcessString
206 
	GetNodeProcessConfigDetails = NodeProcessString
207
207
208 
End Function
 208 
End Function
209 
'-----------------------------------------------------------------------------------------------------------------
 209 
'-----------------------------------------------------------------------------------------------------------------
210 
Function GetNodeProductDetails ( nOsId )
 210 
Function GetNodeProductDetails ( nOsId )
211 
	Dim rsQry, NodeProcessString, RecNum, Ext, PkgName, PkgFlag, VersionFlag, PkgVersion
 211 
	Dim rsQry, NodeProcessString, RecNum, Ext, PkgName, PkgFlag, VersionFlag, PkgVersion, Description
212
212
213 
	OraDatabase.Parameters.Add "OS_ID", nOsId, ORAPARM_INPUT, ORATYPE_NUMBER
213 
	OraDatabase.Parameters.Add "OS_ID", nOsId, ORAPARM_INPUT, ORATYPE_NUMBER
214
214
215 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ExportOsProductList.sql"), ORADYN_DEFAULT )
 215 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ExportOsProductList.sql"), ORADYN_DEFAULT )
216
216
Line 244... Line 244...
244 
			' Remove first dot from extension
 244 
			' Remove first dot from extension
245 
			If InStr( 1, Ext, "." ) = 1 Then
 245 
			If InStr( 1, Ext, "." ) = 1 Then
246 
				Ext = Right( Ext, Len(Ext) - 1 )
 246 
				Ext = Right( Ext, Len(Ext) - 1 )
247 
				PkgVersion = Left(PkgVersion, Len(PkgVersion) - Len(Ext) - 1 )
 247 
				PkgVersion = Left(PkgVersion, Len(PkgVersion) - Len(Ext) - 1 )
248 
			End If
 248 
			End If
- 
 
 249 
		Else
- 
 
 250 
			Ext="???"
249 
		End If
 251 
		End If
250 
 
 252 
 
- 
 
 253 
		' Format Description
- 
 
 254 
		Description = rsQry("pv_description")
- 
 
 255 
		If NOT IsNull(Description) Then
- 
 
 256 
			Description = Replace ( Description, VBNewLine, "" )
- 
 
 257 
			Description = Replace ( Description, """", "" )
- 
 
 258 
		End if
- 
 
 259 
 
251 
 
 260 
 
252 
 
 261 
 
253
262
254 
 
 263 
 
255 
 
 264 
 
Line 266... Line 275...
266 
		'NodeProcessString for packages.
 275 
		'NodeProcessString for packages.
267 
		NodeProcessString = NodeProcessString &_
 276 
		NodeProcessString = NodeProcessString &_
268 
		"	"& rsQry("PKG_NAME") &" => {" & vbNewLine &_
 277 
		"	"& rsQry("PKG_NAME") &" => {" & vbNewLine &_
269 
		"		CheckVersionFlag		=> '"& VersionFlag &"',"& vbNewLine &_
 278 
		"		CheckVersionFlag		=> '"& VersionFlag &"',"& vbNewLine &_
270 
		"		ERGPkgFlag		=> '"& PkgFlag &"',"& vbNewLine &_
 279 
		"		ERGPkgFlag		=> '"& PkgFlag &"',"& vbNewLine &_
271 
		"		PkgDesc			=> '"& rsQry("PV_DESCRIPTION") &"',"& vbNewLine &_
 280 
		"		PkgDesc			=> '"& Description &"',"& vbNewLine &_
272 
		"		PkgProjAcronym		=> '"& Ext &"',"& vbNewLine &_
 281 
		"		PkgProjAcronym		=> '"& Ext &"',"& vbNewLine &_
273 
		"		PkgVersion		=> '"& PkgVersion &"'"& vbNewLine
282 
		"		PkgVersion		=> '"& PkgVersion &"'"& vbNewLine
274
283
275 
		If (rsQry.RecordCount <> RecNum) AND (rsQry.RecordCount <> 1) Then
 284 
		If (rsQry.RecordCount <> RecNum) AND (rsQry.RecordCount <> 1) Then
276 
			NodeProcessString = NodeProcessString &_
 285 
			NodeProcessString = NodeProcessString &_