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 &_