Subversion Repositories DevTools

Rev

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

Rev 4710 Rev 5061
Line 27... Line 27...
27 
Dim FileSystemObject
 27 
Dim FileSystemObject
28 
Dim dpkgArchiveAvailable
 28 
Dim dpkgArchiveAvailable
29 
 
 29 
 
30 
'------------ Constants Declaration -----------
 30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
 31 
'------------ Variable Init -------------------
32 
active = objAccessControl.IsActive("ConfigureBuildService")
 32 
active = canActionControl("ConfigureBuildService")
33 
 
 33 
 
34 
'   Determine if dpkg_archive can be accessed directly via a UNC
 34 
'   Determine if dpkg_archive can be accessed directly via a UNC
35 
If testArchiveAccessPkg("","") Then
 35 
If testArchiveAccessPkg("","") Then
36 
    dpkgArchiveAvailable = "Exists"
36 
    dpkgArchiveAvailable = "Exists"
37 
Else
 37 
Else