Subversion Repositories DevTools

Rev

Rev 1499 | Rev 3866 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1499 Rev 2362
Line 41... Line 41...
41 
   Set rsTemp = Nothing
 41 
   Set rsTemp = Nothing
42 
End Function
 42 
End Function
43 
 
 43 
 
44 
'--------------------------------------------------------------------------------------
 44 
'--------------------------------------------------------------------------------------
45 
'Return a relative path to the server base. Used for relative pathing to 'images'
 45 
'Return a relative path to the server base. Used for relative pathing to 'images'
- 
 
 46 
'Assumes server base is in a directory called Release_Manager
46 
Function GetPathToBase()
 47 
Function GetPathToBase()
47 
    Dim url,depth,rv,ii
 48 
    Dim url,depth,rv,ii
48 
    url = request.servervariables("URL")
 49 
    url = request.servervariables("URL")
49 
    url = Mid(url,Instr(url, "Release_Manager"))
 50 
    url = Mid(url,Instr(url, "Release_Manager"))
50 
    depth =  len(url) - len(replace(url, "/", ""))
 51 
    depth =  len(url) - len(replace(url, "/", ""))
Line 105... Line 106...
105 
Const enum_MSG_NEW_UNOFFICIAL_RELEASE_CREATED               = "msg_new_unofficial_release_created.asp"
 106 
Const enum_MSG_NEW_UNOFFICIAL_RELEASE_CREATED               = "msg_new_unofficial_release_created.asp"
106 
Const enum_MSG_DUPLICATE_AN                                 = "msg_duplicate_an.asp"
 107 
Const enum_MSG_DUPLICATE_AN                                 = "msg_duplicate_an.asp"
107 
Const enum_MSG_DUPLICATE_UT                                 = "msg_duplicate_ut.asp"
 108 
Const enum_MSG_DUPLICATE_UT                                 = "msg_duplicate_ut.asp"
108 
Const enum_MSG_PACKAGE_INFORMATION_INCOMPLETE               = "msg_package_information_incomplete.asp"
 109 
Const enum_MSG_PACKAGE_INFORMATION_INCOMPLETE               = "msg_package_information_incomplete.asp"
109 
Const enum_MSG_VCS_INFORMATION_INCOMPLETE                   = "msg_vcs_information_incomplete.asp"
 110 
Const enum_MSG_VCS_INFORMATION_INCOMPLETE                   = "msg_vcs_information_incomplete.asp"
- 
 
 111 
Const enum_MSG_VCS_SUBVERSION_CC_MIX                        = "msg_vcs_subversion_cc_mix.asp"
110 
Const enum_MSG_VCS_SVN_NOT_PEGGED                           = "msg_vcs_svn_not_pegged.asp"
 112 
Const enum_MSG_VCS_SVN_NOT_PEGGED                           = "msg_vcs_svn_not_pegged.asp"
111 
Const enum_MSG_AUTOBUILD_PACKAGE_IS_UNCONTROLLED            = "msg_autobuild_package_is_uncontrolled.asp"
 113 
Const enum_MSG_AUTOBUILD_PACKAGE_IS_UNCONTROLLED            = "msg_autobuild_package_is_uncontrolled.asp"
112 
Const enum_MSG_AUTOBUILD_PACKAGE_REQUIRES_BUILD_STD_AND_ENV = "msg_autobuild_package_requires_build_std_and_env.asp"
 114 
Const enum_MSG_AUTOBUILD_PACKAGE_REQUIRES_BUILD_STD_AND_ENV = "msg_autobuild_package_requires_build_std_and_env.asp"
113 
Const enum_MSG_UNIT_TESTS_NOT_SUPPLIED                      = "msg_unit_tests_not_supplied.asp"
 115 
Const enum_MSG_UNIT_TESTS_NOT_SUPPLIED                      = "msg_unit_tests_not_supplied.asp"
114 
Const enum_MSG_REASON_FOR_THIS_VERSION_NOT_SUPLIED          = "msg_reason_for_this_version_not_suplied.asp"
 116 
Const enum_MSG_REASON_FOR_THIS_VERSION_NOT_SUPLIED          = "msg_reason_for_this_version_not_suplied.asp"