Subversion Repositories DevTools

Rev

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

Rev 3616 Rev 3959
Line 428... Line 428...
428 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
 428 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
429 
 
 429 
 
430 
	pkgType = Get_Package_Type ( parPv_id )
 430 
	pkgType = Get_Package_Type ( parPv_id )
431 
 
 431 
 
432 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
 432 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
433 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
 - 
 
434 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 - 
 
435 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
 - 
 
436 
 
 - 
 
437 
	Else
 - 
 
438 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 433 
	rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
439 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 434 
	objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
440 
 
 - 
 
441 
	End If
 - 
 
442 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
 435 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
443 
 
 436 
 
444 
	' --------------- RELEASE NOTES ----------------
 437 
	' --------------- RELEASE NOTES ----------------
445 
 
 438 
 
446 
	Select Case pkgType
 439 
	Select Case pkgType