| Line 40... |
Line 40... |
| 40 |
</script>
|
40 |
</script>
|
| 41 |
<%
|
41 |
<%
|
| 42 |
End Sub
|
42 |
End Sub
|
| 43 |
'-----------------------------------------------------------------------------------------------------------------------------
|
43 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 44 |
Sub OpenInWindow ( SSurl )
|
44 |
Sub OpenInWindow ( SSurl )
|
| - |
|
45 |
Call Destroy_All_Objects
|
| 45 |
Response.Redirect ( SSurl )
|
46 |
Response.Redirect ( SSurl )
|
| 46 |
End Sub
|
47 |
End Sub
|
| 47 |
'-----------------------------------------------------------------------------------------------------------------------------
|
48 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 48 |
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
|
49 |
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
|
| 49 |
If NOT IsNull(sWindowParams) OR (sWindowParams <> "") Then sWindowParams = sWindowParams &"," ' Append comma if params are not empty
|
50 |
If NOT IsNull(sWindowParams) OR (sWindowParams <> "") Then sWindowParams = sWindowParams &"," ' Append comma if params are not empty
|
| 50 |
|
51 |
|
| 51 |
onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +"" "");'"
|
52 |
onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +"" "");'"
|
| 52 |
End Function
|
53 |
End Function
|
| - |
|
54 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
55 |
Function NicePath(path)
|
| - |
|
56 |
NicePath = Replace(path," " , "",1,-1)
|
| - |
|
57 |
NicePath = Replace(NicePath,"/" , "-",1,-1)
|
| - |
|
58 |
NicePath = Replace(NicePath,"--" , "-",1,-1)
|
| - |
|
59 |
End Function
|
| 53 |
'-----------------------------------------------------------------------------------------------------------------------------
|
60 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 54 |
Function ReadFile( sPath )
|
61 |
Function ReadFile( sPath )
|
| 55 |
Dim filesys, rfile
|
62 |
Dim filesys, rfile
|
| 56 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
63 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
| - |
|
64 |
If filesys.FileExists ( sPath ) Then
|
| 57 |
Set rfile = filesys.OpenTextFile( sPath, 1, false)
|
65 |
Set rfile = filesys.OpenTextFile( sPath, 1, false)
|
| 58 |
ReadFile = rfile.ReadAll
|
66 |
ReadFile = rfile.ReadAll
|
| 59 |
rfile.close
|
67 |
rfile.close
|
| - |
|
68 |
Else
|
| - |
|
69 |
ReadFile=""
|
| - |
|
70 |
End If
|
| 60 |
Set filesys = nothing
|
71 |
Set filesys = nothing
|
| 61 |
End Function
|
72 |
End Function
|
| 62 |
'-----------------------------------------------------------------------------------------------------------------------------
|
73 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 63 |
Function GetQuery ( sQryName )
|
74 |
Function GetQuery ( sQryName )
|
| 64 |
GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
|
75 |
GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
|
| 65 |
End Function
|
76 |
End Function
|
| Line 222... |
Line 233... |
| 222 |
OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
233 |
OraDatabase.Parameters.Add "OS_ID", dbPARos_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 223 |
|
234 |
|
| 224 |
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
235 |
Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
|
| 225 |
|
236 |
|
| 226 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
237 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 227 |
dbPARproj_id = CDbl( rsQry("proj_id") )
|
238 |
dbPARproj_id = CLng( rsQry("proj_id") )
|
| 228 |
dbPARbranch_id = CDbl( rsQry("branch_id") )
|
239 |
dbPARbranch_id = CLng( rsQry("branch_id") )
|
| 229 |
dbPARnode_id = CDbl( rsQry("node_id") )
|
240 |
dbPARnode_id = CLng( rsQry("node_id") )
|
| 230 |
End If
|
241 |
End If
|
| 231 |
|
242 |
|
| 232 |
rsQry.Close
|
243 |
rsQry.Close
|
| 233 |
Set rsQry = Nothing
|
244 |
Set rsQry = Nothing
|
| 234 |
OraDatabase.Parameters.Remove "BOM_ID"
|
245 |
OraDatabase.Parameters.Remove "BOM_ID"
|
| Line 460... |
Line 471... |
| 460 |
End Sub
|
471 |
End Sub
|
| 461 |
'-----------------------------------------------------------------------------------------------------------------------------
|
472 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 462 |
Sub RaiseMsg ( SSerrFile, SSerrDesc )
|
473 |
Sub RaiseMsg ( SSerrFile, SSerrDesc )
|
| 463 |
' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
|
474 |
' Usage: enumERROR, parval1 &"|"& parval2 &"|"& parval3 ...
|
| 464 |
Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
|
475 |
Session( "DEPMGR_ERRDESCRIPTION" ) = SSerrDesc
|
| - |
|
476 |
Call Destroy_All_Objects
|
| 465 |
Response.Redirect ("messages/"& SSerrFile )
|
477 |
Response.Redirect ("messages/"& SSerrFile )
|
| 466 |
End Sub
|
478 |
End Sub
|
| 467 |
'-----------------------------------------------------------------------------------------------------------------------------
|
479 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 468 |
Function Wiki2HTML ( ByVal sWikiString )
|
480 |
Function Wiki2HTML ( ByVal sWikiString )
|
| 469 |
'=== Definition ===
|
481 |
'=== Definition ===
|
| Line 539... |
Line 551... |
| 539 |
HighlightSubstring = SSstr
|
551 |
HighlightSubstring = SSstr
|
| 540 |
End If
|
552 |
End If
|
| 541 |
|
553 |
|
| 542 |
End Function
|
554 |
End Function
|
| 543 |
'-----------------------------------------------------------------------------------------------------------------------------
|
555 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 544 |
Sub Destroy_All_Objects
|
- |
|
| 545 |
On Error Resume Next
|
- |
|
| 546 |
set brokenReadyHash = nothing
|
- |
|
| 547 |
set brokenHash = nothing
|
- |
|
| 548 |
set pkgInfoHash = nothing
|
- |
|
| 549 |
set OraDatabase = nothing
|
- |
|
| 550 |
set OraSession = nothing
|
- |
|
| 551 |
set userdetailsHash = nothing
|
- |
|
| 552 |
End Sub
|
- |
|
| 553 |
'-----------------------------------------------------------------------------------------------------------------------------
|
- |
|
| 554 |
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
|
556 |
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
|
| 555 |
Dim rsTemp, Query_String
|
557 |
Dim rsTemp, Query_String
|
| 556 |
If IsEmpty(SSparPv_id) Then Exit Sub
|
558 |
If IsEmpty(SSparPv_id) Then Exit Sub
|
| 557 |
|
559 |
|
| 558 |
Query_String = _
|
560 |
Query_String = _
|