Subversion Repositories DevTools

Rev

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

Rev 7002 Rev 7286
Line 13... Line 13...
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
 14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
 16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/_popup_window_common.asp"-->
 17 
<!--#include file="common/_popup_window_common.asp"-->
- 
 
 18 
<!--#include file="common/_form_window_common.asp"-->
18 
<%
 19 
<%
19 
' Set rfile parameter. This is a return page after Login
 20 
' Set rfile parameter. This is a return page after Login
20 
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
 21 
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
21 
'------------ ACCESS CONTROL ------------------
 22 
'------------ ACCESS CONTROL ------------------
22 
%>
 23 
%>
Line 28... Line 29...
28 
Dim parPv_id
 29 
Dim parPv_id
29 
Dim query
 30 
Dim query
30 
Dim rsQry, rsTemp
 31 
Dim rsQry, rsTemp
31 
Dim checked
 32 
Dim checked
32 
Dim FRdeployableYES, FRdeployableNO
 33 
Dim FRdeployableYES, FRdeployableNO
33 
Dim objFormCollector
 - 
 
34 
Dim pageIsEditable, criticalSectionIsEditable
 34 
Dim pageIsEditable, criticalSectionIsEditable
35 
Dim disableCriticalSectionEdit
 35 
Dim disableCriticalSectionEdit
36 
Dim Query_String
 36 
Dim Query_String
37 
Dim parVCSTag
 37 
Dim parVCSTag
38 
Dim parBSName
 38 
Dim parBSName
Line 40... Line 40...
40 
Dim on_submit_validation
 40 
Dim on_submit_validation
41 
Dim sDefaultLabel, sLabel, sLabelReadOnly
 41 
Dim sDefaultLabel, sLabel, sLabelReadOnly
42 
Dim isWIP
 42 
Dim isWIP
43 
'------------ Constants Declaration -----------
 43 
'------------ Constants Declaration -----------
44 
'------------ Variable Init -------------------
 44 
'------------ Variable Init -------------------
45 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 - 
 
46 
parPv_id = QStrPar("pv_id")
 45 
parPv_id = QStrPar("pv_id")
47 
parVCSTag = QStrPar("vcs_tag")
 46 
parVCSTag = QStrPar("vcs_tag")
48 
parBSName = QStrPar("bs_name")
 47 
parBSName = QStrPar("bs_name")
49 
'----------------------------------------------
 48 
'----------------------------------------------
50 
%>
 49 
%>