<%@ LANGUAGE="VBScript" %>
<%
'
' 0 - table name
' 1 - column name
' 2 - default value
' 3 - parameter name
' 4 - fec,string,port
'
Dim fec_parameter(5,40)
Dim fec_value(7,40)
If Request("n_refresh")="" Then
n_refresh=0
Else
n_refresh=CInt(Request("n_refresh"))+1
End If
' response.write(n_refresh)
fec_number=Request("fec_number")
If fec_number="" Then
message="Specify FEC number ! "
%>
<%
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Mode = adModeRead
Connection.Open phdb_rd
'
' Check if people registered for shift/logbook writing
'
operator1=""
operator2=""
firstname1=""
firstname2=""
registered=0
If Request.Cookies("PHOBOSPORTAL").HasKeys Then
strCookie1=Request.Cookies("PHOBOSPORTAL")("OPERATOR1")
If Not (IsNull(strCookie1) OR ( Len(strCookie1) = 0)) Then
registered=1
operator1=CStr(strCookie1)
firstname1=CStr(Request.Cookies("PHOBOSPORTAL")("FIRSTNAME1"))
strCookie2=Request.Cookies("PHOBOSPORTAL")("OPERATOR2")
If Not (IsNull(strCookie2) OR ( Len(strCookie2) = 0)) Then
operator2=CStr(strCookie2)
firstname2=CStr(Request.Cookies("PHOBOSPORTAL")("FIRSTNAME2"))
End If
End If
End if
If Firstname1<>"" Then
Fullname1=Ucase(Left(Firstname1,1)) & ". " & operator1
Else
Fullname1=operator1
End If
If Firstname2<>"" Then
Fullname2=Ucase(Left(Firstname2,1)) & ". " & operator2
Else
Fullname2=operator2
End If
If registered=0 Then
Fullname1="Not Registered"
End If
comments=Request("comments")
comments= Replace(comments,"'","''")
commentsbr= Replace(comments,Chr(13) & Chr(10)," ",1,-1,1)
timedate=Request("timedate")
If timedate="" Then
SQLStmtX = " select to_char(sysdate,'MM/DD/YYYY HH24:MI:SS') timedate from dual "
Set RSX = Connection.Execute(SQLStmtX)
timedate = CStr(RSX("timedate"))
End If
' response.write(SQLStmtX)
If Not IsDate(timedate) Then
message="Wrong Time/Date format " & timedate
%>
<%
End If
timedate_par=replace(timedate," ","%20")
'
' Prepare FEC parameters
'
SQLStmtP = " select atc.owner||'.'||atc.table_name||'.'||atc.column_name fname,atc.table_name, "
SQLStmtP = SQLStmtP & " atc.column_name,parameter_name,description,def_value,units "
SQLStmtP = SQLStmtP & " from ASSEMBLY.FEC_HARDWARE_COLUMNS fhc,all_tab_columns atc "
SQLStmtP = SQLStmtP & " where fhc.owner=atc.owner "
SQLStmtP = SQLStmtP & " and fhc.table_name=atc.table_name "
SQLStmtP = SQLStmtP & " and fhc.column_name=atc.column_name "
SQLStmtP = SQLStmtP & " order by fhc.table_name "
' response.write(SQLStmtP)
Set RSP = Connection.Execute(SQLStmtP)
npp=0
Do While Not RSP.EOF
fec_parameter(0,npp) = CStr(RSP("fname"))
fec_parameter(1,npp) = CStr(RSP("column_name"))
' response.write(fec_parameter(1,npp) & " " & vbCrLf)
If Not IsNull(RSP("def_value")) Then
fec_parameter(2,npp) = CStr(RSP("def_value"))
Else
fec_parameter(2,npp)= " No default "
End If
If Not IsNull(RSP("parameter_name")) Then
fec_parameter(3,npp) = CStr(RSP("parameter_name"))
fec_parameter(5,npp) = CStr(RSP("description"))
Else
fec_parameter(3,npp)= " Unknown "
fec_parameter(5,npp) =" Unknown "
End If
select case CStr(RSP("table_name"))
case "FEC_CONFIG"
fec_parameter(4,npp)="F"
case "FEC_PARAMETERS"
fec_parameter(4,npp)="P"
case "FEC_STRINGS"
fec_parameter(4,npp)="S"
end select
RSP.Movenext
npp=npp+1
Loop
npp=npp-1
'
%>
FEC Parameters
Parameters of FEC# <%=fec_number%> valid on <%=timedate%>
Warning: Before changing any parameters
you MUST:
0)
Register on the Portal (without registration this
page is readonly)
1)
Adjust validity time (or leave as is if you just changed FEC
configuration)
2)
REFRESH the page by clicking Change/Refresh button. The
parameters corresponding to the specified validity time will be read from the
database and displayed
3)
You can then modify ALL the parameters that you want to change
by overtyping their values. You may display Help page to help you make modifications
4)
After all changes click "Update Database Button". You will
have a chance to confirm your choices again