Subversion Repositories DevTools

Rev

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

Rev 5962 Rev 6671
Line 12... Line 12...
12
Dim APP_ROOT
12
Dim APP_ROOT
13
Dim rootPath
13
Dim rootPath
14
Dim scriptName
14
Dim scriptName
15
Dim SMTP_HOST
15
Dim SMTP_HOST
16
Dim ACCESS_MANAGER_URL
16
Dim ACCESS_MANAGER_URL
-
 
17
Dim DEPLOYMENT_MANAGER_URL
-
 
18
Dim PRODUCTION_MANAGER_URL
-
 
19
Dim RELEASE_MANAGER_URL
17
Dim strRelativePath             ' Rel Path from script to URL
20
Dim strRelativePath             ' Rel Path from script to URL
18
Dim managerSuiteBase            ' Url to the base of the Manager Suite
21
Dim managerSuiteBase            ' Url to the base of the Manager Suite
19
Dim FavIcon                     ' Favorite Icon
22
Dim FavIcon                     ' Favorite Icon
20
Dim RmDebug                     ' Debug Display
23
Dim RmDebug                     ' Debug Display
-
 
24
Dim VixVerNum : VixVerNum = 1   ' Bump to force cache reload of many resources
21
 
25
 
22
' -----------------------------------------------------
26
' -----------------------------------------------------
23
%>
27
%>
24
<%
28
<%
25
' -- DATABASE CONNECTIONS -----------------------------
29
' -- DATABASE CONNECTIONS -----------------------------
Line 135... Line 139...
135
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
139
Const enumRELEASES_DAYS_BACK_IN_TIME = 7		' Number of days back in time searching for released products
136
 
140
 
137
strRelativePath = GetPathToBase()
141
strRelativePath = GetPathToBase()
138
managerSuiteBase = GetManagerSuiteBase()
142
managerSuiteBase = GetManagerSuiteBase()
139
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
143
ACCESS_MANAGER_URL      = ManagerSuiteBase & "/Access_Manager"
-
 
144
DEPLOYMENT_MANAGER_URL  = ManagerSuiteBase & "/Deployment_Manager"
-
 
145
PRODUCTION_MANAGER_URL  = ManagerSuiteBase & "/Production_Manager"
-
 
146
RELEASE_MANAGER_URL     = ManagerSuiteBase & "/Release_Manager"
140
FavIcon = strRelativePath & "favicons/PM" & Application("FavIconSuffix") & ".png"
147
FavIcon = strRelativePath & "favicons/PM" & Application("FavIconSuffix") & ".png"
141
 
148
 
142
' -----------------------------------------------------
149
' -----------------------------------------------------
143
%>
150
%>
144
<%
151
<%