| Line 48... |
Line 48... |
| 48 |
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
|
48 |
Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )
|
| 49 |
If NOT IsNull(sWindowParams) OR (sWindowParams <> "") Then sWindowParams = sWindowParams &"," ' Append comma if params are not empty
|
49 |
If NOT IsNull(sWindowParams) OR (sWindowParams <> "") Then sWindowParams = sWindowParams &"," ' Append comma if params are not empty
|
| 50 |
|
50 |
|
| 51 |
onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +"" "");'"
|
51 |
onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +"" "");'"
|
| 52 |
End Function
|
52 |
End Function
|
| - |
|
53 |
'-----------------------------------------------------------------------------------------------------------------
|
| - |
|
54 |
Function NicePath(path)
|
| - |
|
55 |
NicePath = Replace(path," " , "",1,-1)
|
| - |
|
56 |
NicePath = Replace(NicePath,"/" , "-",1,-1)
|
| - |
|
57 |
NicePath = Replace(NicePath,"--" , "-",1,-1)
|
| - |
|
58 |
End Function
|
| 53 |
'-----------------------------------------------------------------------------------------------------------------------------
|
59 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 54 |
Function ReadFile( sPath )
|
60 |
Function ReadFile( sPath )
|
| 55 |
Dim filesys, rfile
|
61 |
Dim filesys, rfile
|
| 56 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
62 |
Set filesys = CreateObject("Scripting.FileSystemObject")
|
| - |
|
63 |
If filesys.FileExists ( sPath ) Then
|
| 57 |
Set rfile = filesys.OpenTextFile( sPath, 1, false)
|
64 |
Set rfile = filesys.OpenTextFile( sPath, 1, false)
|
| 58 |
ReadFile = rfile.ReadAll
|
65 |
ReadFile = rfile.ReadAll
|
| 59 |
rfile.close
|
66 |
rfile.close
|
| - |
|
67 |
Else
|
| - |
|
68 |
ReadFile=""
|
| - |
|
69 |
End If
|
| 60 |
Set filesys = nothing
|
70 |
Set filesys = nothing
|
| 61 |
End Function
|
71 |
End Function
|
| 62 |
'-----------------------------------------------------------------------------------------------------------------------------
|
72 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 63 |
Function GetQuery ( sQryName )
|
73 |
Function GetQuery ( sQryName )
|
| 64 |
GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
|
74 |
GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )
|
| 65 |
End Function
|
75 |
End Function
|
| Line 710... |
Line 720... |
| 710 |
Dim Query
|
720 |
Dim Query
|
| 711 |
|
721 |
|
| 712 |
Query = "select pv.pv_id from package_versions pv, packages pkg where pv.pkg_id = pkg.pkg_id "&_
|
722 |
Query = "select pv.pv_id from package_versions pv, packages pkg where pv.pkg_id = pkg.pkg_id "&_
|
| 713 |
" and pv.pkg_version = '"&sPkgVersion&"' and pkg.pkg_name = '"&sPkgName&"'"
|
723 |
" and pv.pkg_version = '"&sPkgVersion&"' and pkg.pkg_name = '"&sPkgName&"'"
|
| 714 |
|
724 |
|
| 715 |
'Response.Write Query
|
725 |
Response.Write Query
|
| 716 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query, cint(0))
|
726 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query, cint(0))
|
| 717 |
|
727 |
|
| 718 |
nProdId = rsTemp("pv_id")
|
728 |
nProdId = rsTemp("pv_id")
|
| 719 |
|
729 |
|
| 720 |
End If
|
730 |
End If
|