Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 197... Line 197...
197
		
197
		
198
 
198
 
199
		
199
		
200
		returnString = returnString &_
200
		returnString = returnString &_
201
			""& PkgName &" => {"& VBNewLine &_
201
			""& PkgName &" => {"& VBNewLine &_
-
 
202
            "          CheckVersionFlag  => '"& VersionFlag &"',"& VBNewLine &_
202
            "          ERGPkgFlag        => '"& PkgFlag &"',"& VBNewLine &_
203
            "          ERGPkgFlag        => '"& PkgFlag &"',"& VBNewLine 
-
 
204
		
-
 
205
		returnString = returnString &_
203
            "          CheckVersionFlag  => '"& VersionFlag &"',"& VBNewLine 
206
            "          PkgDesc           => '"& Description &"', "& VBNewLine
204
			
207
			
205
		If IsNull(Ext) Then
208
		If IsNull(Ext) Then
206
			returnString = returnString &_
209
			returnString = returnString &_
207
	            "          PkgVersion        => '"& PkgVersion &"',"&  VBNewLine &_ 
210
	            "          PkgProjAcronym    => '???',"&  VBNewLine &_ 
208
				"          PkgProjAcronym    => '???',"&  VBNewLine 
211
				"          PkgVersion        => '"& PkgVersion &"'"&  VBNewLine 
209
		Else
212
		Else
210
			returnString = returnString &_
213
			returnString = returnString &_
211
            	"          PkgVersion        => '"& Left(PkgVersion, Len(PkgVersion) - Len(Ext) - 1 ) &"',"&  VBNewLine &_
214
            	"          PkgProjAcronym    => '"& Ext &"',"&  VBNewLine &_
212
            	"          PkgProjAcronym    => '"& Ext &"',"&  VBNewLine 
215
				"          PkgVersion        => '"& Left(PkgVersion, Len(PkgVersion) - Len(Ext) - 1 ) &"'"&  VBNewLine
213
		End If
216
		End If
214
		
217
		
-
 
218
		
215
		returnString = returnString &_
219
           returnString = returnString &_
216
            "          PkgDesc           => '"& Description &"' "& VBNewLine &_
-
 
217
            "	},"& VBNewLine
220
		    "	},"& VBNewLine
218
		
221
		
219
		
222
		
220
		
223
		
221
		rsQry.MoveNext()
224
		rsQry.MoveNext()
222
	WEnd
225
	WEnd