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